CAD按一下键盘数字就能切换图层，你信不？

​大家好我是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，就可以随意切换自己设置好的图层了！

学会了没？

什么？手机上的代码怎么复制到电脑上？

...不过这个功能还要求记性好，记住自己的图层是几