一键快速设置图层lisp程序_CAD快速切换图层LISP代码问题

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

(setvar "clayer" YH_layer)

)

(princ)

)

(defun c:0 ()

(YH_chlayer "0")

)

(defun c:1 ()

(YH_chlayer "1")

)

(defun c:2 ()

(YH_chlayer "2")

)

(defun c:3 ()

(YH_chlayer "3")

)

(defun c:4 ()

(YH_chlayer "4")

)

(defun c:5 ()

(YH_chlayer "5")

)

(defun c:6 ()

(YH_chlayer "6")

)

(defun c:7 ()

(YH_chlayer "7")

)

(defun c:8 ()

(YH_chlayer "8")

)

展开

一键快速设置图层lisp程序_CAD快速切换图层LISP代码问题相关推荐

一键快速设置图层lisp程序_CAD快速切换图层LISP代码
CAD 快速切换图层 LISP 代码给楼主发一个图层更改的 lisp 程序,按对应数字键就可以切换到相应的图层.很方便. 0 ---- 0 1 ---- OBJ 2 ---- 6t 3 ---- S ...
一键快速设置图层lisp程序_CAD快速切换图层LISP代码 -
CAD快速切换图层LISP代码给楼主发一个图层更改的lisp程序,按对应数字键就可以切换到相应的图层.很方便. 0----0 1----OBJ 2----6t 3----SCETR ... 8--- ...
极度丝滑！CentOS/Unbuntu系统下快速设置虚拟内存，一行命令快速搞定！！！
CentOS/Unbuntu系统下快速设置虚拟内存,一行命令搞定快速开始 #请cd到你机器的执行命令的路径下 cd /usr/local/bin #wget脚本 wget https://gitee ...
cad渐开线画法lisp程序_CAD插件——绘制圆的渐开线
机械行业在使用CAD的时候,常常会需要绘制圆的渐开线.在网上找到一个画渐开线的LISP程序,不知道有没有人需要. 什么是圆的渐开线? 把一条没有弹性的细绳绕在一个定圆上,拉开绳子的一端并拉直,使绳子与 ...
五边形lisp程序_CAD LISP 程序
CAD LISP 程序 1. 计算所有线段总长度 ( 加载后只需框选所有线段便可得出这些线段的总长度 ) (defun c:LL () (setvar "cmdecho" 1) ( ...
cad lisp程序大集,超经典CAD lisp程序集锦、CAD快捷键大全
1.超经典CAD lisp程序集锦.CAD快捷键大全l pb.lsp - 通过给出长度将字符串分成两个串 cht.lsp - 直接修改文字内容或块属性 ct.lsp - 对数字串进行加减 chh.ls ...
一键快速设置图层lisp程序_AE脚本-多图层一键快速排列 Staircase V1.03 + 使用教程...
[脚本简介] 脚本Staircase可以将AE的多个图层快速排列,可设置交错或按照顺序排列,随机排列等. 下载包内含脚本,安装方法和使用教程. Staircase is a tool for Afte ...
pdf打印机安装程序_CAD快速出打印PDF格式文件
pdf最大的特点就是只能查看,不可编辑. 我们肯定不能够直接给到客户CAD源文件, 所以我们需要把CAD文件格式,转换成为PDF格式. PDF格式,比起CAD文件,能够更好的阅览 CAD是不能够直接生 ...
cad渐开线画法lisp程序_cad渐开线怎么画
回答: AutoCAD绘制展开线的话,用程序绘制比较简单,程序如下:(defunC:tes(/&dis1&k1&kw1ang1objpt1pt2tc1) (vl-load-co ...
cad渐开线画法lisp程序_CAD画齿轮的渐开线程序 (LSP)和渐开线齿轮关系
一. CAD 中齿轮画法有下面一段渐开线程序: ;;;begain suprgear.lsp ;************************************************* ; ...

一键快速设置图层lisp程序_CAD快速切换图层LISP代码问题

一键快速设置图层lisp程序_CAD快速切换图层LISP代码问题相关推荐

最新文章

热门文章