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

Lisp将+/-添加到尺寸t

我目前正在使用我找到并修改的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

它可以是（见下文）。然而，单独的维度样式可能会为您节省一些头痛/工作。。。
 
(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)
)

asteffy 发表于 2022-7-6 08:57:04

这非常接近，但是，我如何将其修改为最接近hlaf英寸的整英寸instad？

alanjt 发表于 2022-7-6 09:05:59

将vla put PrimaryUnitsPrecision的“1”更改为“0”。

asteffy 发表于 2022-7-6 09:12:38

谢谢你的帮助

alanjt 发表于 2022-7-6 09:14:00

没问题。正如我所说，一个单独的风格*可能*不那么费劲。
页: [1]
查看完整版本: Lisp将+/-添加到尺寸t