Sub Example_Move()
    'Этот пример создает круг и затем выполняет перемещение этого круга.
    
    'Создайте круг
    Dim circleObj As AcadCircle
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 2#: center(1) = 2#: center(2) = 0#
    radius = 0.5
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
    ZoomAll
    
    'Определите точки, которые составляют вектор перемещения
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    point1(0) = 0: point1(1) = 0: point1(2) = 0
    point2(0) = 2: point2(1) = 0: point2(2) = 0
        
    MsgBox "Переместите круг на 2 единицы в направление X.", , "Move Пример"
    
    'Переместите круг
    circleObj.Move point1, point2
    
    ZoomAll
    MsgBox "Перемещение закончено.", , "Move Пример"
    
End Sub