VB.NET 文档级宏代码示例

在 IDE 中，使用该 VB.NET 方法将放置了宏的文本框添加到活动视图。

在 IDE 中，使用以下方法代码：

Public
Sub MyFirstMacroDocVB()
Dim
baseVec As Autodesk.Revit.DB.XYZ = Document.Application.Create.NewXYZ(1.0,
0.0, 0.0)Dim
upVec As Autodesk.Revit.DB.XYZ = Document.Application.Create.NewXYZ(0.0,
0.0, 1.0)Dim
origin As Autodesk.Revit.DB.XYZ = Document.Application.Create.NewXYZ(0.0,
0.0, 0.0)Dim
align As Autodesk.Revit.DB.TextAlignFlags = Autodesk.Revit.DB.TextAlignFlags.TEF_ALIGN_LEFT
Or Autodesk.Revit.DB.TextAlignFlags.TEF_ALIGN_TOPDim
pView As Autodesk.Revit.DB.View = Document.ActiveView Dim
Transaction As Autodesk.Revit.DB.Transaction = New Autodesk.Revit.DB.Transaction(Document, "NewTextNote")Transaction.Start()Document.Create.NewTextNote(pView,
origin, baseVec, upVec, lineWidth, align, strText)Transaction.Commit()
End Sub 

提示： 请确保在宏管理器中尝试运行您的项目之前，先在 Revit 宏 IDE 中构建该项目。

对于该示例，在 Revit 宏 IDE 中构建项目时，请注意构建的是 DocVisualBasic 项目，且文档级 VB.NET 宏的代码位于 ThisDocument.vb 中。 可使用 IDE 的项目浏览器查看其在磁盘上的临时位置。 请记住，保存 RVT 文件后，用于成功构建文档级宏的代码将存储在 RVT 文件中。 退出 Revit 时，项目文件将从临时位置中被删除。

宏已放置了文本框