修改尺寸标注变量而不使当前标注样式增加样式替代（overide）的方法

marting · 发表于 2017-2-21 21:20:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

下面的代码使用ActiveX方法修改尺寸标注变量，然后通过vla-copyfrom函数更新到当前的标注样式。这样的好处就是直接修改当前标注样式的设置，而不是通过增加OVERIDE。

看下图示，没修改标注变量前

QQ截图20170221211408.png

(setvar "dimclre" 6)

修改了变量后，当前标注样式变这样

QQ截图20170221211433.png

如何不增加样式替代呢？用下面代码就行了。

(vl-load-com)
(defun c:modCurDimStyle        ()

  ;; Get the current dimstyle
  (setq        acadApp            (vlax-get-acad-object)
        curDoc            (vla-get-ActiveDocument acadApp)
        curDimStyle (vla-get-ActiveDimstyle curDoc)
  )                                        ;setq

  ;; Modify the current dimstyle.
  ;; This is done by changing the current dimvars
  ;; and by saving the dimvars in the dimstyle.
  ;; Change a dimvar.
  (vla-SetVariable curDoc "DIMCLRE" 2)

  ;; Save the current dim vars in the current dim style.
  (vla-CopyFrom curDimStyle curDoc)
  (princ)
)

wenyish · 发表于 2017-2-22 08:22:30

最好用命令或图标可以解决那就Ok!

dabingrain · 发表于 2017-2-22 10:30:14

很好，终于就解决了这个问题

kqqt6236 · 发表于 2017-2-22 16:01:45

啥也不说了，感谢楼主分享哇！

sgw310 · 发表于 2017-9-30 11:27:38

学习中，谢谢

sicky111 · 发表于 2017-10-1 00:03:07

谢谢分享。

liunian0524 · 发表于 2017-10-5 08:04:25

感谢楼主分享

yjjyjj · 发表于 2018-11-22 23:16:20

非常感谢，解决一大问题！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 修改尺寸标注变量而不使当前标注样式增加样式替代（overide）的方法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。