Desplazamiento de objetos a lo largo de un vector

AutoCAD ActiveX

 
Desplazamiento de objetos a lo largo de un vector
 
 
 

Todos los objetos de dibujo y los objetos de referencia de atributos pueden desplazarse por un vector definido.

Para desplazar un objeto, utilice el método Move del objeto. Este método requiere la entrada de dos coordenadas. Estas coordenadas definen un vector de desplazamiento que indica la distancia a la que debe trasladarse el objeto y en qué dirección.

Desplazamiento de un círculo a lo largo de un vector

En este ejemplo se crea un círculo y, a continuación, se desplaza dos unidades a lo largo del eje X.

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) = 4.25: point1(2) = 0
    point2(0) = 2: point2(1) = 4.25: point2(2) = 0
      
    ' Move the circle
    circleObj.Move point1, point2
    circleObj.Update
End Sub