using Command Manager in VBA

3DAli — Fri, 17 Dec 2021 19:54:12 GMT

Hi There,

I came across this situation and it has puzzled me, if you can share your thoughts and experience, would be greatly appreciated

when I use command manager like below (it could be any command, this is an example)

ThisApplication.CommandManager.ControlDefinitions.Item("GeomToDXFCommand")

if its sitting in a module in VBA and you run it as macro, it works fine without any issue, however , if you insert a userform and place the code in a command button on the form, it wont work, and it wont give you any warning or error as if it's run properly but it does not in fact fire up the command. see below

Private Sub CommandButton1_Click() Dim pd As PartDocument Set pd = ThisApplication.ActiveDocument Dim oDef As PartComponentDefinition Set oDef = pd.ComponentDefinition pd.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Dim F As Face Set F = pd.ComponentDefinition.SurfaceBodies(1).Faces(2) Call pd.SelectSet.Select(F) Dim cd As ButtonDefinition Set cd = ThisApplication.CommandManager.ControlDefinitions.Item("GeomToDXFCommand") ' To void user interaction 'Call ThisApplication.CommandManager.PostPrivateEvent(PrivateEventTypeEnum.kFileNameEvent, "C:\DXF\Test.dxf") Call cd.Execute End Sub

same code works perfectly fine when its place in a module (see below)

any idea as to whether or not this is a normal behavior or if there is any missing steps.

Regards

Ali

Re: using Command Manager in VBA

3DAli — Mon, 20 Dec 2021 18:58:42 GMT

Thanks to @adam.nagy , the user form must be modeless and that solves the issue.

topic Re: using Command Manager in VBA in Inventor Programming Forum

using Command Manager in VBA

Re: using Command Manager in VBA