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

ActiveX 开发指南

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

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

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

您可以通过使用集合来创建和修改图形中的尺寸标注样式。DimStyles

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

AutoCAD ActiveX Automation 允许您添加新的尺寸标注样式，并更改活动尺寸标注样式。还可以通过属性更改与给定维度关联的维度样式。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

打开“DIMSTYLE”对话框。现在应该已经列出了三维样式。样式 1 应具有黄色尺寸线。样式 2 应与样式 1 相同。样式 3 应具有蓝色尺寸线。