V integrovaném vývojovém prostředí použijte pro metodu následující kód:
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
Protože je toto makro na úrovni aplikace napsané pro účely úpravy dokumentu, je pro jeho správný průběh potřeba spustit transakci (Transaction.Start()) a ukončit transakci (Transaction.Commit()).
Při sestavování projektu v integrovaném vývojovém prostředí Revit pro makra si všimněte, že v tomto příkladu sestavujete projekt AppVisualBasic. Kód makra na úrovni aplikace v jazyce VB.NET je uložen v souboru ThisApplication.vb. Pomocí nástroje Project Explorer integrovaného vývojového prostředí můžete zjistit jeho umístění na disku. Nově sestavené makro spustíte jeho výběrem ve Správci maker a kliknutím na tlačítko Spustit. Chcete-li zobrazit textovou poznámku přidanou tímto makrem, v případě potřeby klikněte pravým tlačítkem do aktivního pohledu a z nabídky vyberte příkaz Přizpůsobit oknu.
Textové pole umístěné makrem