使用 VBA 以外的其它编程语言

Sub Example_ActiveDimStyle()
    ' 本示例返回当前标注样式，然后设置一个新的样式。
    ' 最后，它返回先前设置的样式。
    Dim newDimStyle As AcadDimStyle
    Dim currDimStyle As AcadDimStyle
    
    ' 返回活动文档的当前标注样式
    Set currDimStyle = ThisDrawing.ActiveDimStyle
    MsgBox "当前标注样式为 " & currDimStyle.name, vbInformation, "ActiveDimStyle 示例"
    
    ' Create a dimension style and makes it current
    Set newDimStyle = ThisDrawing.DimStyles.Add("TestDimStyle")
    ThisDrawing.ActiveDimStyle = newDimStyle    ' 设置当前标注样式到 newDimStyle
    MsgBox "新的标注样式为 " & newDimStyle.name, vbInformation, "ActiveDimStyle 示例"
    
    ' 重设标注样式为先前的设置
    ThisDrawing.ActiveDimStyle = currDimStyle
    MsgBox "标注样式重设为 " & currDimStyle.name, vbInformation, "ActiveDimStyle 示例"
End Sub