Sub Example_VerticalTextPosition()
    'Этот пример создает выровненное измерение в пространстве модели и 
    'циклически повторяет текст измерения через несколько различных 
    'вертикальных выравниваний
    
    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    Dim CurrentValue As String
    
    'Определите измерение
    point1(0) = 5: point1(1) = 5: point1(2) = 0
    point2(0) = 9: point2(1) = 5: point2(2) = 0
    location(0) = 5: location(1) = 7: location(2) = 0
    
    'Создайте выровненный объект измерения в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    ThisDrawing.Application.ZoomAll

    'Читайте и показывайте текущую текстовую позицию
    Select Case dimObj.VerticalTextPosition
        Case acVertCentered:    CurrentValue = "сосредоточенный"
        Case acAbove:           CurrentValue = "выше"
        Case acOutside:         CurrentValue = "снаружи"
        Case acJIS:             CurrentValue = "к индустриальным стандартам Japanesee"
    End Select

    MsgBox "Вертикальная позиция измерения: " & CurrentValue

    'Измените позицию текста измерения, чтобы быть выше добавочных линий
    dimObj.VerticalTextPosition = acAbove
    ThisDrawing.Regen acAllViewports
    MsgBox "Текст измерения теперь выровнен выше добавочных линий"
   
    'Измените позицию текста измерения, который будет сосредоточен с добавочными линиями
    dimObj.VerticalTextPosition = acVertCentered
    ThisDrawing.Regen acAllViewports
    MsgBox "Текст измерения теперь сосредоточен с добавочными линиями"

End Sub