ObjectDBX: ActiveLayout equivalent

I'm trying to count the number of entites in each Paper Space layout of a drawing using ObjectDBX in 2004. With non-DBX code, I could set the ThisDrawing.ActiveLayout value then call a For Each loop on ThisDrawing.Paperspace. That way each entity count, via the PaperSpace object, reflects the entities on each individual layout. Here's whatt I do when NOT using ObjectDBX:

Dim iEntCount As Integer
Dim objLay As AcadLayout, objEnt As AcadEntity

iEntCount = 0

For Each objLay In ThisDrawing.Layouts
iEntCount = 0
If objLay.Name <> "Model" Then
'Trouble w/ DBX HERE
' How do you set the Active Layout...
ThisDrawing.ActiveLayout = ThisDrawing.Layouts(i)
'''So that ThisDrawing.PaperSpace refers to each individual layout
For Each objEnt In ThisDrawing.PaperSpace
iEntCount = iEntCount + 1
Next
Debug.Print objLay.Name & " - " & iEntCount
End If
Next

 

Here's how I'd do it.

Dim dbxLayout As AcadLayout
Dim dbxDoc As AcadDocument
Dim eEnts() As Long
Dim I As Integer

ReDim eEnts(0 To 1, 0 To dbxDoc.Layouts.Count - 2)
For Each dbxLayout In dbxDoc
If dbxLayout.Name <> "Model" Then
eEnts(0, I) = dbxLayout.Name
eEnts(1, I) = dbxLayout.Block.Count
I = 1 + I
Next

Good Luck,
--
Jeff
check out www.cadvault.com

drawing using ObjectDBX in 2004. With non-DBX code, I could set the
ThisDrawing.ActiveLayout value then call a For Each loop on
ThisDrawing.Paperspace. That way each entity count, via the PaperSpace
object, reflects the entities on each individual layout. Here's whatt I do
when NOT using ObjectDBX:

 

Thanks Jeff! That was just what I needed.