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 時，將從暫時位置移除專案檔。

已放置巨集的文字方塊