修改标注样式usin 乐筑天下 - Powered by Discuz! Archiver

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

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

(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))

根据需要更新列表。

briankstan 发表于 2022-7-6 13:56:44

谢谢，效果很好。你就是那个男人

Lee Mac 发表于 2022-7-6 13:59:33

哈哈谢谢

爱da smiley

briankstan 发表于 2022-7-6 14:01:24

有时我想弄明白这些Lisp程序的东西，我真的觉得自己就像电脑一样，它真的带给了我。

但一旦我让他们工作起来，通常在其他人的帮助下，这确实很好。

页: 1 [2]

乐筑天下's Archiver