Creación de sólidos

AutoCAD ActiveX

 
Creación de sólidos
 
 
 

Un objeto sólido (objeto 3DSolid) representa todo el volumen de un objeto. Los sólidos son probablemente los objetos menos ambiguos y más completos de todos los tipos de modelizado 3D. La creación de formas sólidas complejas es más fácil que la de mallas y representaciones alámbricas.

La creación de sólidos puede llevarse a cabo a partir de una de las formas sólidas básicas como, por ejemplo, un prisma rectangular, un cono, un cilindro, una esfera, un toroide o una cuña, mediante la extrusión de un objeto 2D a lo largo de una trayectoria o mediante su rotación sobre un eje. Utilice uno de los siguientes métodos para crear sólidos:

AddBox, AddCone, AddCylinder, AddEllipticalCone, AddEllipticalCylinder, AddExtrudedSolid, AddExtrudedSolidAlongPath, AddRevolvedSolid, AddSolid, AddSphere, AddTorus, o AddWedge.

Al igual que ocurre con las mallas, los sólidos se muestran en pantalla como representaciones alámbricas hasta que se decide ocultarlos, sombrearlos o modelizarlos. Además, es posible analizar las propiedades físicas de los sólidos (volumen, momentos de inercia, centro de gravedad, etc). Utilice las siguientes propiedades para analizar sólidos: MomentOfInertia, PrincipalDirections, PrincipalMoments, ProductOfInertia, RadiiOfGyration, y Volume.

La propiedad ContourlinesPerSurface controla el número de líneas de triangulación para ver las partes curvas de la representación alámbrica. La propiedad RenderSmoothness controla la suavidad de objetos sombreados y con líneas ocultas.

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

Creación de una cuña sólida

En el siguiente ejemplo se crea un sólido con forma de cuña en espacio modelo. Después se actualiza la dirección de visualización de la ventana gráfica activa para permitir una mejor visión de la naturaleza tridimensional de la cuña.

Sub Ch8_CreateWedge()
    Dim wedgeObj As Acad3DSolid
    Dim center(0 To 2) As Double
    Dim length As Double
    Dim width As Double
    Dim height As Double
      
    ' Define the wedge
    center(0) = 5#: center(1) = 5#: center(2) = 0
    length = 10#: width = 15#: height = 20#
      
    ' Create the wedge in model space
    Set wedgeObj = ThisDrawing.ModelSpace. _
                   AddWedge(center, length, width, height)
      
    ' Change the viewing direction of the viewport
    Dim NewDirection(0 To 2) As Double
    NewDirection(0) = -1
    NewDirection(1) = -1
    NewDirection(2) = 1
    ThisDrawing.ActiveViewport.direction = NewDirection
    ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    ZoomAll
End Sub