想通过一个命令删除标注、填充、文字、引线，有没有大佬能帮忙改一下

cqhongbing520 · 发表于 2023-10-6 15:59:02

本帖最后由 cqhongbing520 于 2023-10-6 21:47 编辑

想通过一个命令删除标注、填充、文字、引线。
翻阅论坛自己改了，删除标注、填充、文字、引线，单独脚本，有没有大佬能帮忙改一下，并把这几个功能用一个快捷键完成。——这项已经完成
感谢bai2000大大解惑，附上完工脚本，还有一个疑问，能增加删除Defpoints图层对像的命令吗？
(defun  c:tt()
(setq s (ssget "x" '((8 . "Defpoints"))))
  (command "erase"  s "")
  )

cqhongbing520 · 发表于 2023-10-6 21:24:14

bai2000 发表于 2023-10-6 16:32
(defun C:sa()
(setq ss& (ssget '((0 . *TEXT,Leader,HATCH,DIMENSION"))))
(command "erase" ss&) ...

谢谢大佬 ,你的脚本加载出错，我重新改一下，测试成功了。
(defun c:sa()
(command "_erase" (ssget '((0 . "DIMENSION,HATCH,*TEXT,LEADER"))) "") ;删除标注、填充、文字、引线
(princ))
还有一个疑问，能增加删除Defpoints图层对像的命令吗？
(defun  c:tt()
(setq s (ssget "x" '((8 . "Defpoints"))))
  (command "erase"  s "")
  )

bai2000 · 发表于 2023-10-6 16:32:55

(defun C:sa()
(setq ss& (ssget '((0 . *TEXT,Leader,HATCH,DIMENSION"))))
(command "erase" ss&)
)

pzweng · 发表于 2023-10-7 14:10:14

(defun c:sa (/ ss)
  (if (setq ss (ssget '((-4 . "<OR") (0 . "*TEXT,Leader,HATCH,DIMENSION") (8 . "Defpoints") (-4 . "OR>"))))
(command ".erase" ss "")
  )
  (princ)
)

cqhongbing520 · 发表于 2023-10-7 15:22:54

pzweng 发表于 2023-10-7 14:10
(defun c:sa (/ ss)
(if (setq ss (ssget '((-4 . ""))))
(command ".erase" ss "")

谢谢大佬，完美解决。

浴火鸟TYTYJ · 发表于 2023-10-7 16:23:50

小巧而实用的工具。

lidaxiu · 发表于 2023-10-7 23:46:25

(0 . "*TEXT,Leader,HATCH,DIMENSION") 应该里面再加上MTEXT

cqhongbing520 · 发表于 2023-10-8 09:19:45

lidaxiu 发表于 2023-10-7 23:46
(0 . "*TEXT,Leader,HATCH,DIMENSION") 应该里面再加上MTEXT

是的完成的脚本全部上传了，方便大家下载。

浴火鸟TYTYJ · 发表于 2023-10-8 14:49:29

受到启发，优化了一下程式，解决了一个困扰多年的小问题：删尺寸时，引线无法删掉。加进去Leader，解决了这个小问题。

00放飞梦想00 · 发表于 2023-10-8 20:46:24

哪位大神帮写一个程，不开CAD把文件里的块改为0层，随层的，最好多选文件

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

[提问] 想通过一个命令删除标注、填充、文字、引线，有没有大佬能帮忙改一下

本帖子中包含更多资源

评分

评分