（求助）尺寸加前缀功能求改

xyp1964

月下闲人 发表于 2023-5-4 20:38
院长好，请教下批量改变标注值的倍数，这个代码怎么弄
(defun c:TT (/ factor ss obj)
(setq ...

1. (defun c:tt ()
   
2.   "批量改变标注值的倍数"
   
3.   (setq sc (Ureal 7 "" "倍数" sc)i  -1)
   
4.   (if (setq ss (ssget "X" '((0 . "DIMENSION"))))
   
5.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
6.        (vla-put-ScaleFactor (vlax-ename->vla-object s1) sc)
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )

(defun c:tt ()<br />   "批量改变标注值的倍数"<br />   (setq sc (Ureal 7 "" "倍数" sc)i  -1)<br />   (if (setq ss (ssget "X" '((0 . "DIMENSION"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />        (vla-put-ScaleFactor (vlax-ename->vla-object s1) sc)<br />     )<br />   )<br />   (princ)<br /> )

月下闲人

xyp1964 发表于 2023-5-5 00:30

感谢院长