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键就可以了吧;P

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

个人觉得这些不用单独命令，规范绘图习惯，设置单独图层，快速选择删除不也很快嘛
页: [1]
查看完整版本: 怎么快速一次性删除所有标注