Sub Example_StyleName()
    'Этот пример создает выровненное измерение и затем изменяет свойство
    'StyleName для этого измерения.

    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    Dim currStyleName As String
    
    'Определите измерение
    point1(0) = 5#: point1(1) = 3#: point1(2) = 0#
    point2(0) = 10#: point2(1) = 3#: point2(2) = 0#
    location(0) = 7.5: location(1) = 5#: location(2) = 0#

    'Создайте выровненный объект измерения в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    ZoomAll
    currStyleName = dimObj.styleName
    MsgBox "Начальный StyleName для измерения " & dimObj.styleName, vbInformation, "TextString Пример"
    
    'Создайте новый размерный стиль
    ThisDrawing.DimStyles.Add ("NewDimensionStyle")
    
    'Измените текстовую строку для измерения
    dimObj.styleName = "NewDimensionStyle"
    dimObj.Update
    MsgBox "Новый StyleName для измерения " & dimObj.styleName, vbInformation, "TextString Пример"
    
    'Сбросьте текстовую строку для измерения
    dimObj.styleName = currStyleName
    dimObj.Update
    MsgBox "StyleName для измерения был сброшен к " & dimObj.styleName, vbInformation, "TextString Пример"
End Sub