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