Тема: Как получить список блоков активного документа?

КАК ПОЛУЧИТЬ СПИСОК БЛОКОВ АКТИВНОГО ДОКУМЕНТА?

Re: Как получить список блоков активного документа?

 Dim Block as AcadBlocks
For i=0 to ThisDrawing.AcadBlocks.Count
Set Block = ThisDrawing.AcadBlocks[i]
Next i 

Заправильность на писания имён объектов не ручаюсь(нет под рукой VBA и AutoCADа), но вообщем смысл такой.

Re: Как получить список блоков активного документа?

Dim blockObj As AcadBlock
For Each blockObj In ThisDrawing.Blocks
    Debug.Print blockObj.Name
Next