[求助]怎样用autolisp创建一个标注样式？急！

xiexiaohua

  请高手帮帮忙，给一个不太复杂的新建标注样式的autolisp程序。

       小弟先行谢过了。

phoenixdjq

(command "-dimstyle" "s" "新标注名")

bobby

用vlisp

 (setq AcadObj   (vlax-get-acad-object)
       AcadDoc   (vla-get-activedocument AcadObj)
 )
 (setq DimSel (vla-get-DimStyles AcadDoc))
 (setq DimObj (vla-add DimSel "mds"))

 (vla-put-ActiveDimStyle AcadDoc DimObj)

 (setvar "dimclrd" 3)

 ...

 (vla-CopyFrom DimObj AcadDoc)

xiexiaohua

谢谢俩位了。