做一个lisp,如下,(加载后,用AAA实现该效果)
(defun c:AAA()(setq cmd(getvar "cmdecho"))(setvar "cmdecho" 0)(layer_off_all "*")
(setq lay_data (tblnext "layer" T))(setq jump 0)
(while lay_data
(setq lay_data (tblnext "layer"))
(setq jump (1+ jump))
)
(princ(strcat "\n关闭所有图层,一共关闭图层数为:" (itoa jump ) ",当前图层是:"
(getvar "clayer") "."))
(setvar "cmdecho" cmd)(princ))
打开图层管理器。
在你要保留的图层锁上,右键--反转选择
OK
装上天正,天正有此功能
la
直接在图层里调啊~很简单的又不麻烦