Iterating PS Viewports

[Anonymous]

Good Morning,
How do I iterate each viewport on a layout then move on to the next layout?
I know how to iterate the layouts using a For Each...Next loop on the
Layouts collection but how do I iterate the paperspace viewports on each
layout? Thanks, Scott

[Anonymous]

Try this approach...

Public Sub IterateVP(objLayout As AcadLayout)
Dim oEnt As AcadObject
For Each oEnt In objLayout.Block
If TypeOf oEnt Is AcadPViewport Then
'do your stuff here...
End If
Next oEnt
End Sub

--
Bobby C. Jones
http://www.acadx.com