修改标注样式usin

briankstan · 发表于 2022-7-6 12:59:58

我搜索了一下，但什么也没找到。

我有一个有几种不同尺寸样式的图纸，它们的换算单位是打开的，并且以毫米为单位显示，现在建筑师希望它们以米为单位显示。

我不知道如何使用更正的信息更改标注样式。我必须更新大约100张图纸，每张图纸中至少有3种尺寸样式。我知道我可以使用Dimstyle更改它，但如果可以的话，我宁愿自动化这个过程。

我需要修改现有的dimstyle，而不使用dim替代。

谢谢你的帮助。

Lee Mac · 发表于 2022-7-6 13:05:17

试试这个伴侣：

copy


(defun c:alt (/ doc)
 (vl-load-com)
 (vlax-for dim (vla-get-Dimstyles
                 (setq doc
                   (vla-get-ActiveDocument
                     (vlax-get-acad-object))))
   (vla-put-activeDimstyle doc dim)
   (setvar "DIMALTF" 0.001)
   (vla-copyfrom dim doc))
 (princ))