CAD快速切换图层LISP代码问题这个代码用cad加载后能很方便的切换图层,选中图元时,按数字键能快速更改图元图层。现在遇到的问题是,我用天正打开后,切换图层的功能还在,更改图元图...
CAD快速切换图层LISP代码问题
这个代码用cad加载后能很方便的切换图层,选中图元时,按数字键能快速更改图元图层。
现在遇到的问题是,我用天正打开后,切换图层的功能还在,更改图元图层不行了,求大神指点!!
代码如下:
(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" "")
(setva