CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于创建对象（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于创建实心填充区域（VBA/ActiveX）

2023-1-5 01:47| 发布者: admin| 查看: 2637| 评论: 0|来自: AutoCAD

摘要: 您可以创建用颜色填充的三角形和四边形区域。

您可以创建用颜色填充的三角形和四边形区域。

为了更快地获得结果，请在关闭 AutoCAD 填充模式系统变量的情况下创建这些区域，然后打开填充模式以填充完成的区域。

创建四边形实心填充区域时，第三点和第四个点的序列将确定其形状。比较下图：

前两个点定义面的一个边。第三个点的定义与第二个点对角线相反。如果第四个点设置为等于第三个点，则创建一个填充三角形。

要创建实心填充区域，请使用该方法。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

  ' 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