Block listing...

Using VB6, I'm looking for a way to do the following:

- Populate a ListBox with the names of the existing blocks in a drawing


Thanks in advance!

 

Block definitions or BlockReferences?

 

I assume that you know how set the reference to AutoCAD's type library, and
recognize how to really get the AutoCAD application (instead of my shortcut
way). I filtered out blocks starting with an asterisk, as those usually
aren't ones that a user would need to deal with.

Private Sub Form_Load()

Dim appAcad As AcadApplication
Set appAcad = GetObject(, "AutoCAD.Application")
Dim ThisDrawing As AcadDocument
Set ThisDrawing = appAcad.ActiveDocument

Dim aBlock As AcadBlock
Dim blkName As String
For Each aBlock In ThisDrawing.Blocks
blkName = aBlock.Name
If Not blkName Like "[*]*" Then Me.List1.AddItem aBlock.Name
Next aBlock

Set ThisDrawing = Nothing
Set appAcad = Nothing
End Sub


--
R. Robert Bell


Using VB6, I'm looking for a way to do the following:

- Populate a ListBox with the names of the existing blocks in a drawing


Thanks in advance!

 

I modified / used your example here to do what I needed. Thank you. I had
the connection in my project and used the block specific portion...

The next task will be a bit more interesting for me but I'll try to complete
it on my own before posting. Learning seems to be a daily thing ;-) and a
good thing!