要创建新的标注样式，请使用 Add 方法。这个方法需要输入新标注样式的名称。
AutoCAD ActiveX Automation 允许添加新的标注样式和修改活动标注样式。也可以通过 StyleName 特性来修改与给定标注关联的标注样式。
用户也可以复制一种现有样式或一组替代。使用 CopyFrom 方法，将标注样式从源对象复制到新标注样式中。源对象可以是另一个 DimStyle 对象、标注、Tolerance 或 Leader 对象，甚至可以是 Document 对象。如果从另一个标注样式复制样式设置，则样式被精确复制。如果从标注、Tolerance 或 Leader 对象复制样式的设置，则当前设置（包括所有对象替代）会被复制到新样式中。如果复制 Document 对象的样式，则活动标注样式加上所有的图形替代，会被复制到新样式。
本样例创建三个新的标注样式，并将文档、给定标注样式和给定标注的当前设置分别复制到各个新的标注样式中。如果在运行此样例之前进行适当的设置，将发现创建的是不同的标注样式。
- 创建新的图形并使其成为活动的图形。
- 在新的图形中创建线性标注。此标注应该是图形中仅有的对象。
- 将标注线的颜色更改为黄色。
- 将 DIMCLRD 系统变量改为 5（蓝色）。
- 运行以下样例：
Sub Ch5_CopyDimStyles()
Dim newStyle1 As AcadDimStyle
Dim newStyle2 As AcadDimStyle
Dim newStyle3 As AcadDimStyle
Set newStyle1 = ThisDrawing.DimStyles.Add _
("Style 1 copied from a dim")
Call newStyle1.CopyFrom(ThisDrawing.ModelSpace(0))
Set newStyle2 = ThisDrawing.DimStyles.Add _
("Style 2 copied from Style 1")
Call newStyle2.CopyFrom(ThisDrawing.DimStyles.Item _
("Style 1 copied from a dim"))
Set newStyle2 = ThisDrawing.DimStyles.Add _
("Style 3 copied from the running drawing values")
Call newStyle2.CopyFrom(ThisDrawing)
End Sub
打开 DIMSTYLE 对话框。现在应该列出了三种标注样式。样式 1 应该具有黄色的尺寸线，样式 2 应该与样式 1 相同，而样式 3 应该具有蓝色的尺寸线。