求快速删除图元

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
不用分层也可以删除
(defun c:ewb () ;只删除标注和引线，单行文字，多行文字，
(if (setq ss (ssget '( ...

谢谢，也在用你这个程序

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

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

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

谢谢楼主，很有用

账号		自动登录	找回密码
密码			注册

求快速删除图元

相关帖子