[gizmo_zx]

добрый день.
Нужна программка на VBA поиск блоков с атрибутом равным заданному значению.
Начало понятно:

1) выбор объектов рамкой

Код:

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

Dim oSset As AcadSelectionSet
Dim ftype(1) As Integer
Dim fdata(1) As Variant
ftype(0) = 0: fdata(0) = "INSERT"
ftype(1) = 66: fdata(1) = 1
Dim dxftype As Variant
Dim dxfdata As Variant
dxftype = ftype
dxfdata = fdata
oSset.SelectOnScreen dxftype, dxfdata

2) перебрать в цикле все блоки.
3) найти нужные (в атрибуте которых присутствует значение)
4) вернуть управление автокаду, оставив выбранные блоки выделенными.

Возникла проблемма с пунктами 3 и 4.
Отсеить из общей массы блоки я могу, а вот куда и как передать уже найденные, что бы только они остались выделенными?

[Sleekka]

Во-первых ВБА больше не поддерживается, а во-вторых в даунлоде была и как раз на ВБА, только там не все корректно работало, надо дорабатывать.

[Baldares]

С 3п. какая проблема?
4п. Чтоб с грипсами выделение было - в лиспе. А может без выделения обойтись. Записать список блоков в форму (можно не модпльную), и кнопочку показать выбранный.

Sleekka, ты про Акад2010? Были же разговоры (на блогах аутодеска) что будут поддерживать. Или ты про VBA в общем