Программа ожидает завершения вызова 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

Итак, у меня получилось работать с определением двух новых потоков с адресом двух моих подпрограмм, которые я хочу запустить одновременно.А затем запустили обе темы.

Это код:

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