W środowisku IDE użyj przedstawionego poniżej kodu jako metody:
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
Należy zauważyć, że ponieważ to makro poziomu aplikacji jest napisane w celu zmodyfikowania dokumentu, trzeba rozpocząć transakcję (Transaction.Start () ) i zakończyć transakcję (Transaction.Commit ()), aby zapewnić prawidłowe działanie makra.
W tym przykładzie należy zauważyć, że podczas budowania projektu w środowisku Revit macro IDE, zostaje zbudowany projektAppVisualBasic. Kod makra VB.NET poziomu aplikacji znajduje się w projekcie ThisApplication.vb. Za pomocą Eksploratora projektów środowiska IDE można sprawdzić jego położenie na dysku. Aby uruchomić zbudowane właśnie makro, wybierz je w Menedżerze makr i kliknij przycisk Uruchom. Następnie, jeśli to konieczne, kliknij prawym przyciskiem myszy w aktywnym widoku i wybierz z menu opcję Dopasuj do okna, aby zobaczyć notatkę tekstową dodaną za pomocą makra utworzonego przez użytkownika.
Pole tekstowe wstawione przez makro