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

加载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 . "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 "粗实线") 红色的为图层名字，设置和你自己设置的图层名字一样，加载这串代码的时候，会自动套上快捷键。图层线型，颜色等你可以在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 "LAYER" JJT_layer))
(entmake (list
'(0 . "LAYER")
'(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_chlayer "虚线")
)