[日积月累]：更改当前Dimstyle的几种方法！

Dallas_whu

假设当前的dimstyle为“standard”，若要更改为“ISO-25”，有一下三个方法实现：
一、Command:
(command "-dimstyle" "r" "ISO-25")

二、VBA
(defun c:test ()
  (vl-load-com)
  (vla-eval
    (vlax-get-acad-object)
    "ThisDrawing.ActiveDimStyle = ThisDrawing.DimStyles(\"TestDimStyle\")"
    )
  (princ)
  )

三、Vlisp
(defun c:test ()
  (vl-load-com)
  (setq act_doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq currdim (vla-get-activedimstyle act_doc))
  (vla-put-ActiveDimStyle act_doc (vla-item (vla-get-DimStyles act_doc) "ISO-25"))
  )

大家若还有其它好的方法，望共享！

carrot1983

不知道有没有办法用DXF里
dimstyle下的组码2（是标注样式名）来修改。。。
用那个subst和assco来实现？？？

Dallas_whu

我说的是切换当前的标注样式，不是更改对象的标注样式的名称。这几种方法主要是在程序里面使用。