Sub Example_DrawingDirection()
    ' Этот пример изменяет направление для объекта MText в пространстве
    ' модели.
    
    Dim MTextObj As AcadMText
    Dim corner1(0 To 2) As Double
    Dim width As Double
    Dim text As String
    
    ' Определите объект MText
    corner1(0) = 0#: corner1(1) = 6#: corner1(2) = 0#
    width = 7
    text = "This is a text String."

    ' Создайте объект MText в пространстве модели
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner1, width, text)
    ZoomAll
    
    'Измените направление рисунка объекта MText
    MTextObj.DrawingDirection = acLeftToRight
    ZoomAll
    MsgBox "DrawingDirection текста - слева направо.", vbInformation, "DrawingDirection Пример"
        
    MTextObj.DrawingDirection = acTopToBottom
    ZoomAll
    MsgBox "DrawingDirection текста - cверху вниз.", vbInformation, "DrawingDirection Пример"
        
    ' Возвратите направление рисунка
    Dim retDirection As Integer
    retDirection = MTextObj.DrawingDirection
    
End Sub