Пример текста макроса уровня приложения на VB.NET

В IDE используйте этот код, чтобы создать макрос для добавления к виду текстового примечания.

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 

Следует учитывать, что данная макрокоманда уровня приложения предназначена для изменения документа, поэтому для ее правильной работы необходимо начать транзакцию (Transaction.Start();) и завершить ее (Transaction.Commit();).

Совет: Не забудьте скомпоновать проект в Revit macro IDE перед его запуском из Диспетчера макросов.

В данном примере при компоновке проекта в Revit macro IDE следует учитывать, что выполняется компоновка проекта AppVisualBasic. Пользовательская программа макроса уровня приложения VB.NET находится в файле ThisApplication.vb. Можно воспользоваться Проводником проектов IDE для просмотра его местоположения на диске. Для выполнения только что скомпонованного макроса выберите его в Диспетчере макросов и нажмите "Выполнить". Затем, если требуется, щелкните правой кнопкой мыши на активном виде и выберите в контекстном меню "Вписать" для просмотра текстового примечания, добавленного макросом.

Текстовое поле, размещенное макросом