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

1、精選優(yōu)質(zhì)文檔-傾情為你奉上精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)專心-專注-專業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)加載CAD中.LSP程序的方法1.打開CAD,輸入AP命令,加載下載的LSP程序 2.點擊AP加載對話框點右下角的方框 “啟動組” ，這樣才能保證每次打開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)

2、(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 粗實線) 紅色的為圖層名字，設(shè)置和你自己設(shè)置的圖層名字一樣，

3、加載這串代碼的時候，會自動套上快捷鍵。圖層線型，顏色等你可以在CAD圖層中設(shè)置，不用管代碼。)(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 虛線)如果還想添加線型，只需復(fù)制這串代碼再修改下名字即可。把以下代碼用記事本另存為.txt格式，再把后綴改為.lsp，然后加載它就可以。(defun JJT_chlayer (JJT_layer / JJT_S)(

4、if (null (tblsearch LAYER JJT_layer) (entmake (list (0 . LAYER) (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 粗實線)(defun c:2 ()(JJT_chlayer 細實線)(defun c:3 ()(JJT_chlayer 中心線)(defun c:4 ()(JJT_c