 -
- (vl-load-com)
- (setq AcadObject (vlax-get-acad-object)
- AcadDocument (vla-get-ActiveDocument AcadObject)
- mSpace (vla-get-ModelSpace AcadDocument)
- )
- ;; 建立标注样式
- (setq dimStyleSel (vla-get-DimStyles AcadDocument))
- (setq newDimStyle (vla-add dimStyleSel str))
建立新的标注样式后怎样设置样式的其他一些属性,最好是用Vla系列函数。
谢谢!
|