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

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

尺寸標(biāo)注樣式的創(chuàng)建方法是先用尺寸標(biāo)注樣式DimStyles對(duì)象的Add方法創(chuàng)建一個(gè)命名的尺寸標(biāo)注樣式，再用該對(duì)象的CopyFrom方法獲得個(gè)各種尺寸標(biāo)注設(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