pzweng 发表于 2012-3-30 20:13:09

求快速删除图元

求一lisp程序，要求：输入一个命令后框选图元，快速删除框选中的文字层与dim层的图元（层可以由自己设定）
谢谢大师们

pzweng 发表于 2012-3-30 20:25:55

(defun c:tt ()
(if (setq ss (ssget '((8 . "文字,DIM"))))
(command ".ERASE" ss "")
)
(princ)
)

lidaxiu 发表于 2012-4-1 07:00:37

本帖最后由 lidaxiu 于 2012-4-1 07:02 编辑

不用分层也可以删除
(defun c:ewb () ;只删除标注和引线，单行文字，多行文字，
(if (setq ss (ssget '((0 . "*MTEXT,text,leader,DIMENSION"))))
(command ".erase" ss "")
)   
(princ)
)

690994 发表于 2012-4-1 10:37:03

小菜选择易

pzweng 发表于 2012-4-13 09:21:48

lidaxiu 发表于 2012-4-1 07:00 static/image/common/back.gif
不用分层也可以删除
(defun c:ewb () ;只删除标注和引线，单行文字，多行文字，
(if (setq ss (ssget '( ...

谢谢，也在用你这个程序

【KAIXIN】 发表于 2012-4-13 09:24:36

论坛有此类源码，自己写也不难.......

清风明月名字 发表于 2012-5-12 14:25:23

谢谢楼主，很有用
页: [1]
查看完整版本: 求快速删除图元