尺寸標注樣式是決定尺寸標注外觀的一組設(shè)置，例如，可以通過屬性設(shè)置一組尺寸標注的尺寸線的顏色、箭頭大小和標注文字高度，然后為這些尺寸創(chuàng)建一個尺寸標注樣式，以后標注尺寸時，只要將這一尺寸標注樣式設(shè)置為當(dāng)前尺寸標注樣式，標注的尺寸均與該尺寸標注樣式定義的外觀相同，沒有定義尺寸標注樣式之前，AutoCAD默認以系統(tǒng)默認樣式標注。

創(chuàng)建尺寸標注樣式。

尺寸標注樣式的創(chuàng)建方法是先用尺寸標注樣式DimStyles對象的Add方法創(chuàng)建一個命名的尺寸標注樣式，再用該對象的CopyFrom方法獲得個各種尺寸標注設(shè)置。

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