06-14-2022
09:58 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-14-2022
09:58 AM
Hi @Cadderman
Something like this should work. The first example sets the list and uses an input box (rather than a form) ... but if you had the form and list already set up you could use something like the 2nd example.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
1st example
oTrigger = ProductConfig MultiValue.SetList("ProductConfig", "Product Type 1", "Product Type 2") oInput = InputListBox("Prompt", MultiValue.List("ProductConfig"), _ "", "iLogic", "List") If oInput = "" Then Return 'exit rule Dim oDoc As Document Dim oDef As ComponentDefinition oDoc = ThisApplication.ActiveDocument oDef = oDoc.ComponentDefinition oDef.RepresentationsManager.DesignViewRepresentations.Item(oInput).Activate oDef.RepresentationsManager.PositionalRepresentations.Item(oInput).Activate ThisApplication.ActiveView.Fit
2nd example
Dim oDoc As Document Dim oDef As ComponentDefinition oDoc = ThisApplication.ActiveDocument oDef = oDoc.ComponentDefinition oDef.RepresentationsManager.DesignViewRepresentations.Item(ProductConfig).Activate oDef.RepresentationsManager.PositionalRepresentations.Item(ProductConfig).Activate ThisApplication.ActiveView.Fit