[art_rrc]

Доброго времени суток. Подскажите пожалуйста dfx код для выбора только динамических блоков с атрибутами. Никак не получается создать правильный фильтр. В Приложении 3 книги Полещука написано: "Тип примитива ("BLOCK")", DXF код 0. Поэтому использую след. код:

Код:

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

Dim ftype(0) As Integer: Dim fdata(0) As Variant
Dim dxfCode, dxfValue

Set SelSet1 = ThisDrawing.SelectionSets.Add("aaA_e")

ftype(0) = 0: fdata(0) = "BLOCK"
dxfCode = ftype
dxfValue = fdata

SelSet1.SelectOnScreen dxfCode, dxfValue

Но он с сожалению не работает. Также пробовал "AcadBlockReference", "AcDbBlockReference", "AcDbBlock" и другие вариации, но безрезультатно. Поиском пользовался, но ничего не нашел... Либо натыкался на аналогичную информацию что и в книге. Заранее спасибо.

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

Почитай DXF Reference и выполни "дамп" любого объекта. Для вхождения блока в 0 группе будет слово "INSERT".

[art_rrc]

Сообщение от Кулик Алексей aka kpblc Почитай DXF Reference и выполни "дамп" любого объекта. Для вхождения блока в 0 группе будет слово "INSERT".

Большое спасибо. Все получилось.
Сделал вот так:

Код:

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

Dim ftype(1) As Integer
Dim fdata(1) As Variant

Set SelSet1 = ThisDrawing.SelectionSets.Add("aaA_e")
ftype(0) = 0: ftype(1) = 66
fdata(0) = "insert": fdata(1) = 1
SelSet1.SelectOnScreen ftype, fdata