0 Members and 1 Guest are viewing this topic.
Sub IterateViews() Dim oView As AcadView For Each oView In ThisDrawing.Views 'do something Next oViewEnd Sub
Cycling through Named Views.How can it be done?
Just a wild guess... ...
Sub test()Dim objView As AcadViewDim objVP As AcadViewportDim objViews As AcadViewsSet objViews = ThisDrawing.ViewsSet objVP = ThisDrawing.ActiveViewportFor Each objView In objViews If objView.Center(0) = objVP.Center(0) And objView.Center(1) = objVP.Center(1) And objView.Height = objVP.Height And objView.Width = objVP.Width Then Debug.Print "yep" Exit For End IfNext objViewEnd Sub