求助,图层关闭的lisp不能用
 

求助,图层关闭的lisp不能用
www.dimcax.com
求助,图层关闭的lisp不能用(defun c:aa (/ en lay)

(setq en (entsel) )

(setq lay (cdr (assoc 8 (entget en))))

(if (= lay (getvar "clayer"))
(command "-layer" "off" lay "y" "")
(progn
(command "-layer" "off" lay "")
)
)

)
d
那就用这个吧
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
d
你的这句就是问题(setq en (entsel) )====>(setq en(car(entsel)))
d