um alle verfügbaren Befehle zu finden kannst du die durchlaufen:
For Each cmd As Inventor.ControlDefinition In invApp.CommandManager.ControlDefinitions
Debug.Print(cmd.InternalName & " - " & cmd.DisplayName)
Next
...
PartExtrudeCmd - Extrusion
...
und starten:
Dim extrudeCmd As Inventor.ControlDefinition
extrudeCmd = invApp.CommandManager.ControlDefinitions.Item("PartExtrudeCmd")
extrudeCmd.Execute()
------------------
MfG
Krzysztof
Ma. Eng.
Gelsenkirchen
[Diese Nachricht wurde von IT-CAD-CAE am 06. Jul. 2026 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP