topic Betreff: Context Menu dropdown? in Inventor Programming Forum

Context Menu dropdown?

spencer — Mon, 25 Mar 2024 20:19:25 GMT

I'm trying to add a dropdown menu to my right-click menu but I'm at a loss.

I'm looking to take the "Laser, Mill, Sol's" commands and put them in a flyout menu exactly like the BOM Structure commands.

I thought it might have just been using the "AddButtonPopup" function but that throws an error when I tried to add an object collection of those 3 button definitions. Not sure that style button can't be added to the context menu of if I messed up the function somehow.

Betreff: Context Menu dropdown?

etaCAD — Mon, 25 Mar 2024 21:31:02 GMT

For former versions of Inventor this was not possible to add a dropdown in a context menu.

I think it is still not possible in newer versions.

回复： Context Menu dropdown?

yuzeaa — Tue, 26 Mar 2024 01:15:08 GMT

Take a look at this post.

回复： Context Menu dropdown?

spencer — Wed, 27 Mar 2024 13:58:29 GMT

Still getting an error when I do it the way described in that post, happens when right-click and it tries to add the controls to the command bar. I even downloaded the .rar to look through that code and mine is functionally identical for all I can tell (My buttons are defined elsewhere and put into a 'contextButtons' list)

AddHandler m_inventorApplication.CommandManager.UserInputEvents.OnContextMenu, Sub(SelectionDevice As Inventor.SelectionDeviceEnum, AdditionalInfo As Inventor.NameValueMap, CommandBar As Inventor.CommandBar) If m_inventorApplication.ActiveDocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then Dim SelectedEntities As SelectSet = m_inventorApplication.ActiveDocument.SelectSet If SelectedEntities.Count > 0 Then If TypeOf SelectedEntities(1) Is ComponentOccurrence Then Dim CategoryButtons As CommandBar = m_inventorApplication.UserInterfaceManager.CommandBars.Add("Category", "CategoryCmd", CommandBarTypeEnum.kButtonPopupCommandBar) CategoryButtons.Controls.AddButton(contextButtons("Laser")) CategoryButtons.Controls.AddButton(contextButtons("Mill")) CategoryButtons.Controls.AddButton(contextButtons("Sol's")) CommandBar.Controls.AddPopup(CategoryButtons) End If End If End If End Sub

回复： Context Menu dropdown?

yuzeaa — Wed, 27 Mar 2024 16:08:15 GMT

you can't define commandbar with same internalname everytime rightclick.

Class ThisRule Dim contextButtons As New Dictionary(Of String,ButtonDefinition) Private CategoryButtons As CommandBar Sub main Dim oControls = ThisApplication.CommandManager.ControlDefinitions contextButtons.Add("Laser", oControls.AddButtonDefinition("Laser", "LaserCmd", CommandTypesEnum.kShapeEditCmdType)) contextButtons.Add("Mill", oControls.AddButtonDefinition("Mill", "MillCmd", CommandTypesEnum.kShapeEditCmdType)) contextButtons.Add("Sol's", oControls.AddButtonDefinition("Sol's", "Sol'sCmd", CommandTypesEnum.kShapeEditCmdType)) CategoryButtons =ThisApplication.UserInterfaceManager.CommandBars.Add("Category", "CategoryCmd", CommandBarTypeEnum.kPopUpCommandBar) CategoryButtons.Controls.AddButton(contextButtons("Laser")) CategoryButtons.Controls.AddButton(contextButtons("Mill")) CategoryButtons.Controls.AddButton(contextButtons("Sol's")) AddHandler ThisApplication.CommandManager.UserInputEvents.OnContextMenu, AddressOf OnContextMenu End Sub Private Sub OnContextMenu(SelectionDevice As SelectionDeviceEnum, AdditionalInfo As NameValueMap, CommandBar As CommandBar) If ThisApplication.ActiveDocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then Dim SelectedEntities As SelectSet = ThisApplication.ActiveDocument.SelectSet If SelectedEntities.Count > 0 Then If TypeOf SelectedEntities(1) Is ComponentOccurrence Then CommandBar.Controls.AddPopup(CategoryButtons) End If End If End If End Sub End Class

回复： Context Menu dropdown?

spencer — Wed, 27 Mar 2024 19:36:46 GMT

Ah, didn't realize that was the case and it's working perfectly now, thanks.