Con el método Rotate puede girar objetos en 2D alrededor de un punto precisado. La dirección de la rotación está determinada por el SCU. El método Rotate3D gira los objetos en 3D alrededor de un eje precisado. El método Rotate3D requiere tres valores de entrada: las coordenadas SCU de los dos puntos que definen el eje de rotación y el ángulo de rotación en radianes.
Puede girar objetos 3D mediante los métodos Rotate o Rotate3D.
Para obtener más información acerca de la rotación en 3D, véase “Rotación de objetos“ en el Manual del usuario.
Creación de un prisma rectangular 3D y rotación sobre un eje
En este ejemplo se crea un prisma rectangular 3D. Después se define el eje de rotación y, por último, se gira el cuadrado 30 grados alrededor del eje.
Sub Ch8_Rotate_3DBox()
Dim boxObj As Acad3DSolid
Dim length As Double
Dim width As Double
Dim height As Double
Dim center(0 To 2) As Double
' Define the box
center(0) = 5: center(1) = 5: center(2) = 0
length = 5
width = 7
height = 10
' Create the box object in model space
Set boxObj = ThisDrawing.ModelSpace. _
AddBox(center, length, width, height)
' Define the rotation axis with two points
Dim rotatePt1(0 To 2) As Double
Dim rotatePt2(0 To 2) As Double
Dim rotateAngle As Double
rotatePt1(0) = -3: rotatePt1(1) = 4: rotatePt1(2) = 0
rotatePt2(0) = -3: rotatePt2(1) = -4: rotatePt2(2) = 0
rotateAngle = 30
rotateAngle = rotateAngle * 3.141592 / 180#
' Rotate the box
boxObj.Rotate3D rotatePt1, rotatePt2, rotateAngle
ZoomAll
End Sub