CAD快速切换图层LISP代码.docx
《CAD快速切换图层LISP代码.docx》由会员分享,可在线阅读,更多相关《CAD快速切换图层LISP代码.docx(2页珍藏版)》请在三一办公上搜索。
1、CAD快速切换图层LISP代码CAD快速切换图层LISP代码 给楼主发一个图层更改的lisp程序,按对应数字键就可以切换到相应的图层。很方便。 00 1OBJ 26t 3SCETR 。 8BORDER 如果这些不是你想要的图层,将lisp用笔记本打开,把里边的OBJ,6t等图层名改为你想要的就可以了。以后要切换图层时,按相应的数字键即可。 (defun YH_chlayer (YH_layer / YH_S) (if (null (tblsearch LAYER YH_layer) (entmake (list (0 . LAYER) (100 . AcDbSymbolTableRecord)
2、 (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) )
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CAD 快速 切换 LISP 代码
链接地址:https://www.31ppt.com/p-3060563.html