Find blocks with ObjectDbx

[Anonymous]

I need to find all blockreferences in a drawing using ObjectDbx but my
blocks can be in the paperspace or in the modelspace.
I am using 2 For/Next (one for Layouts and one for modelspace) but is there
a faster way?

Thanks


For Each layout In dwgX.Layouts
For Each objAcad In layout
If StrComp(objAcad.EntityName, "AcDbBlockReference", 1) = 0 Then

........................

End If
Next
Next

[Anonymous]

Try this way
dim oEnt as AcadEntity
Dim oLayout as AcadLayout
Dim blkRef as acadBlockReference

For Each oLayout In dwgX.Layouts
For Each oEnt In oLayout.Block
If TypeOf oEnt Is AcadBlockReference Then
Set blkRef = oEnt
If blkRef.Name="Desired Name" then
(do something with this block here)
end If
End If
Next
Next

Hth

~'J'~

[Anonymous]

Modelspace is included in the Layouts collection, it is the "Model"
Layout......no need to do 2 For/Next's. Try what Fatty shows, it should do
just what you want.

"Bux" wrote in message
news:5411974@discussion.autodesk.com...
I need to find all blockreferences in a drawing using ObjectDbx but my
blocks can be in the paperspace or in the modelspace.
I am using 2 For/Next (one for Layouts and one for modelspace) but is there
a faster way?

Thanks


For Each layout In dwgX.Layouts
For Each objAcad In layout
If StrComp(objAcad.EntityName, "AcDbBlockReference", 1) = 0 Then

........................

End If
Next
Next