CAD快速切换图层LISP代码

CAD快速切换图层LISP代码（方法2）给楼主发一个图层更改的lisp程序，按对应数字键就可以切换到相应的图层。很方便。
0————0
1————OBJ
2————6t
3————SCETR
。。。
8————BORDER
如果这些不是你想要的图层，将lisp用笔记本打开，把里边的OBJ，6t等图层名改为你想要的就可以了。以后要切换图层时，按相应的数字键即可。



(defun YH_chlayer (YH_layer / YH_S)
(if (null (tblsearch "LAYER" YH_layer))
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
(cons 2 YH_layer) ;图层名称
'(70 . 0) ;图层状态
'(62 . 7) ;图层颜色
'(6 . "bylayer") ;图层线型
)
)
)
(setq YH_S (cadr (ssgetfirst)))
(if YH_S
(command "CHPROP" YH_S "" "la" YH_layer "c" "bylayer" "")
(setvar "clayer" YH_layer)
)
(princ)
)

(defun c:0 ()
(YH_chlayer "0")
)
(defun c:1 ()
(YH_chlayer "OBJ")
)
(defun c:2 ()
(YH_chlayer "6t")
)
(defun c:3 ()
(YH_chlayer "SCETR")
)
(defun c:4 ()
(YH_chlayer "HIDD")
)
(defun c:5 ()
(YH_chlayer "DIM")
)
(defun c:6 ()
(YH_chlayer "DASH")
)
(defun c:7 ()
(YH_chlayer "TEXT")
)
(defun c:8 ()
(YH_chlayer "BORDER")
)