Keytech Befehl via Inventor-VBA ausführen:

-------------------------------------------------------------------------------------
1. Dieses Skript in der IDE (ALT+F11, Modules) ausführen
-------------------------------------------------------------------------------------

Private Sub GetCommandManagerObject()

    Dim CommandManagerObject As CommandManager
    Set CommandManagerObject = ThisApplication.CommandManager
    
    MsgBox "Eine Stop-Marke wurde gesetzt - Sie können nun durch den CommandManager browsen. (IDE, Watch: CommandManagerObject)", vbInformation + vbOKOnly, "Inventor VBA"
    
    Stop
    
End Sub

-------------------------------------------------------------------------------------
2. Abfrage des WATCH-Fensters und suchen nach dem internen Namen des Befehls
-------------------------------------------------------------------------------------

CommandManagerObject
->UserInputEvents
-->Application
--->UserInterfaceManager
---->Ribbons
----->Item(#) (z.B. InternalName=Assembly)
------>RibbonTabs
------->Item(#) (z.B. InternalName=keytech)
-------->RibbonPanels
--------->item(1)
---------->CommandControls
----------->item(#) (z.B: DisplayName=Lade Zeichnung)
------------>InternalName = %gesuchter Befehl für den CommandManager%

-------------------------------------------------------------------------------------
3. gesuchten Befehl mit CommandManagerEvent ausführen
-------------------------------------------------------------------------------------

Dim oCtrlDef As ControlDefinition ' Get control definition for the command.
Set oCtrlDef = ThisApplication.CommandManager.ControlDefinitions.Item("%gesuchter Befehl für den CommandManager%")
Call oCtrlDef.Execute ' Execute the command.