[gizmo_zx]

Добрый день.
Есть программа для поиска блока по "имени, названию тега, содержимому тега".
Найденные объекты остаются подсвеченные.
Т.е. остается именованный SelectionSets "$Attribs$"

Код:

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

         With ThisDrawing.SelectionSets
               While .Count > 0
                    .Item(0).Delete
               Wend
          Set nSset = .Add("$Attribs$")
          End With

Вопрос как повторно запуская макрос передать ему уже обработанные SelectionSets "$Attribs$", а не выбирать в экрана.

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

Попробуй использовать нечто типа ImpliedSelection или PreviousSelection. К сожалению, VBA уже очень давно не пользовался, даже справки - и той на машине нет
P.S. Не уверен, но может сработать acSelectionSetPrevious

[Олег (jr.)]

Можно еще сохранить в словаре
key:=oEnt.Handle, value:=oEnt.ObjectId

Потом можно достать их оттуда:

Код:

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

Set oEnt=Thisdrawing.HandleToObject(item.Key)

Или

Код:

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

Set oEnt=Thisdrawing.ObjectIdToObject (item.Value)

Первое что пришло в голову...

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

А не проще в таком случае будет вообще хранить хендлы объектов как массив строк? Ну или вообще создать пользовательский тип данных и уже из него делать массив?
Или это будет слишком затратное решение?

[Олег (jr.)]

Согласен, проще создать копию:

Код:

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

      Dim oSset As AcadSelectionSet
          With ThisDrawing.SelectionSets
               While .Count > 0
                    .Item(0).Delete
               Wend
          Set oSset = .Add("NewOne")
          End With
oSset.SelectOnScreen

Dim newSset As AcadSelectionSet
Set newSset = oSset

[Vildar]

Плохо понял суть, но попробую посоветовать )

1. Получать объекты из ранее созданного набора.
- Нет гарантии, что он еще будет, т.к. другие макросы могут почистить наборы (я так всегда делаю ).
- Нет гарантии, что объекты еще будут находится на чертеже (пользователь, между запусками макроса, может удалить объекты на чертеже). Что, приведет к ошибке.
- Работает только в одном сеансе. Т.е. наборы не сохраняются между сеансами акада.

2. Сохранять список объектов самому. Записывать id или handle, и по ним находить объекты в базе.
- более правильно, по-моему.

Возможно, есть еще решения, и более эффективные.

Опс, облажался, не обновил ленту. Сорри.

[gizmo_zx]

Между сеансами сохранение не требуется.
Просто хотел фильтровать из общей массы по одному параметру, а потом уточнять по другому в уже найденом.

Только не понял как передать уже именованый массив, в место oSset.SelectOnScreen?
Хотя наверно это делать лучше не перезапуском макроса?

т.е. задача организовать повторное применение "фильтра" к уже найденному...

[Vildar]

Сообщение от gizmo_zx Просто хотел фильтровать из общей массы по одному параметру, а потом уточнять по другому в уже найденом.

Перебирай объекты в наборе и заноси в новый набор или в массив/коллекцию.