[Composter]

вот у меня такой лисп.но почему то переменной del_layer_name задается значение не то которое я выбираю из списка.помогите

Код:

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

(setq z nil)
(vlax-for layer_name (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))(setq z (append z (vl-remove-if 'null (list(if (snvalid (vla-get-name layer_name))(vla-get-name layer_name)))))))
(setq e "")
(setq e (substr (foreach w z (setq e(strcat e " " w))) 2))
(setq r "")
(setq r (strcat "[" (substr (foreach w z (setq r(strcat r w"/"))) 1 (1- (strlen r)))"]"))
(initget e)
(setq del_layer_name (getkword r ))

[VVA]

1. Версия Автокада. Это я к этому
2. Для таких случаев есть другой вариант.
Старый
Поновее см. ф-цию loc:dwgru-get-user-dcl