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