程序等待API调用完成

Question

所以我正在一个项目中，通过这样的Inventor API在Inventor中调用导出窗口：

Dim Commander As CommandManager
Commander = ThisApplication.CommandManager
Dim Controller As ControlDefinition
Controller = Commander.ControlDefinitions.Item("AppFileExportCADFormatCmd")
Call Controller.Execute()

此代码在打开Inventor中的“另存为”窗口时效果很好，但是我的VB程序会挂起

Call Controller.Execute()

直到我关闭“另存为”窗口。

我的目的是打开窗口，然后自动按“保存”按钮，但唯一使我停滞的是“致电”行的“冻结”。

Answer 1

因此，我想用我想同时运行的两个Sub的地址定义两个新线程。然后启动两个线程。

这是代码：

Dim CADFastExportThread As New Thread(AddressOf CADFastExport)
Dim CADFastSaveThread As New Thread(AddressOf CADFastSave)
CADFastExportThread.Start()
CADFastSaveThread.Start()