修改标注尺寸精度

自贡黄明儒

修改标注尺寸精度，桌子很方便的，指向尺寸弹右键。B版的PCCAD，是bricscad内核，修改精度就不方便了，只能trl+1
于是。。。
HH:rtosr1

1. ;;5 修改标注尺寸精度(setq dec 2)
   
2. (defun DimensionDEC (DEC / E M N OBJ SS TEXTOVERRIDE)
   
3.   (princ "\n 选择尺寸，其标注样式精度将改变!")
   
4.   (while (setq ss (ssget "_+.:E:S" '((0 . "*DIMENSION*"))))
   
5.     (repeat (setq n (sslength ss))
   
6.       (setq e (ssname ss (setq n (1- n))))
   
7.       (setq obj (vlax-ename->vla-object e))
   
8.       (VL-CATCH-ALL-ERROR-P
   
9.         (VL-CATCH-ALL-APPLY
   
10.           'vlax-put
    
11.           (list obj 'PrimaryUnitsPrecision DEC)
    
12.         )
    
13.       )
    
14.       (VL-CATCH-ALL-APPLY 'vlax-put (list obj 'TextPrecision DEC))
    
15.       (setq M (vlax-get obj 'Measurement))
    
16.       (setq TextOverride (vlax-get obj 'TextOverride))
    
17.       (if (and (/= TextOverride "")
    
18.               (not (wcmatch TextOverride "*<>*"))
    
19.           )
    
20.         (if (distof TextOverride)
    
21.           (VL-CATCH-ALL-APPLY
    
22.             'vlax-put
    
23.             (list obj
    
24.                   'TextOverride
    
25.                   (HH:rtosr1 (distof TextOverride) DEC)
    
26.             )
    
27.           )
    
28.         )
    
29.         (VL-CATCH-ALL-APPLY
    
30.           'vlax-put
    
31.           (list obj 'TolerancePrecision DEC)
    
32.         )
    
33.       )
    
34.     )
    
35.   )
    
36.   (princ)
    
37. )
    

;;5 修改标注尺寸精度(setq dec 2) <br /> (defun DimensionDEC (DEC / E M N OBJ SS TEXTOVERRIDE)<br />   (princ "\n 选择尺寸，其标注样式精度将改变!")<br />   (while (setq ss (ssget "_+.:E:S" '((0 . "*DIMENSION*"))))<br />     (repeat (setq n (sslength ss))<br />       (setq e (ssname ss (setq n (1- n))))<br />       (setq obj (vlax-ename->vla-object e))<br />       (VL-CATCH-ALL-ERROR-P<br />         (VL-CATCH-ALL-APPLY<br />           'vlax-put<br />           (list obj 'PrimaryUnitsPrecision DEC)<br />         )<br />       )<br />       (VL-CATCH-ALL-APPLY 'vlax-put (list obj 'TextPrecision DEC))<br />       (setq M (vlax-get obj 'Measurement))<br />       (setq TextOverride (vlax-get obj 'TextOverride))<br />       (if (and (/= TextOverride "")<br />               (not (wcmatch TextOverride "*<>*"))<br />           )<br />         (if (distof TextOverride)<br />           (VL-CATCH-ALL-APPLY<br />             'vlax-put<br />             (list obj<br />                   'TextOverride<br />                   (HH:rtosr1 (distof TextOverride) DEC)<br />             )<br />           )<br />         )<br />         (VL-CATCH-ALL-APPLY<br />           'vlax-put<br />           (list obj 'TolerancePrecision DEC)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

sunny_8848

好功能。要是能加个快捷命令，先输入数值精度再选择（框选）标注就更方便了

paulpipi

很好的程序，建议写成实用点的，以利我们这些小白

guankuiwu

很好！学习了！

菜鸟初来乍到

感谢楼主分享