分享一个自己做的的小工具——快速删除尺寸和文字标注

小毛草

2. ;; 删除选择的标注对象（包括多种标注类型）- 直接删除
   
3. (defun c:dee (/ ss filterList count)
   
4.   (princ "\n请选择要删除的标注对象...")
   
5.   
   
6.   ;; 定义要过滤的标注类型列表，可以自行加入TEXT,MTEXT来删除单行文字，及多行文字
   
7.   (setq filterList '((0 . "DIMENSION,MULTILEADER,LEADER,TOLERANCE")))
   
8.   
   
9.   ;; 让用户选择对象，只显示标注类型
   
10.   (setq ss (ssget filterList))
    
11.   
    
12.   (if ss
    
13.     (progn
    
14.       (setq count (sslength ss))
    
15.       
    
16.       ;; 直接删除选择的标注对象
    
17.       (command "_.erase" ss "")
    
18.       (princ (strcat "\n已删除 " (itoa count) " 个标注对象"))
    
19.     )
    
20.     (princ "\n未选择任何标注对象")
    
21.   )
    
22.   
    
23.   (princ)
    
24. )
    

;; 删除选择的标注对象（包括多种标注类型）- 直接删除<br /> (defun c:dee (/ ss filterList count)<br />   (princ "\n请选择要删除的标注对象...")<br />   <br />   ;; 定义要过滤的标注类型列表，可以自行加入TEXT,MTEXT来删除单行文字，及多行文字<br />   (setq filterList '((0 . "DIMENSION,MULTILEADER,LEADER,TOLERANCE")))<br />   <br />   ;; 让用户选择对象，只显示标注类型<br />   (setq ss (ssget filterList))<br />   <br />   (if ss<br />     (progn<br />       (setq count (sslength ss))<br />       <br />       ;; 直接删除选择的标注对象<br />       (command "_.erase" ss "")<br />       (princ (strcat "\n已删除 " (itoa count) " 个标注对象"))<br />     )<br />     (princ "\n未选择任何标注对象")<br />   )<br />   <br />   (princ)<br /> )<br />

czb203

感谢大佬的分享

raimo

注册 发表于 2025-10-11 12:03
弱弱的问下，不分图层吗

你可以自己使用一下啊，不分图层的，除非图层锁定了

H123456H

小毛草 发表于 2025-10-13 22:25

大佬，这个不支持天正标注是么

raimo

H123456H 发表于 2025-10-14 16:55
大佬，这个不支持天正标注是么

确实，不支持。。因为我平时工作环境里没有天正。也没法测试

不一样地设计

感谢分享。  

迷迭香丶

感谢分享！！！！！！