[Mischa]

Доброго времени суток! Подскажите, пожалуйста

For I = 0 To ThisDrawing.ModelSpace.Count - 1
Set Entit = ThisDrawing.ModelSpace.Item(I)

If Entit.ObjectName = "AcDbBlockReference" Then
Set BlockRef = Entit

А как теперь узнать имя блока, вхождение которого присвоено переменной BlockRef?

[fixo]

Это сделать довольно просто,
но мне в принципе не нравится твой
подход. Вместо того чтобы перебирать все объекты
в цикле не проще создать SelectionSet с фильтром?

Код:

[Выделить все]

Dim Entit As AcadEntity
Dim BlockRef As AcadBlockReference
Dim i As Long
For i = 0 To ThisDrawing.ModelSpace.Count - 1
Set Entit = ThisDrawing.ModelSpace.Item(i)
If Entit.ObjectName = "AcDbBlockReference" Then
Set BlockRef = Entit
If BlockRef.IsDynamicBlock Then
Debug.Print BlockRef.EffectiveName
Else
Debug.Print BlockRef.Name
End If
End If
Next

~'J'~

[Кулик Алексей aka kpblc]

On Error не забудьте только добавить

[Mischa]

Спасибо за советы!

По поводу SelectionSet с фильтром: для вхождения блока
FilterType = 0
FilterData = INSERT

Я правильно понял?