一键修改所有标注样式的小数点代码，为什么我有的标注改不动？标注样式锁死了？

469229020@QQ.CO

(defun c:CHG (/ ss n ent dec)
  (setq dec (getint "\n输入小数位数 (例如 1 或 2): "))
  (princ "\n选择要修改的标注...")
  (setq ss (ssget '((0 . "DIMENSION"))))
  (if ss
    (repeat (setq n (sslength ss))
      (setq ent (ssname ss (setq n (1- n))))
      (vla-put-primaryunitsprecision
        (vlax-ename->vla-object ent)
        dec
      )
    )
  )
  (princ)
)


以上代码，为啥有的可以，有的标注样式，标注小数点改不动呢

yaojing38

试试改下标注的这个

ssyfeng

标注不是实际测量的数值？

469229020@QQ.CO

yaojing38 发表于 2025-3-21 15:09
试试改下标注的这个

这个后续这个勾，确实可以，能在哪里加一句代码，让后续这个勾取消吗？这个后续是什么作呢？

yaojing38

469229020@QQ.CO 发表于 2025-3-21 20:13
这个后续这个勾，确实可以，能在哪里加一句代码，让后续这个勾取消吗？这个后续是什么作呢？

我也没找到这个开关的代码。。。手动点一下吧？

469229020@QQ.CO

我已经找到这个开关的代码了，问题完美解决了