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

'['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"