Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

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

 

 

Curtis_Waguespack_1-1655225771167.png

 

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