CAD快速切換圖層代碼及其使用說(shuō)明

《CAD快速切換圖層代碼及其使用說(shuō)明》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、加載CAD中.LSP程序的方法1.打開CAD,輸入AP命令,加載下載的LSP程序2.點(diǎn)擊AP加載對(duì)話框點(diǎn)右下角的方框“啟動(dòng)組”，這樣才能保證每次打開CAD都能有LSP的文件,不需每次重新加載。3、然后你就可以用快捷鍵1、2、3、4、5……調(diào)出相應(yīng)的圖層了。代碼說(shuō)明：(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"粗實(shí)線")紅色的為圖層名字，設(shè)置和你自己設(shè)置的圖層名字一樣，

3、加載這串代碼的時(shí)候，會(huì)自動(dòng)套上快捷鍵。圖層線型，顏色等你可以在CAD圖層中設(shè)置，不用管代碼。)(defunc:2()(JJT_chlayer"細(xì)實(shí)線"))(defunc:3()(JJT_chlayer"中心線"))(defunc:4()(JJT_chlayer"標(biāo)注層"))(defunc:5()(JJT_chlayer"剖面線"))(defunc:5()(JJT_chlayer"虛線"))如果還想添加線型，只需復(fù)制這串代碼再修改下名字即可。把以下代碼用記事本另存為.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);圖層狀態(tài)'(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"粗實(shí)線"))(defunc:2()(JJT_chlayer"細(xì)實(shí)線"))(defunc:3()(JJT_chlayer"中心線"))(defunc:4()(JJT_chlayer"標(biāo)注層"))(defunc:5()(JJT_chlayer"剖面線"))(defunc:5()(JJT_c

6、hlayer"虛線"))