lisp获取图名_amp;#65279;如何用autolisp获取cad图形文件中直线和多义线的图层名

如何用autolisp获取cad图形文件中直线和多义线的图层名？

用(cdr(assoc 8 (entget (car (entsel)))))就可以得到直线和其他实体的图层名。

想要的程序是：点取一条直线，得到该直线的层名，然后将该层所有直线的线宽改为某个值。我现在想要的是“点取直线，获得层名”这一步。

(setq lyname (cdr(assoc 8 (entget (car (entsel)))))) that's it!, What else d

(setq lyname (cdr(assoc 8 (entget (car (entsel)))))) that's it!, What else do you want?

绘图过程中经常会碰到这种情况：某个图层已被“清空”，但却无法将其删除，究竟是什么回事？其实，图层中还可能含有不可见的实体。例如，使用mtext命令输入一连串空格，即产生一个不可见实体。在实际绘图中，我们当然不会特意去建立这样的实体，但无意的操作或者ACAD应用程序的运行都有可能产生“副产品”，要删除这些不可见实体，如果单靠现成的ACAD命令是难以完成的，必须借助程序来进行，下面的程序能够删除指定图层内的一切简单实体，从而能让用户进一步使用layer或purge命令来删除图层。

需要注意的是，个别图层即便使用下列程序处理后,仍可能关联其他对象(注意，对象的概念较实体广得多，包括标注样式等非实体对象)而不能被删除，除非指定的图层不再关联图块或者不含有任何用户定义的标注样式。这些图层是：

1.被块定义参照的图层，如a层含有一个图块，块内某条线属于b层；

2.名字为 DEFPOINTS 的特殊图层(为某个标注样式所用)。

程序清单如下：

(defun c:de(/ et ln lay_name ss li)

(princ "删除指定图层内的实体n")

(setq li (entsel"n请选择指定图层内的任何一个实体:"))

(if li

(progn ;选择一个实体

(setq et (entget(nth 0 li)))

(setq lay_name (cdr (assoc 8 et)))

)

(progn ;直接输入层名，理想的办法是采用列表框选择，大家可以自己试试。

(princ"输入层名:")

(while (= ln nil)

(setq lay_name (getstring))

(setq ln (cdr (assoc 2 (tblnext "layer" t))))

(while (and ln (/= ln "%") )

(if (/= ln lay_name)

lisp获取图名_amp;#65279;如何用autolisp获取cad图形文件中直线和多义线的图层名 - 易采站长站...相关推荐

lisp获取图名_如何用autolisp获取cad图形文件中直线和多义线的图层名
如何用autolisp获取cad图形文件中直线和多义线的图层名? 用(cdr(assoc 8 (entget (car (entsel)))))就可以得到直线和其他实体的图层名. 想要的程序是:点取 ...
python获取按键值_如何用按键获取刻度值？
我真的尽了我最大的努力自己找到解决方案,但没有.我想从一个滑块的值,然后保存到一个csv文件(这是很好的工作),点击一个按钮.唉,在我的按钮事件期间,我无法获得tkinter.Scale的值.我想知道 ...
python获取文件路径下的文件_python 获取文件下所有文件或目录os.walk()的实例
在python3.6版本中去掉了os.path.walk()函数 os.walk() 函数声明:walk(top,topdown=True,oneerror=None) 1.参数top表示需要遍历的目 ...
lisp获取图名_cadlisp获取当前视图坐标
答:复制下面的脚本到命令行回车即可加载,输入pldd,程序会提示选择pline,选择pline后会打印所有的三维坐标 (defun c:pldd (/ wb cc ss1 aa pts bhbz en ...
如何用javascript获取文本框，下拉框，单选框的对应值或者将值赋给它们？雪原虎发布于：2007-10-22 00:32
如何用javascript获取文本框,下拉框,单选框的对应值或者将值赋给它们? 雪原虎发布于:2007-10-22 00:32 1.文本框 1.1 <input type="text ...
C#开发笔记之16-如何用C#获取枚举的中文特性信息？
本文由比特飞原创发布,欢迎大家踊跃转载. 转载请注明本文地址:C#开发笔记之16-如何用C#获取枚举的中文特性信息? | .Net中文网. C#开发笔记概述概述如何在枚举本身用英文定义的情况下 ...
C#开发笔记之15-如何用C#获取某月最大天数？
本文由比特飞原创发布,欢迎大家踊跃转载. 转载请注明本文地址:C#开发笔记之15-如何用C#获取某月最大天数? | .Net中文网. C#开发笔记概述概述本文介绍使用C#获取某月最大天数的4种 ...
lisp画垫圈_基于DCL和AutoLISP语言开发的垫圈标准件库
0.引言AutoCAD是目前CAD软件中应用较广泛的软件之一.在产品设计已系列化的趋势下,为提高绘图效率,常用DCL与AutoLISP语言对其进行二次开发.其中,DCL是设计用户对话框的语言,Auto ...
lisp 画sinx曲线_如何用CAD画正弦曲线？？？？有lisp的最好。。。谢谢了
该楼层疑似违规已被系统折叠隐藏此楼查看此楼打开CAD,依次点击菜单"工具→AutoLISP→Visual LISP编辑器",新建文件,输入以下代码:(defun C:draws ...

lisp获取图名_amp;#65279;如何用autolisp获取cad图形文件中直线和多义线的图层名 - 易采站长站...

lisp获取图名_amp;#65279;如何用autolisp获取cad图形文件中直线和多义线的图层名 - 易采站长站...相关推荐

最新文章

热门文章