VB编程操作AutoCAD尺寸标注样式

尺寸标注样式是决定尺寸标注外观的一组设置，例如，可以通过属性设置一组尺寸标注的尺寸线的颜色、箭头大小和标注文字高度，然后为这些尺寸创建一个尺寸标注样式，以后标注尺寸时，只要将这一尺寸标注样式设置为当前尺寸标注样式，标注的尺寸均与该尺寸标注样式定义的外观相同，没有定义尺寸标注样式之前，AutoCAD默认以系统默认样式标注。

创建尺寸标注样式。

尺寸标注样式的创建方法是先用尺寸标注样式DimStyles对象的Add方法创建一个命名的尺寸标注样式，再用该对象的CopyFrom方法获得个各种尺寸标注设置。

Private Sub Command1_Click()
    Dim newstyle1 As AcadDimStyle
    Dim newstyle2 As AcadDimStyle
    Dim newstyle3 As AcadDimStyle
    Set newstyle1 = acadapp.ActiveDocument.DimStyles.Add("style1 copid from a dim")
    Call newstyle1.CopyFrom(acadapp.ActiveDocument.ModelSpace(0))
    Set newstyle1 = acadapp.ActiveDocument.DimStyles.Add("style2 copied from style1")
    Call newstyle2.CopyFrom(acadapp.ActiveDocument.DimStyles.Item("style1 copied from a dim"))
    Set newstyle3 = acadapp.ActiveDocument.DimStyles.Add("style3 copied from the running drawing values")
    Call newstyle3.CopyFrom(acadapp.ActiveDocument)
End Sub