topic Menu Item not showing up in environemnts in Inventor Programming Forum

Menu Item not showing up in environemnts

Anonymous — Wed, 12 Jul 2006 23:16:08 GMT

I have an addin that should show up in several environments but it only
seems to show up in the part environment..

Also, how do you position the menu item at the same level in each menu (for
example right above Add-in or Macros...)

If FirstTime = True Then

'create a new toolbar
'Dim oCommandBarAutoSaveDWF As CommandBar
'Set oCommandBarAutoSaveDWF =
oApp.UserInterfaceManager.CommandBars.Add("AutoSaveDWF", _
"AutoSaveDWFToolbarIntName", ,
"{D2D356B7-DF5D-4E09-8536-B3190036E869}")

'add the buttons to the toolbar
'oCommandBarAutoSaveDWF.Controls.AddButton oButtonDefAutoSaveDWF

' Find the command bar of the "Tools" pop-up menu.
Dim oUIManager As UserInterfaceManager
Set oUIManager = oApp.UserInterfaceManager
' Create a command bar of a pop-up type for a flyout.
Dim oFlyOutCmdBar As CommandBar
Set oFlyOutCmdBar = oUIManager.CommandBars.Add("AutoDWF", _
"FlyoutCmdBar", kPopUpCommandBar,
"{D2D356B7-DF5D-4E09-8536-B3190036E869}")

' Add 1 button to the fly-out command bar.
Call oFlyOutCmdBar.Controls.AddButton(moShadyBobUtilBar2)

Dim oMenuPopupCmdBar As CommandBar
Set oMenuPopupCmdBar = oUIManager.CommandBars.Item("AppToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar = oUIManager.CommandBars.Item("AssemblyToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar =
oUIManager.CommandBars.Item("DrawingMangerToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar = oUIManager.CommandBars.Item("NotebookToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar =
oUIManager.CommandBars.Item("PartFeatureToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar = oUIManager.CommandBars.Item("PartToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar =
oUIManager.CommandBars.Item("PresentationToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)

End If

Thanks, -Sean

Re: Menu Item not showing up in environemnts

Anonymous — Wed, 12 Jul 2006 23:47:45 GMT

Sean,

<
seems to show up in the part environment..>>

I'm not sure I understand. From your code, it does seem like you are doing
the right thing by getting the "Tool" menus from all environments and adding
your flyout to all of them. I tested your code and it does seem to add the
flyout to all environments. Do you not see the item added to the end of the
Tools menu in all environments? Perhaps you are running into some 'first
time' related issues and the code in your 'If FirstTime = True' block is not
being executed?

< (for
example right above Add-in or Macros...)>>

You need to use the second argument in the CommandBarControls.AddPopup
method. The argument requires the index of the control before which to add
the new control. For instance, if you want to add your control before the
"Add-Ins..." item:

Dim oMenuPopupCmdBar As CommandBar
Set oMenuPopupCmdBar = oUIManager.CommandBars.Item("AppToolsMenu")

'Get the "Add-Ins" control using its internal name
Dim oAddInsControl As CommandBarControl
Set oAddInsControl = oMenuPopupCmdBar.Controls.Item("AppAddInManagerCmd")

'Add the new item before the Add-Ins control
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar, oAddInsControl.index)

Sanjay-

"Sean Dotson" wrote in message
news:5235271@discussion.autodesk.com...
I have an addin that should show up in several environments but it only
seems to show up in the part environment..

Also, how do you position the menu item at the same level in each menu (for
example right above Add-in or Macros...)

If FirstTime = True Then

'create a new toolbar
'Dim oCommandBarAutoSaveDWF As CommandBar
'Set oCommandBarAutoSaveDWF =
oApp.UserInterfaceManager.CommandBars.Add("AutoSaveDWF", _
"AutoSaveDWFToolbarIntName", ,
"{D2D356B7-DF5D-4E09-8536-B3190036E869}")

'add the buttons to the toolbar
'oCommandBarAutoSaveDWF.Controls.AddButton oButtonDefAutoSaveDWF

' Find the command bar of the "Tools" pop-up menu.
Dim oUIManager As UserInterfaceManager
Set oUIManager = oApp.UserInterfaceManager
' Create a command bar of a pop-up type for a flyout.
Dim oFlyOutCmdBar As CommandBar
Set oFlyOutCmdBar = oUIManager.CommandBars.Add("AutoDWF", _
"FlyoutCmdBar", kPopUpCommandBar,
"{D2D356B7-DF5D-4E09-8536-B3190036E869}")

' Add 1 button to the fly-out command bar.
Call oFlyOutCmdBar.Controls.AddButton(moShadyBobUtilBar2)

Dim oMenuPopupCmdBar As CommandBar
Set oMenuPopupCmdBar = oUIManager.CommandBars.Item("AppToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar = oUIManager.CommandBars.Item("AssemblyToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar =
oUIManager.CommandBars.Item("DrawingMangerToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar = oUIManager.CommandBars.Item("NotebookToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar =
oUIManager.CommandBars.Item("PartFeatureToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar = oUIManager.CommandBars.Item("PartToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)
Set oMenuPopupCmdBar =
oUIManager.CommandBars.Item("PresentationToolsMenu")
' Add the fly-out to the menu pop-up.
Call oMenuPopupCmdBar.Controls.AddPopup(oFlyOutCmdBar)

End If

Thanks, -Sean

Re: Menu Item not showing up in environemnts

Anonymous — Thu, 13 Jul 2006 01:08:12 GMT

Thanks Sanjay. Well it appears the issue was just in R9. It does work in
R10 &11 (who cares about 9 right?)

--
Sean Dotson, PE
RND Automation & Engineering
www.RNDautomation.com
www.mcadforums.com