CAD快速切换图层LISP代码.docx

资源ID：3060563 资源大小：36.57KB 全文页数：2页
资源格式： DOCX 下载积分：6.99金币

快捷下载

会员登录下载

三方登录下载：

下载资源需要6.99金币

邮箱/手机：
温馨提示：	用户名和密码都是您填写的邮箱或者手机号，方便查询和重复下载（系统自动生成）
支付方式：
验证码：	换一换

加入VIP免费专享

账号：
密码：
验证码：	换一换
当日自动登录忘记密码？

友情提示

1、下载资料失败解决办法

2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。

3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。

4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。

5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。

网站客服

侵权投诉

CAD快速切换图层LISP代码.docx

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") '(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") )

注意事项

本文（CAD快速切换图层LISP代码.docx）为本站会员（牧羊曲112）主动上传，三一办公仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知三一办公（点击联系客服），我们立即给予删除！

温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。