调用Inventor命令

关注

原创最新推荐文章于 2024-10-06 12:30:00 发布 4.6k 阅读 AI 写同款· GEO 优化 ›

实训项目1.1：宏的录制——如何录制一个简单的宏？实训项目1.1 宏的录制实训目的：熟悉并掌握宏的录制过程问题提出：我们如何在Excel中，用简单的相应命令按钮即能完成操作呢？操作流程：1.首先，当打开Excel界面时，是没有“开发工具”这个选项卡的，因此我们需要手动进行添加。具体步骤为：选择“文件”——“选项”——打开“Excel选项”对话框。在“自定义功能区”中将“主选项卡”列表框中“开发工具”前的复选框选中，如图所示：2.VBA是寄生于已有... 阅读详情

通过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

注意Execute和Execute2的区别。

但有些命令没有显示名，或者实在无法从内部名获取线索。可先启动UserInputEvents.OnActivateCommand事件，在用户界面里手动调用该命令，看.OnActivateCommand触发时出现的命令内部名是什么。例如，假设我们想考察【驱动约束】对话框