Move Objects Along a Vector

From AutoCAD ActiveX

previous page next page

Move Objects

Rotate Objects

Create and Edit AutoCAD Entities > Edit Objects > Move Objects >

Move Objects Along a Vector

You can move all drawing objects and attribute reference objects along a specified vector.

To move an object, use the Move method provided for that object. This method requires two coordinates as input. These coordinates define a displacement vector indicating how far the given object is to be moved and in what direction.

Move a circle along a vector

This example creates a circle and then moves that circle two units along the X axis.

Sub Ch4_MoveCircle()

    ' Create the circle

    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

          ' Define the points that make up the move vector.
          ' The move vector will move the circle 2 units
          ' along the x axis.
          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
                ' Move the circle
          circleObj.Move point1, point2
          circleObj.Update
      End Sub

previous page start next page