Reflexi髇 en simetr韆 de objetos a lo largo de un plano

From AutoCAD ActiveX

previous page next page

Disposición en matriz en 3D

Tareas de edición en 3D

Modificación de sólidos 3D

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

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

Con el método Mirror3D se pueden reflejar objetos a lo largo de un plano de simetría precisado mediante la definición de tres puntos.

Para obtener más información acerca de la reflexión de objetos en simetría en 3D, véase “Reflejo de objetos” en el Manual del usuario.

Reflexión en simetría en 3D

En este ejemplo se crea un prisma rectangular en espacio modelo. Después se refleja en simetría con respecto a un plano y se asigna el color rojo al prisma reflejado.

Sub Ch8_MirrorABox3D()

    ' Create the box object

    Dim boxObj As Acad3DSolid

    Dim length As Double

    Dim width As Double

    Dim height As Double

    Dim center(0 To 2) As Double

    center(0) = 5#: center(1) = 5#: center(2) = 0

    length = 5#: width = 7: height = 10#

          ' Create the box (3DSolid) object in model space
          Set boxObj = ThisDrawing.ModelSpace. _
                      AddBox(center, length, width, height)
                ' Define the mirroring plane with three points
          Dim mirrorPt1(0 To 2) As Double
          Dim mirrorPt2(0 To 2) As Double
          Dim mirrorPt3(0 To 2) As Double
                mirrorPt1(0) = 1.25: mirrorPt1(1) = 0: mirrorPt1(2) = 0
          mirrorPt2(0) = 1.25: mirrorPt2(1) = 2: mirrorPt2(2) = 0
          mirrorPt3(0) = 1.25: mirrorPt3(1) = 2: mirrorPt3(2) = 2
                ' Mirror the box
          Dim mirrorBoxObj As Acad3DSolid
          Set mirrorBoxObj = boxObj.Mirror3D _
                      (mirrorPt1, mirrorPt2, mirrorPt3)
          mirrorBoxObj.Color = acRed
          ZoomAll
      End Sub

previous page start next page