创建实体填充区域

AutoCAD ActiveX/VBA

previous page next page

创建 Point 对象

创建对象

使用面域

ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 创建对象 >

创建实体填充区域

用户可以创建用某种颜色填充的三角形和四边形的区域。要更快地得到结果，请在关闭 FILLMODE 系统变量时创建这些区域，然后再打开 FILLMODE 以填充完成的区域。

创建四边形实体填充区域时，第三点和第四点的次序将决定其形状。请比较下面的图解：

前两点定义了多边形的一条边。第三点定义在第二点的对角处。如果第四点设置为等于第三点，则会创建一个填充三角形。

要创建实体填充区域，请使用 AddSolid 方法。

有关填充实体的详细信息，请参见《用户手册》中的“创建实体填充区域”。

创建实体填充对象

下例使用坐标 (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

previous page start next page