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

ActiveX 开发指南

关于创建区域（VBA/ActiveX）

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

摘要: 若要创建区域，请使用 AddRegion 方法。

若要创建区域，请使用方法。AddRegion

此方法将从曲线输入数组形成的每个闭环中创建一个区域。AutoCAD 将闭合的二维和平面三维多段线转换为单独的区域，然后转换形成闭合平面环的多段线、直线和曲线。如果两条以上的曲线共享一个端点，则生成的区域可能是任意的。因此，使用该方法时实际上可能会创建多个区域。使用变体保存新创建的区域数组。AddRegion

若要计算创建的对象总数，请使用 andVBA 函数，如以下示例所示：RegionUBoundLBound

UBound(objRegions) - LBound(objRegions) + 1

其中是包含返回值的变体。此语句将计算创建的区域总数。objRegionsAddRegion

创建简单区域

下面的代码示例从单个圆创建一个区域。

Sub Ch4_CreateRegion()
  ' Define an array to hold the
  ' boundaries of the region.
  Dim curves(0 To 0) As AcadCircle

  ' Create a circle to become a
  ' boundary for the region.
  Dim center(0 To 2) As Double
  Dim radius As Double
  center(0) = 2
  center(1) = 2
  center(2) = 0
  radius = 5#
  Set curves(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)

  ' Create the region
  Dim regionObj As Variant
  regionObj = ThisDrawing.ModelSpace.AddRegion(curves)

  ZoomAll
End Sub