屬性 ActiveDimStyle 範例

Sub Example_ActiveDimStyle()     Dim newDimStyle As AcadDimStyle     Dim currDimStyle As AcadDimStyle         ' 傳回文件中的「目前的標註型式」     Set currDimStyle = ThisDrawing.ActiveDimStyle     MsgBox "The current dimension style is " & currDimStyle.name, vbInformation, "ActiveDimStyle Example"         '建立一個標註型式並將它設置為「目前的標註型式」     Set newDimStyle = ThisDrawing.DimStyles.Add("TestDimStyle")     ThisDrawing.ActiveDimStyle = newDimStyle       ' 將 newDimStyle 設為「目前的標註型式」     MsgBox "The new dimension style is " &newDimStyle.name, vbInformation, "ActiveDimStyle Example"         '將「目前的標註型式」改回原來所使用的標註型式     ThisDrawing.ActiveDimStyle = currDimStyle     MsgBox "The dimension style is reset to " & currDimStyle.name, vbInformation, "ActiveDimStyle Example" End Sub