vb.net AutoCAD COM增加Hatch多内边界

在VB.NET中，通过AutoCAD COM Automation与AutoCAD集成，你可以利用COM对象模型来操作Hatch（线型填充）。如果你想要增加一个多内边界的Hatch，你需要做以下几个步骤：

1. **引用Autodesk.AutoCAD.Runtime命名空间**：首先，在项目中添加对AutoCAD运行时库的引用，以便能够访问AutoCAD对象模型。

2. **创建AcadApplication对象**：创建一个新的`AcadApplication`实例，这将作为你与AutoCAD交互的桥梁。

Dim app As New Autodesk.AutoCAD.Application()

3. **打开图形文件或新建一个**：使用`Document`对象打开或创建新的图纸。

4. **获取Hatch对象**：找到需要编辑的Hatch，如果没有就先创建一个。例如，如果Hatch名为"myHatch"，则可以这样做：

Dim hatchDoc As AcadDB.Drawing = app.ActiveDocument.ModelSpace
Dim myHatch As AcadHatch = hatchDoc.Hatches("myHatch")
If myHatch Is Nothing Then
    ' 创建新的Hatch
    myHatch = hatchDoc.Hatches.Add(AutoCAD.AcDbHatchStyle.HATCH)
End If

5. **添加内边界**：使用`AddBoundary`方法添加新边界，你可以指定边界路径、宽度和样式等属性。多次调用此方法以添加多个边界。

Dim boundaryPointList As List(Of AcadPoint) = New List(Of AcadPoint)
boundaryPointList.Add(app.ActiveDocument.ModelSpace.NewPoint(0, 0, 0)) ' 添加第一个点
boundaryPointList.Add(app.ActiveDocument.ModelSpace.NewPoint(10, 0, 0)) ' 添加第二个点

' 添加边界
myHatch.AddBoundary(boundaryPointList, SomeWidth, AcDbHatchBoundaryType.Centered, SomePatternStyleName)

6. **保存更改**：确保完成后记得保存文档。

app.ActiveDocument.SaveAs("NewFile.dwg", AutoCAD.AutodeskDWGVersion.DWG2018)