Sub Example_TextStyle()
   'Этот пример создает выровненное измерение в пространстве модели и 
   'создает новый системный стиль текста. Новый стиль текста затем назначен 
   'на новое измерение

    Dim dimObj As AcadDimAligned
    Dim newText As AcadTextStyle
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    
    'Определите измерение
    point1(0) = 5: point1(1) = 5: point1(2) = 0
    point2(0) = 5.5: point2(1) = 5: point2(2) = 0
    location(0) = 5: location(1) = 7: location(2) = 0
    
    'Создайте выровненный объект измерения в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    
    'Создайте новый стиль текста
    Set newText = ThisDrawing.TextStyles.Add("MYSTYLE")
    newText.height = 0.5    ' Установите высоту нового стиля
    
    ThisDrawing.Application.ZoomAll
    
    'Читайте и показывайте текущий стиль текста для этого измерения
    MsgBox "Стиль текста в настоящее время: " & dimObj.textStyle
    
    'Измените стиль текста, чтобы использовать новый стиль, который мы создали
    dimObj.textStyle = "MYSTYLE"
    ThisDrawing.Regen acAllViewports
    
    'Читайте и показывайте текущий стиль текста для этого измерения
    MsgBox "Стиль текста теперь: " & dimObj.textStyle

End Sub