Puede rotar todos los objetos de dibujo y todos los objetos de referencia de atributos.
Para rotar un objeto, utilice el método Rotate del objeto. Este método requiere la entrada de un punto base y de un ángulo de rotación. El punto base es una matriz de variantes con tres dobles. Estos dobles representan las coordenadas 3D del SCU que indican el punto sobre el que está definido el eje de rotación. El ángulo de rotación se designa en radianes y determina cuánto rota un objeto alrededor del punto base respecto de su posición actual.
Para obtener más información acerca de la rotación de objetos, véase “Rotación de objetos” en el Manual del usuario.
Rotación de una polilínea con respecto a un punto base
Este ejemplo crea una polilínea optimizada cerrada y después la gira 45 grados con respecto al punto base (4, 4.25, 0).
Sub Ch4_RotatePolyline()
' Create the polyline
Dim plineObj As AcadLWPolyline
Dim points(0 To 11) As Double
points(0) = 1: points(1) = 2
points(2) = 1: points(3) = 3
points(4) = 2: points(5) = 3
points(6) = 3: points(7) = 3
points(8) = 4: points(9) = 4
points(10) = 4: points(11) = 2
Set plineObj = ThisDrawing.ModelSpace. _
AddLightWeightPolyline(points)
plineObj.Closed = True
ZoomAll
' Define the rotation of 45 degrees about a
' base point of (4, 4.25, 0)
Dim basePoint(0 To 2) As Double
Dim rotationAngle As Double
basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0
rotationAngle = 0.7853981 ' 45 degrees
' Rotate the polyline
plineObj.Rotate basePoint, rotationAngle
plineObj.Update
End Sub