怎么快速一次性删除所有标注

277283904 · 发表于 2024-1-26 09:38:56

怎么快速一次性删除所有标注

ssyfeng · 发表于 2024-1-26 09:43:10

本帖最后由 ssyfeng 于 2024-1-26 09:44 编辑

试试这个：
1：选择标注删除 (vl-cmdf "ERASE" (ssget '((0 . "*DIMENSION"))) "")
2：全图标注删除 (vl-cmdf "ERASE" (ssget "x" '((0 . "*DIMENSION"))) "")

liuhe · 发表于 2024-1-26 09:46:36

(DEFUN C:TT ()
(SETQ SS (SSGET '((0 . "*DIMENSION"))))
(IF SS
(PROGN
(SETQ I -1
SS (ACET-SS-TO-LIST SS)
)
(MAPCAR (FUNCTION (LAMBDA (X) (ENTDEL X))) SS)
)
)
)

复制代码

panliang9 · 发表于 2024-1-26 10:40:26

http://bbs.mjtd.com/thread-188717-1-1.html

277283904 · 发表于 2024-1-26 16:08:22

ssyfeng 发表于 2024-1-26 09:43
试试这个：
1：选择标注删除 (vl-cmdf "ERASE" (ssget '((0 . "*DIMENSION"))) "")
2：全图标注删除 (v ...

谢谢！第二个全图标注删除可以了，第一个选择标注删除直接按del键就可以了吧

277283904 · 发表于 2024-1-26 16:10:11

本帖最后由 277283904 于 2024-1-26 16:11 编辑

liuhe 发表于 2024-1-26 09:46

谢谢！不起作用，删除不了标注

277283904 · 发表于 2024-1-26 16:11:41

panliang9 发表于 2024-1-26 10:40
http://bbs.mjtd.com/thread-188717-1-1.html

谢谢！有点复杂，院长大人的不是我的需求

leedun · 发表于 2024-1-26 20:40:10

个人觉得这些不用单独命令，规范绘图习惯，设置单独图层，快速选择删除不也很快嘛

逗亦斗霸 · 发表于 2025-4-29 08:49:25

ssyfeng 发表于 2024-1-26 09:43
试试这个：
1：选择标注删除 (vl-cmdf "ERASE" (ssget '((0 . "*DIMENSION"))) "")
2：全图标注删除 (v ...

代码挺好，感觉分享~

amook147 · 发表于 2025-5-1 09:55:57

leedun 发表于 2024-1-26 20:40
个人觉得这些不用单独命令，规范绘图习惯，设置单独图层，快速选择删除不也很快嘛

有些时候是客户发来的图不是自己绘的

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

[基础] 怎么快速一次性删除所有标注

本帖子中包含更多资源