Rotación de objetos en 3D

From AutoCAD ActiveX

previous page next page

Tareas de edición en 3D

Disposición en matriz en 3D

Manual del desarrollador de ActiveX y VBA > Trabajo en espacio tridimensional > Tareas de edición en 3D >

Rotación de objetos en 3D

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

previous page start next page