用户可以创建用某种颜色填充的三角形和四边形的区域。要更快地得到结果，请在关闭 FILLMODE 系统变量时创建这些区域，然后再打开 FILLMODE 以填充完成的区域。
创建四边形实体填充区域时，第三点和第四点的次序将决定其形状。请比较下面的图解：
前两点定义了多边形的一条边。第三点定义在第二点的对角处。如果第四点设置为等于第三点，则会创建一个填充三角形。
有关填充实体的详细信息，请参见《用户手册》中的“创建实体填充区域”。
下例使用坐标 (0,0,0)、(5,0,0)、(5,8,0) 和 (0,8,0) 在模型空间中创建四边形实体。
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
' 定义实体
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#
' 在模型空间中创建实体对象
Set solidObj = ThisDrawing.ModelSpace.AddSolid _
(point1, point2, point3, point4)
ZoomAll
End Sub