CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 尺寸、引线和几何公差› 关于使用标注样式（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于创建、修改和复制标注样式（VBA/ActiveX）

2023-1-4 23:00| 发布者: admin| 查看: 900| 评论: 0|来自: AutoCAD

摘要: 通过使用 DimStyles 集合，可以在图形中创建和修改标注样式。

通过使用集合，可以在图形中创建和修改标注样式。DimStyles

若要创建新的标注样式，请使用方法。此方法需要输入新标注样式的名称。Add

AutoCAD ActiveX 自动化允许您添加新的标注样式，并更改活动的标注样式。您还可以通过属性更改与给定维度关联的维度样式。StyleName

您还可以复制现有样式或一组替代。使用 CopyFrom 方法将标注样式从源对象复制到新的标注样式。源对象可以是另一个对象、维度、对象或对象，甚至是对象。如果从另一个标注样式复制样式设置，则会精确复制该样式。如果从尺寸、或对象复制样式设置，则当前设置（包括任何对象替代）将复制到新样式中。如果复制对象的样式，则活动标注样式以及任何绘图替代都将复制到新样式中。DimStyleToleranceLeaderDocumentToleranceLeaderDocument

复制标注样式和替代

本示例创建三种新的标注样式，并将文档的当前设置、给定的标注样式和给定的标注样式分别复制到每个新的标注样式中。通过在运行此示例之前遵循相应的设置，您会发现已创建不同的标注样式。

创建新图形并使其成为活动图形。
在新图形中创建线性尺寸。此尺寸应该是绘图中的唯一对象。
将尺寸线的颜色更改为黄色。
将 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

打开“暗型”对话框。现在应列出三个维度样式。样式 1 应具有黄色尺寸线。样式 2 应与样式 1 相同。样式 3 应具有蓝色尺寸线。