Sub Example_DimStyles()
    ' Этот пример добавляет новый размерный стиль.
    Dim dimStyle As AcadDimStyle
    Set dimStyle = ThisDrawing.DimStyles.Add("TEST")
    MsgBox "Новый размерный стиль " & dimStyle.name & " добавился к коллекции Dimstyles.", vbInformation, "Dimstyles Пример"
End Sub