Sub Example_TextPosition()
    'Этот пример создает выровненное измерение и затем изменяет 
    'свойство TextPosition для того измерения.
    
    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.TextPosition(0) & ", " & dimObj.TextPosition(1) & ", " & dimObj.TextPosition(2), vbInformation, "TextPosition Пример"
    
    'Измените текстовое местоположение позиции
    location(0) = 8.5: location(1) = 7: location(2) = 0
    dimObj.TextPosition = location
    dimObj.Update
    
    'Возвратите конечную точку первой добавочной линии
    'Отметьте, что возвращаемое значение - Variant
    Dim retPoint As Variant
    retPoint = dimObj.TextPosition
    
    MsgBox "Новая текстовая позиция для измерения " & dimObj.TextPosition(0) & ", " & dimObj.TextPosition(1) & ", " & dimObj.TextPosition(2), vbInformation, "TextPosition Пример"
End Sub