Sub Example_UpsideDown()
   'Этот пример создает текстовый объект в пространстве модели и использует 
   'свойство UpsideDown, чтобы зеркально отразить текст вертикально
   
    Dim textObj As AcadText
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
    
    'Определите новый объект Text
    textString = "Привет, Мир."
    insertionPoint(0) = 3: insertionPoint(1) = 3: insertionPoint(2) = 0
    height = 0.5
    
    'Создайте объект Text в пространстве модели
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    
    ThisDrawing.Application.ZoomAll
    
    MsgBox "Объект Text сейчас в правильную сторону"
    
    textObj.UpsideDown = True
    ThisDrawing.Regen acActiveViewport
    
    MsgBox "Теперь объект Text инвертирован"
End Sub