VB.NET创建 Dim GCBZ = cadDoc.Blocks.Add(Gnt, "*U") 块，画个三角形并填充图案，最后把图案添加到块

可以使用以下代码创建一个三角形，并将其填充为图案，然后将其添加到块中：

Dim GCBZ = cadDoc.Blocks.Add(Gnt, "*U")
Dim acPoly As Autodesk.AutoCAD.DatabaseServices.Polyline = New Autodesk.AutoCAD.DatabaseServices.Polyline(3)

acPoly.AddVertexAt(0, New Point2d(0, 0), 0, 0, 0)
acPoly.AddVertexAt(1, New Point2d(0, 5), 0, 0, 0)
acPoly.AddVertexAt(2, New Point2d(5, 0), 0, 0, 0)
acPoly.Closed = True

Dim acHatch As Hatch = New Hatch()
acHatch.SetHatchPattern(HatchPatternType.PreDefined, "ANSI31")
acHatch.AppendLoop(HatchLoopTypes.Default, New ObjectIdCollection({acPoly.ObjectId}))
acHatch.EvaluateHatch(True)
acHatch.ColorIndex = 1

Dim acBlkTblRec As Autodesk.AutoCAD.DatabaseServices.BlockTableRecord = CType(trans.GetObject(GCBZ, OpenMode.ForWrite), Autodesk.AutoCAD.DatabaseServices.BlockTableRecord)
acBlkTblRec.AppendEntity(acPoly)
trans.AddNewlyCreatedDBObject(acPoly, True)
acBlkTblRec.AppendEntity(acHatch)
trans.AddNewlyCreatedDBObject(acHatch, True)

这段代码做了以下几件事情：

1. 创建了一个名为 `GCBZ` 的块。
2. 创建了一个 `Polyline` 对象，表示三角形，并将其添加到模型空间中。
3. 创建了一个填充对象 `Hatch`，将其填充为图案，并将其添加到模型空间中。
4. 将 `Polyline` 和 `Hatch` 对象添加到块中。

注意，这段代码假设当前的事务对象为 `trans`，并且当前的 `cadDoc` 对象为 AutoCAD 文档对象。如果您需要在不同的上下文中运行此代码，请相应地更改变量的定义。