修改标注样式usin

The Buzzard · 发表于 2022-7-6 13:34:17

我刚刚发现它在所有的dimstyles中都有变化，不确定这是不是一个好主意。

Lee Mac · 发表于 2022-7-6 13:37:18

嗯，这就是我们的要求眨眼：

The Buzzard · 发表于 2022-7-6 13:39:29

好的，但是如果您使用的图形具有多个具有不同比例的视口，则可能不希望更改所有视口。

只是一个想法。

briankstan · 发表于 2022-7-6 13:42:22

我必须在dimstyle中更改以下内容

alt untis的乘数：25.4到。02540
后缀：从MM到M

这会将dimstyle设置为在保存后正确显示。

有没有办法只改变那些特定的昏暗风格？

Lee Mac · 发表于 2022-7-6 13:45:48

是的，但这些都没有在OP中指定。。。

briankstan · 发表于 2022-7-6 13:47:42

对不起，我在我的OP中不是很清楚，我可以看到它会起作用，但似乎我必须手动更新DIM，因为它们在进行更改时不会自动更新。

Lee Mac · 发表于 2022-7-6 13:52:23

下次试着解释整个问题，但这应该能帮你解决：

copy


(defun c:alt (/ dimlst doc ss)
 (vl-load-com)
 (setq dimlst '("DIM_STYL1" "DIM_STYL2")) ;; Change as necessary
 
 (vlax-for dim (vla-get-Dimstyles
                 (setq doc
                   (vla-get-ActiveDocument
                     (vlax-get-acad-object))))
   (if (vl-position (vla-get-Name dim) dimlst)
     (progn
       (vla-put-activeDimstyle doc dim)
       (setvar "DIMALTF" 0.02540)
       (setvar "DIMAPOST" "M")
       (vla-copyfrom dim doc))))
 (if (setq ss (ssget "_X" '((0 . "DIMENSION"))))
   (mapcar 'vla-update
     (mapcar 'vlax-ename->vla-object
       (mapcar 'cadr (ssnamex ss)))))
 
 (princ))