08-26-2021
07:21 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-26-2021
07:21 AM
'['SET TYPE MULTI TEXT iLogicVb.UpdateWhenDone = True 'check For Parameter and create If Not found Try 'get parameter value (just to see if it exists) oTest = Parameter("TYPE") Catch ' Get the active document. Assumes a part document is active. Dim partDoc As PartDocument partDoc = ThisApplication.ActiveDocument ' Get the UserParameters collection Dim userParams As UserParameters userParams = partDoc.ComponentDefinition.Parameters.UserParameters 'create the parameter oParam = userParams.AddByValue("TYPE","DIN 32676 SERIES 1", UnitsTypeEnum.kTextUnits) End Try 'Set the list MultiValue.SetList("TYPE","DIN 32676 SERIES 1","DIN 32676 SERIES 2 STANDARD", "DIN 32676 SERIES 2 NON STANDARD", "DIN 32676 SERIES 3", "ISO 2037 SERIES 1", "ISO 2037 SERIES 2", "ISO 1127 SERIES 1", "ISO 1127 VARIATIONS","DIN 11850","ASME BPE", "BS 4825-3", "BS SCHEDULE 5", "BS SCHEDULE 10", "BS SCHEDULE 40","MINI SERIES ULTRA BORE IMPERIAL","MINI SERIES ULTRA BORE METRIC","14 MPW TANK","SWG") 'set default value Parameter("TYPE") = "DIN 32676 SERIES 1"