Sub AddCommandsToFileBrowser()
' Get the application menu controls collection
Dim oFileBrowserControls As CommandControls
Set oFileBrowserControls = ThisApplication.UserInterfaceManager.FileBrowserControls
' Get the "Zoom All" and "Home View" commands
Dim oDef1 As ButtonDefinition
Set oDef1 = ThisApplication.CommandManager.ControlDefinitions.Item("AppZoomAllCmd")
Dim oDef2 As ButtonDefinition
Set oDef2 = ThisApplication.CommandManager.ControlDefinitions.Item("AppIsometricViewCmd")
' Create button controls, positioned before the "Manage" control
Call oFileBrowserControls.AddButton(oDef1, True, True, "Manage", True)
Call oFileBrowserControls.AddButton(oDef2, True, True, "Manage", True)
Call oFileBrowserControls.AddSeparator("Manage", True)
Solved! Go to Solution.
Solved by jdkriek. Go to Solution.
You'll likely get better help for programming type questions in the Inventor Customization forum.
I couldn't find anything in the help that lists command names. Perhaps you could write a for each loop that runs through the entire ControlDefinitions collection and outputs each name to the immediate window?
Can't find what you're looking for? Ask the community or share your knowledge.