就下载 —— 安全下载、无毒手机软件、绿色软件官方下载网站最近更新|下载排行|热门标签|收藏本站

您现在的位置是:就下载 > IT资讯 > 软件教程 > 使用Autolisp删除Autocad指定图层内的实体

如何用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)
                           (setq ln (cdr (assoc 2 (tblnext "layer"))))
                           (setq ln "%") 
                           ;如指定的图层名已存在,则设“%”标志
                        )
                )
               (if (/= ln "%") ;错误处理
                   (princ"指定的图层不存在,请重新输入:")
                )
         ) 

    ) 
)
(setq ss (ssget "X"(list(cons 8 lay_name)))) ;构造选择集
(COMMAND "-layer" "u" lay_name "")           ;图层解锁
(COMMAND "ERASE" ss "")                      ;清除所有实体
(princ "\n清除完毕!")
(princ)
)

;程序结束

上一篇:如何查找160WiFi共享失败的原因

本文地址:软件教程 >> http://www.9xz.net/it/ruanjianjiaocheng/16649.html

下一篇:嘟嘟语音某个频道听不到声音,其他频道能听到怎么解决?

  • 打印
推荐阅读
热门专题
推荐内容
热点内容