En el IDE, utilice este código para crear una macro para añadir una nota de texto a la vista.
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
Tenga en cuenta que, dado que esta macro de nivel de aplicación tiene la finalidad de modificar un documento, debe iniciar una transacción (Transaction.Start()) y finalizarla (Transaction.Commit()) para que la macro se ejecute debidamente.
En este ejemplo, cuando genere el proyecto en el IDE de macros de Revit, tenga en cuenta que está creando el proyecto AppVisualBasic. El código de su macro VB.NET a nivel de aplicación reside en ThisApplication.vb. Puede utilizar el Explorador de proyectos del IDE para ver su ubicación en el disco. Para ejecutar su macro recién creada, selecciónela en el Administrador de macros y haga clic en Ejecutar. A continuación, si es necesario, haga clic con el botón derecho en la vista activa y seleccione Ajustar en ventana en el menú para ver la nota de texto añadida por la macro.
El cuadro de texto colocado por la macro