Adam, as it is along the same topic I will just ask here:
Is there any easy way to make the changes persist to ribbon tab changes? I just want to create a rule for deployment that sets up macro buttons, mimicing what the user would do.
Here is the code I'm using to accomplish what I have so far, however; it doesn't persist even though I am using the default "User Commands Tab"
ThisApplication.FileOptions.DefaultVBAProjectFileFullFilename = "X:\CAD Library\iLogic\Default.ivb"
Dim oControlDefinitions As ControlDefinitions = ThisApplication.CommandManager.ControlDefinitions
Dim oMacroControlDef As MacroControlDefinition = oControlDefinitions.AddMacroControlDefinition("Module1.ToggleWorkFeatures")
oMacroControlDef.OverrideShortcut = "Ctrl+D"
Dim oMacroControlDef2 As MacroControlDefinition = oControlDefinitions.AddMacroControlDefinition("Module3.OpenWorkspaceFolder")
Dim oMacroControlDef3 As MacroControlDefinition = oControlDefinitions.AddMacroControlDefinition("Module4.OpenDynaParts")
'Assembly Tab
'[
Dim oAssyToolsTab As RibbonTab = ThisApplication.UserInterfaceManager.Ribbons.Item("Assembly").RibbonTabs.Item("id_TabTools")
Dim oUserCommands As RibbonPanel
Try
oUserCommands = oAssyToolsTab .RibbonPanels.Item("Assembly.id_TabTools.UserCommands")
Catch
oUserCommands = oAssyToolsTab .RibbonPanels.Add("User Commands", "Assembly.id_TabTools.UserCommands", "")
End Try
Dim oCommandControls As CommandControls = oUserCommands.CommandControls
Try
oCommandControls.AddMacro(oMacroControlDef, False, True,,)
oCommandControls.AddMacro(oMacroControlDef2, False, True,,)
oCommandControls.AddMacro(oMacroControlDef3, False, True,,)
MsgBox("Buttons Added! - ASSY")
Catch
MsgBox("Button Add Failure! - ASSY")
End Try
']
'Drawing
'[
Dim oDwgToolsTab As RibbonTab = ThisApplication.UserInterfaceManager.Ribbons.Item("Drawing").RibbonTabs.Item("id_TabTools")
Try
oUserCommands = oDwgToolsTab .RibbonPanels.Item("Drawing.id_TabTools.UserCommands")
Catch
oUserCommands = oDwgToolsTab .RibbonPanels.Add("User Commands", "Drawing.id_TabTools.UserCommands", "")
End Try
oCommandControls = oUserCommands.CommandControls
Try
oCommandControls.AddMacro(oMacroControlDef2, False, True,,)
oCommandControls.AddMacro(oMacroControlDef3, False, True,,)
MsgBox("Buttons Added! - DWG")
Catch
MsgBox("Button Add Failure! - DWG")
End Try
']
'ZeroDoc
'[
Dim oZeroToolsTab As RibbonTab = ThisApplication.UserInterfaceManager.Ribbons.Item("ZeroDoc").RibbonTabs.Item("id_TabTools")
Try
oUserCommands = oZeroToolsTab.RibbonPanels.Item("ZeroDoc.id_TabTools.UserCommands")
Catch
oUserCommands = oZeroToolsTab.RibbonPanels.Add("User Commands", "ZeroDoc.id_TabTools.UserCommands", "")
End Try
oCommandControls = oUserCommands.CommandControls
Try
oCommandControls.AddMacro(oMacroControlDef2, False, True,,)
oCommandControls.AddMacro(oMacroControlDef3, False, True,,)
MsgBox("Buttons Added! - ZeroDoc")
Catch
MsgBox("Button Add Failure! - ZeroDoc")
End Try
']
--------------------------------------
Did you find this reply helpful ? If so please use the 'Accept as Solution' or 'Like' button below.