CAD快速切换图层代码及其使用说明

加载CAD中.LSP程序的方法

1.打开CAD,输入AP命令,加载下载的LSP程序

2.点击AP加载对话框点右下角的方框 “启动组” ，这样才能保证每次打开CAD都能有LSP的文件,不需每次重新加载。

3、然后你就可以用快捷键1、2、3、4、5……调出相应的图层了。

代码说明：

(defun JJT_chlayer (JJT_layer / JJT_S) (if (null (tblsearch \ (entmake (list '(0 . \

'(100 . \ '(100 . \ (cons 2 JJT_layer) ; '(70 . 0) ; '(62 . 7) ; '(6 . \ ;

)

) )

(setq JJT_S (cadr (ssgetfirst))) (if JJT_S

(command \ (setvar \ ) (princ) )

(defun c:1 ()

(JJT_chlayer \粗实线\ 红色的为图层名字，设置和你自己设置的图层名字一样，加载这

串代码的时候，会自动套上快捷键。图层线型，颜色等你可以在CAD图层中设置，不用管代码。

)

(defun c:2 ()

(JJT_chlayer \细实线\)

(defun c:3 ()

(JJT_chlayer \中心线\)

(defun c:4 ()

(JJT_chlayer \标注层\)

(defun c:5 ()

(JJT_chlayer \剖面线\)

(defun c:5 () (JJT_chlayer \虚线\)

如果还想添加线型，只需复制这串代码

再修改下名字即可。

把以下代码用记事本另存为.txt格式，再把后缀改为.lsp，然后加载它就可以。

(defun JJT_chlayer (JJT_layer / JJT_S) (if (null (tblsearch \ (entmake (list '(0 . \

'(100 . \ '(100 . \

(cons 2 JJT_layer) ;图层名称 '(70 . 0) ;图层状态 '(62 . 7) ;图层颜色 '(6 . \ ;图层线型 )

) )

(setq JJT_S (cadr (ssgetfirst))) (if JJT_S

(command \ (setvar \ ) (princ) )

(defun c:1 ()

(JJT_chlayer \粗实线\)

(defun c:2 ()

(JJT_chlayer \细实线\)

(defun c:3 ()

(JJT_chlayer \中心线\)

(defun c:4 ()

(JJT_chlayer \标注层\)

(defun c:5 ()

(JJT_chlayer \剖面线\)

(defun c:5 ()

(JJT_chlayer \虚线\)

本文来源：https://www.bwwdw.com/article/mjoo.html