I wrote an Add-In that uses custom override environments. These are set when switching to different states in the Add-In to show different commands.
I found a bug in the Factory Design Suite version of Inventor 2012 Professional, 64 bit, Factory Ultimate, Build 160 running on a machine in France.
When I set the override environment, an exception is return with INVALID_ARG.
I tried the same version, and many others here in Canada, and this never happens.
Anyone have any ideas about what might cause this? I'm at an absolute stand-still on this one.
Sorry for reviving this post, but the same error has occured in my project.
When I am trying to set the override environment I am receiving and Argument Exception.
So I tried the API HELP sample for override environments. Same problem here. Any Ideas. Would be great!
Sub AddOverrideEnvironment() ' Make sure a part document is active Dim oPartDoc As PartDocument Set oPartDoc = ThisApplication.ActiveDocument Dim oEnvironments As Environments Set oEnvironments = ThisApplication.UserInterfaceManager.Environments ' Create a new environment Dim oOverrideEnv As Environment Set oOverrideEnv = oEnvironments.Add("Override", "OverrideEnvironment") ' Get the part ribbon Dim oPartRibbon As Ribbon Set oPartRibbon = ThisApplication.UserInterfaceManager.Ribbons.Item(
"Part") ' Create a contextual tab to be used as the default for the override environment Dim oTabOne As RibbonTab Set oTabOne = oPartRibbon.RibbonTabs.Add("Tab One", "TabOne", "ClientId123", "id_TabSheetMetal", True, False) ' Create panels with the tab Dim oPanelOne As RibbonPanel Set oPanelOne = oTabOne.RibbonPanels.Add("Panel One", "PanelOne", "ClientId123") Dim oDef1 As ButtonDefinition Set oDef1 = ThisApplication.CommandManager.ControlDefinitions. Item("PartExtrudeCmd") Call oPanelOne.CommandControls.AddButton(oDef1, True) Dim oPanelTwo As RibbonPanel Set oPanelTwo = oTabOne.RibbonPanels.Add("Panel Two", "PanelTwo", "ClientId123") Dim oDef2 As ButtonDefinition Set oDef2 = ThisApplication.CommandManager.ControlDefinitions. Item("PartRevolveCmd") Call oPanelTwo.CommandControls.AddButton(oDef2, True) Dim strTabs(0) As String strTabs(0) = "TabOne" oOverrideEnv.InheritAllRibbonTabs = False oOverrideEnv.AdditionalVisibleRibbonTabs = strTabs oOverrideEnv.DefaultRibbonTab = "TabOne" ' Set the override environment on the active part oPartDoc.EnvironmentManager.OverrideEnvironment = oOverrideEnv ' --> ARGUMENT EXCEPTION HERE End Sub
Access a broad range of knowledge to help get the most out of your products and services.
Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.
Upgrading to a 2015 product? Make sure to check these out 1st!