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

ActiveX 开发指南

关于编辑填充图案（VBA/ActiveX）

2023-1-5 00:42| 发布者: admin| 查看: 721| 评论: 0|来自: AutoCAD

摘要: 您可以更改现有填充图案的角度或间距，也可以将其替换为实体填充或 AutoCAD 提供的预定义图案之一。

您可以更改现有填充图案的角度或间距，也可以将其替换为实体填充或 AutoCAD 提供的预定义图案之一。

“边界剖面线”对话框中的“图案”选项显示这些图案的列表。为了减小文件大小，图案填充在图形中定义为单个图形对象。

使用以下属性和方法编辑填充图案：

图案角度: 指定填充图案的角度。
图案双: 指定用户定义的图案填充是否为双剖面线。
模式名称: 指定填充图案名称（不更改图案类型）。
模式缩放: 指定填充图案比例。
模式空间: 指定用户定义的填充图案间距。
设置模式: 设置图案填充的图案名称和图案类型。

更改图案填充的图案间距

本示例创建一个图案填充。然后，它将两个添加到填充的当前图案间距。

Sub Ch4_ChangeHatchPatternSpace()
  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 loop for the hatch.
  Dim outerLoop(0 To 0) As AcadEntity
  Dim center(0 To 2) As Double
  Dim radius As Double
  center(0) = 5
  center(1) = 3
  center(2) = 0
  radius = 3
  Set outerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
  hatchObj.AppendOuterLoop (outerLoop)
  hatchObj.Evaluate

  ' Change the spacing of the hatch pattern by
  ' adding 2 to the current spacing
  hatchObj.patternSpace = hatchObj.patternSpace + 2
  hatchObj.Evaluate
  ThisDrawing.Regen True
End Sub