V integrovaném vývojovém prostředí použijte pro metodu následující kód:
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
Tip: Dříve než makro spustíte ze Správce maker, nezapomeňte sestavit projekt v integrovaném vývojovém prostředí Revit.
V tomto příkladu si při sestavování projektu v integrovaném vývojovém prostředí Revit uvědomte, že sestavujete projekt DocVisualBasic a kód makra na úrovni dokumentu v jazyce VB.NET je uložen v souboru ThisDocument.vb. Pomocí nástroje Project Explorer integrovaného vývojového prostředí můžete zjistit jeho dočasné umístění na disku. Vzpomeňte si, že se kódy úspěšně sestavených maker na úrovni dokumentu ukládají do souboru RVT poté, co soubor RVT uložíte. Při ukončení aplikace Revit se projektové soubory z dočasného umístění odstraní.
Textové pole umístěné makrem