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

    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
    
    'Определите измерение
    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
    MsgBox "Текущий угол поворота текста измерения " & dimObj.TextRotation & " радиан.", vbInformation, "TextRotation Пример"
    
    'Измените текстовый угол поворота на 45 градусов (.707 радиан)
    dimObj.TextRotation = 0.707
    dimObj.Update
        
    MsgBox "Новый угол поворота текста измерения " & dimObj.TextRotation & " радиан.", vbInformation, "TextRotation Пример"
End Sub