选择转角尺寸标注尾数不为0的标注

tigcat

1. ;一些说明:
   
2. ;改动标注值的标注没测试,适用尾数标注不为0的标注选中,小数点后的不为0忽略;
   
3. ;适用的是转角标注,其他类型的标注不行,在ssget后添加类型即可
   
4. ;很多年前不会编程,用的炸开尺寸标注再用选择易过滤的方法选择的,也许有人有需要吧.
   
5. (defun c:bznn(/ en ent_data i list42 ss ss1)
   
6.   (setq ss (ssget '((0 . "DIMENSION"))))
   
7.   (setq i -1)
   
8.   (setq ss1 (ssadd))
   
9.   (repeat (sslength ss)
   
10.     (setq i (1+ i))
    
11.     (setq ent_data (entget(setq en(ssname ss i))))
    
12.     (setq list42 (rtos(cdr (assoc 42 ent_data)) 2 0))
    
13.     (if (wcmatch list42 "~*0")
    
14.       (ssadd en ss1)
    
15.     )
    
16.   )
    
17.   (sssetfirst nil ss1)
    
18.   (prin1)
    
19. )
    
20. (prompt "\n选择尾数不为0的标注<c:bznn>****")
    
21. (prin1)

;一些说明:<br /> ;改动标注值的标注没测试,适用尾数标注不为0的标注选中,小数点后的不为0忽略;<br /> ;适用的是转角标注,其他类型的标注不行,在ssget后添加类型即可<br /> ;很多年前不会编程,用的炸开尺寸标注再用选择易过滤的方法选择的,也许有人有需要吧.<br /> (defun c:bznn(/ en ent_data i list42 ss ss1)<br />   (setq ss (ssget '((0 . "DIMENSION"))))<br />   (setq i -1)<br />   (setq ss1 (ssadd))<br />   (repeat (sslength ss)<br />     (setq i (1+ i))<br />     (setq ent_data (entget(setq en(ssname ss i))))<br />     (setq list42 (rtos(cdr (assoc 42 ent_data)) 2 0))<br />     (if (wcmatch list42 "~*0")<br />       (ssadd en ss1)<br />     )<br />   )<br />   (sssetfirst nil ss1)<br />   (prin1)<br /> )<br /> (prompt "\n选择尾数不为0的标注<c:bznn>****")<br /> (prin1)