VB.NET 應用程式層級巨集程式碼範例

在 IDE 中，對該方法使用下列程式碼：

Public
Sub MyFirstMacroAppVB()    
Dim
baseVec As Autodesk.Revit.DB.XYZ = Application.Create.NewXYZ(1.0,
0.0, 0.0)Dim
upVec As Autodesk.Revit.DB.XYZ = Application.Create.NewXYZ(0.0,
0.0, 1.0)Dim
origin As Autodesk.Revit.DB.XYZ = 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
strText As String = "My First Macro, App Level, VB.NET!"Dim
lineWidth As Double = 4.0 / 12.0Dim
pView As Autodesk.Revit.DB.View = ActiveUIDocument.Document.ActiveViewDim
Transaction As Autodesk.Revit.DB.Transaction = New Autodesk.Revit.DB.Transaction(ActiveUIDocument.Document, "NewTextNote")Transaction.Start()ActiveUIDocument.Document.Create.NewTextNote(pView,
origin, baseVec, upVec, lineWidth, align, strText)Transaction.Commit()
End Sub

請注意，由於這個應用程式層級巨集是撰寫用於修改文件，因此必須開始一個處置 (Transaction.Start()) 並結束該處置 (Transaction.Commit())，巨集才能正確執行。

提示: 請務必先在 Revit 巨集 IDE 中建立專案，然後再嘗試從巨集管理員加以執行。

以此範例而言，當您在 Revit 巨集 IDE 中建立專案時，請注意您所建立的是 AppVisualBasic 專案。您的應用程式層級 VB.NET 巨集的程式碼位於 ThisApplication.vb 中。您可以使用 IDE 的專案瀏覽器來查看其在磁碟上的位置。若要執行新建立的巨集，請在巨集管理員中選取它並按一下「執行」。然後，如果需要，請在作用中視圖按一下右鍵，然後從功能表選取「縮放至佈滿」，以查看您的巨集所加入的文字註釋。

已放置巨集的文字方塊