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 宏 IDE 中构建该项目。

对于本示例，在 Revit 宏 IDE 中构建项目时，请注意您构建的是 AppVisualBasic 项目。 该应用程序级 VB.NET 宏代码位于 ThisApplication.vb 中。 可使用 IDE 的项目浏览器查看其在磁盘上的位置。要运行新构建的宏，请在宏管理器中选择该宏并单击“运行”。 然后，如有必要，在活动视图中单击鼠标右键，从菜单中选择“缩放匹配”查看该宏添加的文字注释。

宏已放置了文本框