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

ActiveX 开发指南

关于定义图案填充边界（VBA/ActiveX）

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

摘要: 创建图案填充对象后，可以添加图案填充边界。边界可以是直线、圆弧、圆、二维折线、椭圆、样条曲线和面的任意组合。

创建 Hatch 对象后，可以添加填充边界。边界可以是直线、圆弧、圆、二维折线、椭圆、样条和区域的任意组合。

添加的第一个边界必须是外部边界，该边界定义了要由填充填充的最外层限制。若要添加外部边界，请使用该方法。AppendOuterLoop

定义外部边界后，可以继续添加内部边界。使用该方法添加内部边界。AppendInnerLoop

内部边界定义了舱口内的岛屿。对象如何处理这些岛屿取决于属性的设置。该属性可以设置为下列条件之一：HatchHatchStyleHatchStyle

填充样式定义
影线风格	条件	描述
	正常	指定标准样式或普通样式。此选项从最外层区域边界向内剖面线。如果 AutoCAD 遇到内部边界，则在遇到另一个边界之前会关闭剖面线。这是属性的默认设置。`HatchStyle`
	外	仅填充最外层区域。此样式也会从区域边界向内剖面，但如果遇到内部边界，则会关闭剖面线，并且不会再次打开。
	忽视	忽略内部结构。此选项将剖面线穿过所有内部对象。

完成填充定义后，必须先对其进行评估，然后才能显示它。使用该方法执行此操作。Evaluate

创建 Hatch 对象

本示例在模型空间中创建一个关联填充。创建填充后，可以更改与填充关联的圆的大小。填充将更改以匹配当前的圆圈大小。

Sub Ch4_CreateHatch()
  Dim hatchObj As AcadHatch
  Dim patternName As String
  Dim PatternType As Long
  Dim bAssociativity As Boolean

  ' Define the hatch
  patternName = "ANSI31"
  PatternType = 0
  bAssociativity = True

  ' Create the associative Hatch object
  Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)

  ' Create the outer boundary for the hatch. (a circle)
  Dim outerLoop(0 To 0) As AcadEntity
  Dim center(0 To 2) As Double
  Dim radius As Double
  center(0) = 3: center(1) = 3: center(2) = 0
  radius = 1
  Set outerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)

  ' Append the outer boundary to the hatch
  ' object, and display the hatch
  hatchObj.AppendOuterLoop (outerLoop)
  hatchObj.Evaluate
  ThisDrawing.Regen True
End Sub