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

《CAD快速切换图层代码及其使用说明》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、加载CAD中.LSP程序的方法1.打开CAD,输入AP命令,加载下载的LSP程序2.点击AP加载对话框点右下角的方框“启动组”，这样才能保证每次打开CAD都能有LSP的文件,不需每次重新加载。3、然后你就可以用快捷键1、2、3、4、5……调出相应的图层了。代码说明：(defunJJT_chlayer(JJT_layer/JJT_S)(if(null(tblsearch"LAYER"JJT_layer))(entmake(list'(0."LAYER")'(100."AcDbSymbolTableRecord"

2、)'(100."AcDbLayerTableRecord")(cons2JJT_layer);'(70.0);'(62.7);'(6."bylayer");)))(setqJJT_S(cadr(ssgetfirst)))(ifJJT_S(command"CHPROP"JJT_S"""la"JJT_layer"c""bylayer""")(setvar"clayer"JJT_layer))(princ))(defunc:1()(JJT_chlayer"粗实线")红色的为图层名字，设置和你自己设置的图层名字一样，

3、加载这串代码的时候，会自动套上快捷键。图层线型，颜色等你可以在CAD图层中设置，不用管代码。)(defunc:2()(JJT_chlayer"细实线"))(defunc:3()(JJT_chlayer"中心线"))(defunc:4()(JJT_chlayer"标注层"))(defunc:5()(JJT_chlayer"剖面线"))(defunc:5()(JJT_chlayer"虚线"))如果还想添加线型，只需复制这串代码再修改下名字即可。把以下代码用记事本另存为.txt格式，再把后缀改为.lsp，然后加载它

4、就可以。(defunJJT_chlayer(JJT_layer/JJT_S)(if(null(tblsearch"LAYER"JJT_layer))(entmake(list'(0."LAYER")'(100."AcDbSymbolTableRecord")'(100."AcDbLayerTableRecord")(cons2JJT_layer);图层名称'(70.0);图层状态'(62.7);图层颜色'(6."bylayer");图层线型)))(setqJJT_S(cadr(ssgetfirst)))(if

5、JJT_S(command"CHPROP"JJT_S"""la"JJT_layer"c""bylayer""")(setvar"clayer"JJT_layer))(princ))(defunc:1()(JJT_chlayer"粗实线"))(defunc:2()(JJT_chlayer"细实线"))(defunc:3()(JJT_chlayer"中心线"))(defunc:4()(JJT_chlayer"标注层"))(defunc:5()(JJT_chlayer"剖面线"))(defunc:5()(JJT_c

6、hlayer"虚线"))