如何在VBA中调用Inventor命令

通过API可以实现大部分Inventor的功能，但偶尔可能API尚未提供对应功能，或者Inventor的对话框比较复杂，你不想自己也写个对话框，用API实现每个按钮功能。那这时可以考虑直接调用Inventor命令。其实，基本所有在用户界面看到的功能都可以找到对应的命令，包括二次开发创建的命令。如果你写过插件，肯定熟悉如何创建一个按钮，其中有个ControlDefinition对象，它就是所谓的命令容器。通过API你可以获取所有命令列表，例如：

Sub dumpCommands()

'准备一个文本文件用来存储命令信息

Open "c:\temp\inventorcommands.txt" For Output As #1

'遍历每个命令

Dim oEachCol As ControlDefinition

For Each oEachCol In ThisApplication.CommandManager.ControlDefinitions

Write #1, "[命令显示名] " & oEachCol.DisplayName & "[命令内部名] " & oEachCol.InternalName

Next

Close #1

End Sub

所有命令，写入一个文本文件。DisplaName是命令在用户界面显示的名字，若中文版则是中文。而InternName是唯一名，任何版本都一样。当你拿到这样的文本文件，通常可以根据显示名，查找哪个命令可能是你需要的，例如，要弹出【另存文件】的对话框，显示名（我是英文版）是Save Copy，则可查到其内部名是： AppFileSaveCopyAsCmd。

接着，你可以直接调用该命令：

Sub executeCommand()

Dim oTheCol As ControlDefinition

Set oTheCol = ThisApplication.CommandManager.ControlDefinitions("AppFileSaveCopyAsCmd")

'异步执行。只在你自己命令结束后才执行

oTheCol.Execute

'或立即执行

'oTheCol.Execute2 True

End Sub