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

1、。加载 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 LAYER JJT_layer)(entmake (list(0 . LAYER)(100 . AcDbSymbolTableRecord)(100 . AcDbLayerTableRe

2、cord)(cons 2 JJT_layer);(70 . 0);(62 . 7);(6 . bylayer);。1。)(setq JJT_S (cadr (ssgetfirst)(if JJT_S(command CHPROP JJT_S la JJT_layer c bylayer )(setvar clayer JJT_layer)(princ)(defun c:1 ()(JJT_chlayer 粗实线 ) 红色的为图层名字，设置和你自己设置的图层名字一样，加载这串代码的时候，会自动套上快捷键。图层线型，颜色等你可以在 CAD图层中设置，不用管代码。)(defun c:2 ()(JJT_

3、chlayer 细实线 )(defun c:3 ()(JJT_chlayer 中心线 )(defun c:4 ()(JJT_chlayer 标注层 )(defun c:5 ()(JJT_chlayer 剖面线 )(defun c:5 ()(JJT_chlayer 虚线 )如果还想添加线型，只需复制这串代码再修改下名字即可。2。把以下代码用记事本另存为.txt格式，再把后缀改为.lsp ，然后加载它就可以。(defun JJT_chlayer (JJT_layer / JJT_S)(if (null (tblsearch LAYER JJT_layer)(entmake (list(0 . LA

4、YER)(100 . AcDbSymbolTableRecord)(100 . AcDbLayerTableRecord)(cons 2 JJT_layer);图层名称(70 . 0);图层状态(62 . 7);图层颜色(6 . bylayer);图层线型)(setq JJT_S (cadr (ssgetfirst)(if JJT_S(command CHPROP JJT_S la JJT_layer c bylayer )(setvar clayer JJT_layer)(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_