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

В IDE этот метод VB.NET используется для размещения текстового поля из макроса на активном виде.

В IDE для метода используйте следующую программу:

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
Совет: Не забудьте скомпоновать проект в Revit macro IDE перед его запуском из Диспетчера макросов.

В данном примере при компоновке проекта в Revit macro IDE обратите внимание на то, что выполняется компоновка проекта DocVisualBasic, и программа пользовательского макроса уровня документа на языке VB.NET находится в файле ThisDocument.vb. Можно воспользоваться Проводником проектов IDE для просмотра его временного местоположения на диске. Следует помнить, что тексты успешно скомпонованных макросов уровня документа сохраняются в файле RVT после сохранения этого файла. Файлы проекта удаляются из временной папки, когда пользователь выходит из приложения Revit.

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