multisim120 通过Automation API 用VB语言导出BOM

以下是使用VB语言在Multisim 12.0中通过Automation API导出BOM的示例代码：

' 创建Multisim应用程序对象
Dim app As Object
Set app = CreateObject("Multisim.Application")

' 打开Multisim设计文件
Dim doc As Object
Set doc = app.Documents.Open("C:\path\to\design.nms")

' 获取BOM对象
Dim bom As Object
Set bom = doc.BOM

' 获取BOM数据
Dim data As String
data = bom.ExportToText()

' 将BOM数据写入文件
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim file As Object
Set file = fso.CreateTextFile("C:\path\to\bom.txt", True)
file.Write data
file.Close

' 关闭设计文件和应用程序对象
doc.Close
app.Quit

该代码使用Multisim Automation API打开指定的Multisim设计文件，获取BOM对象并导出BOM数据，最后将数据写入指定的文件中。可以根据需要修改文件路径和名称