蝙蝠mmx 发表于 2014-8-3 21:26:20

自动打开或关闭画层

本帖最后由 Gu_xl 于 2014-8-4 09:58 编辑

怎样利用ＬＩＳＰ自动打开或关闭某一个画层，请教一下各位高手，谢谢！

琴剑江山_10184 发表于 2014-8-5 08:48:35

(defun c:fv( / fv)
(while (setq en (entsel "\n选取要关闭的图层:"));不能关闭当前层
(command "_.layoff" en "")
    );while
(princ)
)
(defun c:ta()
(princ "\n打开所有图层\n")
(command "_.layon")
(princ)
)
(defun c:as( / en)
(setq en (entsel "\n选取要单独打开的图层:"))
(command "_.LAYISO" en)
(princ)
)

香田里浪人 发表于 2014-8-5 17:51:45

论坛里已经有了，仔细赵
页: [1]
查看完整版本: 自动打开或关闭画层