大家好我是CAD君，今天有一位宝宝想要以史上最快的速度切换图层！
他说天下武功唯快不破！尤其是一个男人，不能不快！
虽然CAD君并不苟同这个观点，但是正好会这么一招...
现在把这一招放出来，仅供参考。
如有更好的方法，欢迎留言交流！
01 创建你的丽斯普
新建一个TXT文档，复制粘贴下面的代码，然后保存，将后缀改成.lsp，为了不丢失放在CAD的安装文件夹。
代码：
(defun YH_chlayer (YH_layer / YH_S)
(if (null (tblsearch "LAYER" YH_layer))
(entmake (list
’(0 . "LAYER")
’(100 . "AcDbSymbolTableRecord")
’(100 . "AcDbLayerTableRecord")
(cons 2 YH_layer) ;图层名称的意思
’(70 . 0) ;图层状态
’(62 . 7) ;图层颜色
’(6 . "bylayer") ;图层线型
)
)
)
(setq YH_S (cadr (ssgetfirst)))
(if YH_S
(command "CHPROP" YH_S "" "la" YH_layer "c" "bylayer" "")
(setvar "clayer" YH_layer)
)
(princ)
)
(defun c:0 ()
(YH_chlayer "0")
)
(defun c:1 ()
(YH_chlayer "轮廓线-粗") ;"轮廓线-粗"为图层名字
)
(defun c:2 ()
(YH_chlayer "轮廓线-中")
)
(defun c:3 ()
(YH_chlayer "轮廓线-细")
)
(defun c:4 ()
(YH_chlayer "填充")
)
(defun c:5 ()
(YH_chlayer "标注")
)
(defun c:6 ()
(YH_chlayer "文字")
)
代码说明：
红色字体为意义说明，复制不复制都可以，但是要根据说明将图层名字改成自己需要的名字。
因为不知道代号，线型和颜色等可以暂时不用管，设置好以后在图中一次性设置好即可，当然大神要改的话我也不拦着。
02 加载自己做的lisp试试
打开CAD输入命令AP来加载lsp脚本文件，加载时记得点启动组，这样就不用每次打开CAD都加载一遍了。
现在就可以了，输入快捷键1234，就可以随意切换自己设置好的图层了！
学会了没？
什么？手机上的代码怎么复制到电脑上？
...不过这个功能还要求记性好，记住自己的图层是几
喜欢的可以转发关注本头条私信回复｛资料｝可以免费领CAD、PS、3DMAX、平面设计素材哦!注意是关注私信哦