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

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


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

月下闲人 发表于 2023-5-7 16:55:48

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


感谢院长:handshake
页: 1 [2]
查看完整版本: （求助）尺寸加前缀功能求改