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

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

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

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



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

bai2000 发表于 2023-10-6 16:32
(defunC: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图层对像的命令吗？
(defunc:tt()
(setq s (ssget "x" '((8 . "Defpoints"))))
(command "erase"s "")
)

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

(defunC: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

小巧而实用的工具。{:1_1:}

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

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

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层，随层的，最好多选文件
页: [1] 2 3
查看完整版本: 想通过一个命令删除标注、填充、文字、引线，有没有大佬能帮忙改一下