Stepping thru objects in both model & paper space w/ VBA

[muck]

AutoCAD 2009 VBA

 

The following code is only for model space. What if I want to step thru

both model and paper space. Is there a statement for that?

 

Dim aObj As AcadEntity

For Each aObj In ThisDrawing.ModelSpace

'Code

Next aObj

 

Thank you,

[SEANT]

Something along this line should work.

 

 

   'include ModelSpace layout and all layouts in PaperSpace
  For Each objLayout In ThisDrawing.Layouts
     For Each Entity In objLayout.Block
        . . . . . .
     Next
  Next