[sdv79]

Есть выборка дин.блоков в модели

Код:

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

  (setq viborka (ssget '((0 . "INSERT"))) )
  
(foreach a (mapcar 'vlax-ename->vla-object  
                 (vl-remove-if 'listp
                          (mapcar 'cadr (ssnamex viborka))))

      (setq list_of_attributes (safearray-value (vlax-variant-value (vla-getattributes a))))

      (setq znach_of_attributes (mapcar 'vla-get-TextString list_of_attributes))

По нужным мне условиям составлен список из этой выборки

Код:

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

  ....
  (setq my_list (cons  a my_list) )
  
  ) ;/  foreach end

Как подсветитить все дин.блоки (в модели) попавшие в выборку my_list

Код:

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

 (sssetfirst nil viborka) ; не устраивает меня.

[Дима_]

Сообщение от sdv79 (sssetfirst nil viborka) ; не устраивает меня.

Чем?

[sdv79]

Мне нужно подсветить только те блоки из всей массы которые мне нужны а (sssetfirst nil viborka) подсветит все.

[Александр Ривилис]

Ну так удали из viborka все, что тебе не нужно подсвечивать.

[sdv79]

А как из viborka удалить то что мне не нужно?

[Do$]

Сообщение от sdv79 Есть выборка дин.блоков в модели ... По нужным мне условиям составлен список из этой выборки ... Как подсветитить все дин.блоки (в модели) попавшие в выборку my_list Код: [Выделить все] (sssetfirst nil viborka) ; не устраивает меня.

Один из вариантов:
Делать новый набор из списка my_list (foreach, ssadd) и его уже передавать в sssetfirst.

[sdv79]

Спасибо Do$ завтра попробую.

[sdv79]

Это не работает. Увы.

[Александр Ривилис]

Сообщение от sdv79 Это не работает. Увы.

Все работает. Ищи ошибки у себя. Метод может быть такой, как предложил
Do$, а можно и и просто использовать функцию (ssdel) , для удаления из набора viborka.