[_mikka]

Народ подскажите, как мне получить список выбранных на момент запуска макроса элементов чертежа в lisp ?
и поместить их все на слой 0 к примеру ?

[Alan]

>_mikka
В Поиск!

[Дима_]

Код:

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

 (vl-load-com)
(mapcar '(lambda (ent)
           (entmod (subst '(8 . "0") (assoc 8 ent) ent))) 
        (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget))))))

Offtop: А чтоб понять что с этим делать - см #2.

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

http://forum.dwg.ru/showpost.php?p=188342&postcount=21

[TararykovDG]

Сообщение от _mikka Народ подскажите, как мне получить список выбранных на момент запуска макроса элементов чертежа в lisp

Дима_
Я так думаю, что нужен не ssget, а (cadr (ssgetfirst))

[Дима_]

Offtop: To TararykovDG - верно - это я "рефлекторно" махнул, хотя что на самом деле нужно _mikk'у - я уверен далеко от это й "конструкции" - почему пишут кусками - если человек не знает как ЭТО сделать, то полагаю в остальной части задачи у него тоже сложности (и как правило неверное представление о пути решения).

[_mikka]

Offtop: Спасибо большое, правильно полагаете, но для тех задач, которые мне нужны хватит и моих очень скромных знаний , вообще после dlphi и c# лисп ооочень не привычный язык!