删除指定的标注

kzd2004

如图：

andyding

2. (defun c:deld (/ EN SS SSEN SSSTY SSVAL i)
   
3.   (if (setq en (entsel "\n请选择样本尺寸:"))
   
4.     (progn
   
5.       (setq ssen (entget (car en)))
   
6.       (setq ssval (cdr (assoc 42 ssen)))
   
7.       (setq sssty (cdr (assoc 3 ssen)))
   
8.     )
   
9.     (princ "没有选择样本尺寸!")
   
10.   )
    
11.   (princ "\n请选择要删除的范围：")
    
12.   (if (setq ss (ssget (list '(0 . "DIMENSION")
    
13.                             (cons 42 ssval)
    
14.                             (cons 3 sssty)
    
15.                       )
    
16.                )
    
17.       )
    
18.     (REPEAT (setq i (SSLENGTH ss))
    
19.       (ENTDEL (ssname ss (setq i (1- i))))
    
20.     )
    
21.     (princ "范围内没有要删除的尺寸!")
    
22.   )
    
23.   (princ)
    
24. )

(defun c:deld (/ EN SS SSEN SSSTY SSVAL i)<br />   (if (setq en (entsel "\n请选择样本尺寸:"))<br />     (progn<br />       (setq ssen (entget (car en)))<br />       (setq ssval (cdr (assoc 42 ssen)))<br />       (setq sssty (cdr (assoc 3 ssen)))<br />     )<br />     (princ "没有选择样本尺寸!")<br />   )<br />   (princ "\n请选择要删除的范围：")<br />   (if (setq ss (ssget (list '(0 . "DIMENSION")<br />                             (cons 42 ssval)<br />                             (cons 3 sssty)<br />                       )<br />                )<br />       )<br />     (REPEAT (setq i (SSLENGTH ss))<br />       (ENTDEL (ssname ss (setq i (1- i))))<br />     )<br />     (princ "范围内没有要删除的尺寸!")<br />   )<br />   (princ)<br /> )

liuhe

1. (DEFUN C:TT (/ SS I E L NUM)
   
2.   (SETQ SS (SSGET '((0 . "DIMENSION"))))
   
3.   (IF (NOT SS)
   
4.     (VL-EXIT-WITH-VALUE 0)
   
5.   )
   
6.   (SETQ L (GETINT "\N输入最小的标注"))
   
7.   (SETQ I 0)
   
8.   (REPEAT (SSLENGTH SS)
   
9.     (SETQ E   (SSNAME SS I)
   
10.           NUM (VLA-GET-MEASUREMENT (VLAX-ENAME->VLA-OBJECT E))
    
11.           I   (1+ I)
    
12.     )
    
13.     (IF        (>= L NUM)
    
14.       (ENTDEL E)
    
15.     )
    
16.   )
    
17. )

复制代码

自贡黄明儒

用小菜的选择易，就可以了。

lee50310

已分享.....

kzd2004

liuhe 发表于 2023-7-7 11:07

感谢大佬！！！

kzd2004

andyding 发表于 2023-7-7 12:20

感谢所有回复的大佬！

hzyhzjjzh

jkop

路过看到，感恩大老分享，收藏。

loveu515

大佬们集体现身了