Сообщество программистов 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

Спасибо! Получилось!