Es posible crear áreas triangulares y cuadriláteras rellenas de un color. Para obtener resultados más rápidos, estas áreas deben crearse con la variable de sistema FILLMODE desactivada, y activar de nuevo FILLMODE para rellenar el área terminada.
Cuando se crea un área de relleno sólido cuadrangular, la secuencia de los puntos tercero y cuarto determina su forma. Compare las figuras siguientes:
Los dos primeros puntos definen un lado del polígono. El tercer punto se define diagonalmente contrario al segundo. Si el cuarto punto se define igual que el tercero, se crea un triángulo relleno.
Para crear un área de relleno sólido, utilice el método AddSolid.
Para obtener más información acerca del relleno de sólidos, véase “Creación de áreas de relleno sólido” en el Manual del usuario.
Creación de un objeto con relleno sólido
El código del ejemplo siguiente crea un cuadrilátero sólido en las coordenadas (0, 0, 0), (5, 0, 0), (5, 8, 0) y (8, 8, 0) del espacio modelo.
Sub Ch4_CreateSolid()
Dim solidObj As AcadSolid
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim point3(0 To 2) As Double
Dim point4(0 To 2) As Double
' Define the solid
point1(0) = 0#: point1(1) = 0#: point1(2) = 0#
point2(0) = 5#: point2(1) = 0#: point2(2) = 0#
point3(0) = 5#: point3(1) = 8#: point3(2) = 0#
point4(0) = 0#: point4(1) = 8#: point4(2) = 0#
' Create the solid object in model space
Set solidObj = ThisDrawing.ModelSpace.AddSolid _
(point1, point2, point3, point4)
ZoomAll
End Sub