Desplazamiento de objetos
Desplazamiento de objetos
Rotación de objetos
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