Display "Extrude" dialog box using a Inventor VBA Macro

[isocam]

Can anybody help?

Does anybody know how to display the "Extrude" dialog box using a Inventor VBA Macro?

Please see the attached picture.

Many thanks in advance!!!!

Darren

[bshbsh]

call:

ThisApplication.CommandManager.ControlDefinitions.Item("PartExtrudeCmd").Execute

[isocam]

The code, shown below, shows the extrude description (help) dialog box rather than the extrude dialog box that I am after. Do I need to select the extrusion firstly and if so, how?

Kindest Regards

Darren

[bradeneuropeArthur]

Public Sub ExtrudeWithDialog()
Dim CmdMan As ControlDefinition
    Set CmdMan = ThisApplication.CommandManager.ControlDefinitions.Item("PartDMExtrudeCmd")
    'PartDMExtrudeCmd
    CmdMan.Execute
        CmdMan.Execute2 (True)

End Sub

This shows the same behavior as in default inventor!

Regards,

Autodesk Software: Inventor Professional 2018 | Vault Professional 2018 | Autocad Mechanical 2018
Programming Skills: Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Dimension Component! | Partlist Export! | Derive I-properties! | Vault Prompts Via API! | Vault Handbook/Manual!
Drawing Toggle Sheets! | Vault Defer Update!

! For administrative reasons, please mark a "Solution as solved" when the issue is solved !