Сообщество программистов Autodesk в СНГ

ADN Club => AutoLisp / VisualLISP и DCL => Тема начата: 1958 от 07-03-2017, 15:19:35

Название: набор объектов
Отправлено: 1958 от 07-03-2017, 15:19:35
Создан список примитивов следующего вида:

((1 <имя объекта 1>) (2 <имя объекта 2>) ... (n <имя объекта n>))

Из этого списка сформирован новый список, в который включены только имена некоторых примитивов:

(<имя объекта 2> <имя объекта 3> ... <имя объекта 7>)

Вопрос: Как сформировать набор примитивов с использованием нового списка, чтобы подсветить эти примитивы (с использованием команды sssetfirst)?
Название: Re: набор обектов
Отправлено: Александр Ривилис от 07-03-2017, 15:28:00
Как-то так, если я еще не забыл лисп:
Код - Auto/Visual Lisp [Выбрать]
  1. ; list_en - это твой список имён примитивов
  2. (setq ss (ssadd)) ; Создаём пустой набор
  3. (foreach en list_en
  4.   (ssadd en ss) ; добавляем в набор все примитивы
  5. )
  6. (sssetfirst nil ss) ; выбираем всё, что есть в наборе
  7. (setq ss nil)
Название: Re: набор обектов
Отправлено: 1958 от 07-03-2017, 15:31:00
Спасибо! Получилось!