Sub Example_TextMovement()
   'Этот пример создает два выровненных измерения в пространстве модели 
   'и заставляет свойство TextMovement меняться позволяя пользователю 
   'видеть различия, которые это свойство делает, перемещая текст измерения
   '
   'Чтобы видеть эффект от этого свойства:
   '1) Выполните этот образец
   '2) Переместите текст измерения крайнего левого 
   '   объекта на экране мышью или клавиатурой.
   '3) Обратите внимание на позицию размерных линий
   '4) Повторите с другим объектом
   
    Dim dimObj1 As AcadDimAligned, dimObj2 As AcadDimAligned
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim point3(0 To 2) As Double, point4(0 To 2) As Double
    Dim location1(0 To 2) As Double, location2(0 To 2) As Double
        
    'Определите эти два измерения
    point1(0) = 5: point1(1) = 5: point1(2) = 0
    point2(0) = 6: point2(1) = 5: point2(2) = 0
    location1(0) = 5: location1(1) = 7: location1(2) = 0
    
    point3(0) = 7: point3(1) = 5: point3(2) = 0
    point4(0) = 8: point4(1) = 5: point4(2) = 0
    location2(0) = 5: location2(1) = 7: location2(2) = 0
    
    'Создайте выровненные объекты измерения в пространстве модели
    Set dimObj1 = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location1)
    Set dimObj2 = ThisDrawing.ModelSpace.AddDimAligned(point3, point4, location2)
    
    ThisDrawing.Application.ZoomAll

    'Установите текстовое движение новых измерений к различным значениям
    dimObj1.TextMovement = acMoveTextNoLeader
    dimObj2.TextMovement = acDimLineWithText
       
End Sub