请教高手，有关图层命令的lsp不能正常使用

天宇飞翔12

请教高手，lsp文件中只要有关图层的突然不能正常使用，原来好好的。

而且自动运行'_Layer打开图层对话框

比如以下lsp,执行后出现这种情况，其他也是的
;只显示被选对象所在层
(DEFUN C:lg (/ ES EN EL A)
(princ "请选择对象，未被选中对象所在的层将被关闭")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
  FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "off" "*" "y" "on" (eval FL) "")
(princ)
)

zghmaya

支持下好学的同学

caaooo

试试
(command "-LAYER" "off" "*" "y" "on" (eval FL) "")