Lisp将+/-添加到尺寸t

asteffy · 发表于 2022-7-6 08:13:21

我目前正在使用我找到并修改的lisp，该lisp在标注文本的开头添加+/-。当前lisp为：

当添加+/-时，有人知道如何在此例程中将尺寸精度修改为1”吗？

谢谢

Lee Mac · 发表于 2022-7-6 08:20:35

尺寸精度将由尺寸样式控制。

asteffy · 发表于 2022-7-6 08:31:48

正确，不确定这是否可以合并到lisp中？

Lee Mac · 发表于 2022-7-6 08:34:16

可以使用程序将相关标注样式替代扩展数据附着到选定标注，但只需修改标注样式并单击“标注”工具栏上的“标注更新”按钮，就更容易了。

SLW210 · 发表于 2022-7-6 08:40:47

阿斯特菲，

请阅读代码发布指南。

并编辑您的帖子。

alanjt · 发表于 2022-7-6 08:50:35

它可以是（见下文）。然而，单独的维度样式可能会为您节省一些头痛/工作。。。

copy

(defun c:test (/ ss i o)
 (vl-load-com)
 (if (setq ss (ssget '((0 . "*DIMENSION"))))
   (repeat (setq i (sslength ss))
     (vla-put-PrimaryUnitsPrecision
       (setq o (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
       1
     )
     (vla-put-TextOverride o "±<>")
   )
 )
 (princ)
)