Disposición en matriz en 3D

From AutoCAD ActiveX

previous page next page

Rotación de objetos en 3D

Tareas de edición en 3D

Reflexión en simetría de objetos a lo largo de un plano

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

Disposición en matriz en 3D

Con el método ArrayRectangular puede crear una matriz rectangular en 3D. Además de especificar el número de columnas (dirección X) y filas (dirección Y), también puede especificar el número de niveles (dirección Z).

Para obtener más información acerca de la utilización de matrices de objetos en 3D, véase “Creación de una matriz de objetos” en el Manual del usuario.

Creación de una matriz rectangular 3D

En este ejemplo se crea un círculo y, a continuación, se utiliza para crear una matriz rectangular de cuatro filas, cuatro columnas y tres niveles de círculos.

Sub Ch8_CreateRectangularArray()

    ' 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)

          ' Define the rectangular array
          Dim numberOfRows As Long
          Dim numberOfColumns As Long
          Dim numberOfLevels As Long
          Dim distanceBwtnRows As Double
          Dim distanceBwtnColumns As Double
          Dim distanceBwtnLevels As Double
          numberOfRows = 4
          numberOfColumns = 4
          numberOfLevels = 3
          distanceBwtnRows = 1
          distanceBwtnColumns = 1
          distanceBwtnLevels = 4
                ' Create the array of objects
          Dim retObj As Variant
          retObj = circleObj.ArrayRectangular _
              (numberOfRows, numberOfColumns, _
               numberOfLevels, distanceBwtnRows, _
               distanceBwtnColumns, distanceBwtnLevels)
          ZoomAll
      End Sub

previous page start next page