No IDE, use este código para criar uma macro para adicionar uma nota de texto na 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
Observe que, porque esta macro no nível do aplicativo é escrita para modificar um documento, é preciso iniciar uma transação (Transaction.Start()) e finalizar a transação (Transaction.Commit()) para que ela seja apropriadamente executada.
Para este exemplo, quando você desenvolve o projeto no IDE de macro do Revit, observe que está sendo desenvolvido o projeto AppVisualBasic. Sua codificação de macro VB. NET no nível de aplicativo reside no ThisApplication. vb. É possível usar o Explorador de projetos do IDE para visualizar sua localização no disco. Para executar a macro recém-desenvolvida, selecione-a no Gerenciador de macros e clique em Executar. Em seguida, se necessário, clique com o botão direito na vista ativa, e selecione Zoom para ajustar no menu para visualizar a nota de texto adicionada por sua macro.
A caixa de texto da macro colocada