[fasadel]

Друзья. Простой, казалось бы, вопрос. Как запросить выделение объектов рамкой и получить соответствующую коллекцию?

Есть GetEntity, но тыкает только в точку, а не выделяет объект(ы) рамкой.

Обратился к SelectionSets. Но там целая история, надо создать именованный набор, добавлять есть в коллекцию наборов, если такой набор уже был создан, то вылезает ошибка... А мне надо просто получить коллекцию на один раз, что называется. Неужели нельзя как-то просто?

[Сергей812]

А куда они могли деться? Динблок не умеет добавлять/убирать вставки атрибутов. Пользуйтесь отладчиком, выведите в окно просмотра переменных varAttribs и пошагово через F8 пройдите по коду.

[Vov4ik86-2]

Ранее я приложил картинку, в которой видно, что значение Empty. Видно что условие выполняется, в выделении есть объекты с таким именем, а вот их атрибуты не читаются

[Сергей812]

Ну для рабочего кода надо проверять наличие атрибутов (через .HasAttributes), проходить по коллекции (For I:= LBound(varAttribs) To UBound(varAttribs)) - а не надеется, что в элементе с индексом 1 будет нужный атрибут. Ну и что там у вас в файле делается - это вам лучше знать, а то лечение по фотографии получается)

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

А кто сказал, что у вхождения как минимум 2 атрибута?

----- добавлено через ~1 мин. -----
Кстати, атрибуты могут быть постоянными - а с ними немного по-другому, как мне помнится, надо работать.

[Сергей812]

Сообщение от Кулик Алексей aka kpblc а с ними немного по-другому, как мне помнится, надо работать.

вместо GetAttributes будет GetConstantAttributes - так как забирает значения из определения блока, а не из присоединенных вставок атрибутов.

p.s. Есть в загрузках тут замечательная книжка со множеством примеров, в которой работает текстовой поиск.

[Vov4ik86-2]

У меня вся рабочая схема состоит из трех блоков с атрибутами и одного без, поэтому такой простой способ работы с ними и волноваться о том, что появится что то другое в выборе, нет необходимости.
Похоже что я сам что-то изменил, уже и при первой вставке блока ничего не читается, буду разбираться, всем большое спасибо!

----- добавлено через ~2 ч. -----
Кулик Алексей aka kpblc, спасибо огромное за objBRef.EffectiveName, это очень мне помогло
атрибуты я не мог посмотреть, потому что
Set objBRef = objEnt
varAttribs = objBRef.GetAttributes
было до
For Each objEnt In sset
как только поставил после всё заработало
Еще раз всем огромное спасибо!