Autolisp标注后缀

bpdav1 · 发表于 2022-7-6 07:38:55

有没有办法在autolisp中为尺寸标注指定dim后缀？

即，我为一条线创建两个维度，一个中心到中心，尺寸后缀为“C/C”，另一个整体，尺寸后缀为“O/ALL”

nod684 · 发表于 2022-7-6 08:02:19

试试这个。。


(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)))))
       0
     )
     (vla-put-TextOverride o "<> c/c")
   )
 )
 (princ)
)

或者：

copy


(defun C:Test2()
(setq newdim (entsel "\nSelect Dimension on where to put C/C Symbol:"))
(setq newdimvalue "<> C/C")
(command "dimedit" "n" newdimvalue newdim "")
(princ)
)

bpdav1 · 发表于 2022-7-6 08:06:05

干杯，这真是太棒了！有没有办法自动输入坐标或选择尺寸，这样就不会要求用户选择尺寸？

nod684 · 发表于 2022-7-6 08:21:09

如果要将其应用于所有标注，只需修改标注样式即可

转到“主要单位”，在“后缀”下输入C/C

bpdav1 · 发表于 2022-7-6 08:27:48

这也是真的，谢谢

我还发现我可以做到：

copy

(command "dimedit" "n" "<> C/C" dimpoint "")

其中，dimpoint等于接触尺寸的已知点“x，y”。这样就不需要entsel命令，也不需要用户选择尺寸。

nod684 · 发表于 2022-7-6 08:49:49

太好了！

[编程交流] Autolisp标注后缀

发表回复

精选推荐