调用Inventor命令 - 续

在上次的文章里，我介绍了如何直接调用Inventor命令

http://blog.csdn.net/autodeskinventorapi/article/details/17138055

这在某些情况下能减少点代码，交由Inventor本身的功能完成。对于个别情形没有相关API的功能，这种方法也不失为一种解决方案。但是，这不是万能的，当执行某个命令后，控制权就交由Inventor，基本上是等待用户交互，输入参数，弹出对话框等。某些需求，这样的过程也足够了，例如，以下代码选择了一个拉伸特征，执行弹出【特征编辑】对话框的功能。

Sub editExtrudeF()

    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument
    
    Dim oDef As PartComponentDefinition
    Set oDef = oPartDoc.ComponentDefinition
    
    Dim oEF As ExtrudeFeature
    Set oEF = oDef.Features.ExtrudeFeatures(1)
    
    Dim oSel As SelectSet
    Set oSel = oPartDoc.SelectSet
    
    oSel.Clear
    oSel.Select oEF
    
    ThisApplication.CommandManager.ControlDefinitions(