CAD快速切換圖層代碼及其使用說明

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)的圖層了。代碼說明：(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 粗實(shí)線 ) 紅色的為圖層名字，設(shè)置和你自己設(shè)置的圖層名字一樣，加載這串代碼的時(shí)候，會(huì)自動(dòng)套上快捷鍵。圖層線型，顏色等你可以在 CAD圖層中設(shè)置，不用管代碼。)(defun c:2 ()(JJT_

3、chlayer 細(xì)實(shí)線 )(defun c:3 ()(JJT_chlayer 中心線 )(defun c:4 ()(JJT_chlayer 標(biāo)注層 )(defun c:5 ()(JJT_chlayer 剖面線 )(defun c:5 ()(JJT_chlayer 虛線 )如果還想添加線型，只需復(fù)制這串代碼再修改下名字即可。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);圖層狀態(tài)(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 粗實(shí)線 )(defun c:2 ()(JJT_chlayer 細(xì)實(shí)線 )(defun c:3 ()(JJT_chlayer 中心線 )(defun c:4 ()(JJT_chlayer 標(biāo)注層 )(defun c:5 ()(JJT_chlayer 剖面線 )(defun c:5 ()(JJT_