Inventor files Check in to the vault

[SPALANIAPPANTN47S]

While Running this program , its prompting to click ok. How to do it automatically.

If any ideas, suggest me.

@Anonymous @WCrihfield @Cadmanto 

[SPALANIAPPANTN47S]

While Running this program , its prompting to click ok. How to do it automatically.

Sub Check_In_Test()

ThisApplication.ActiveDocument.Save

Dim CmdMan As ControlDefinition
Set CmdMan = ThisApplication.CommandManager.ControlDefinitions.Item("VaultCheckinTop")
'or useVaultCheckin
' CmdMan.Execute

CmdMan.Execute2 (True)
End Sub

If any ideas, suggest me.

[L.Greft]

If you go to the Vault tab in Inventor and click on "Vault Options", I think the option "Check in Dialog" should work.

[WCrihfield]

Maybe try putting this line after your Execute line.

System.Windows.Forms.SendKeys.SendWait("{ENTER}")

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.

[WCrihfield]

You can also try Executing the following command, similarly to how you are executing the existing command.

"AppContextual_OKCmd"

or

"AppNGX_OKCmd"

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.

[Cadmanto]

@SPALANIAPPANTN47S 

I am not sure if you are looking to do this through iLogic or by natural means.

My suggestion would be to look at the Vault Options within Inventor and see which ones work the best for your situation.

Windows 10 x64 -16GB Ram
Intel i7-6700 @ 3.41ghz
nVidia GTS 250 - 1 GB
Inventor Pro 2021

[SPALANIAPPANTN47S]

Without changing the inventor settings - vault options, How to click the OK button via code

I use app contextual command also but not working..

Sub Check_In_Test()

ThisApplication.ActiveDocument.Save

Dim CmdMan As ControlDefinition
Set CmdMan = ThisApplication.CommandManager.ControlDefinitions.Item("VaultCheckinTop")
'or useVaultCheckin
' CmdMan.Execute

CmdMan.Execute2 (True)

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

End Sub

[SPALANIAPPANTN47S]

@WCrihfield 

[WCrihfield]

   Our company is not currently using Vault, so I'm not that familiar with it.   All I can do in this situation is make educated guesses, based on previous similar situations, without being able to test my theories on my local PC.  So, I may not be much more help on this issue.

   All I know is that I have used both of the codes I posted earlier for other similar situations, and they worked for those situations.  The SendKeys method is often a 'last resort' method, because it can be a little unstable/unpredictable.  In some situations, when I use that method, I had to precede that line of code with another like the following, before it would work.

AppActivate(ThisApplication.Caption)
System.Windows.Forms.SendKeys.SendWait("{ENTER}")

That extra preceding line, as I understood it, was used to return system 'focus' back to the main Inventor application's window, from wherever it was, so that the SendKeys signal was being sent to the correct target.  It's a little complicated, so below I have a couple of links to Microsoft's pages for these methods.

SendKeys Class 

Interaction.AppActivate Method 

(Don't forget to click on the little drop-down list near the top right corner of these webpages and change C# to VB, to the examples will change to vb.net examples.)

Good luck.

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.