Selecting objects

[jason907238]

ok, since there was not any replys on my Selection Set Error question, I am trying another way to select the objects in the drawing? any Ideas?

I know this does not work but something like this.
AcadEntities or Objects...
Dim entity As AcadEntity
Dim testBlock As AcadBlock

For Each entity In ThisDrawing.Database.Entities
If entity.ObjectName = "AcDbBlockReference" Then
Set testBlock = ThisDrawing.ObjectIdToObject(entity.OwnerID)
Debug.Print testBlock.Name
End If
Next entity

thanks,
Jason

[jason907238]

you work long enough.. you will figure it out. I thought that I had already tried this but I got it. I am looking at blocks so the following worked

Dim allBlocks As AcadBlocks
Dim myBlock As AcadBlock
Dim BlockName as String

BlockName = "hello"

Set allBlocks = ThisDrawing.Blocks

For Each myBlock In allBlocks
If myBlock.Name = BlockName Then
Debug.Print myBlock.Name & " -- " & myBlock.ObjectID
End If
Next myBlock

[jason907238]

I spoke too soon. that only pulled one. it did not look in all of the layouts

[Ed Jobe]

It didn't look in ANY of the layouts. It looked in the block collection (ThisDrawing.Blocks), where block definitions are stored. Remember, blocks are made up of 2 parts, definitions and insertions. To find insertions, you can create a selection set, filtering for block insertions of a specific name.