Dim oParams As Parameters
Dim oPartDoc As PartDocument = ThisDoc.Document
Dim oPartCompDef As PartComponentDefinition = oPartDoc.ComponentDefinition
oParams = oPartCompDef.Parameters
Dim ParaExist As Boolean = False

Dim oUserParams As UserParameters = oParams.UserParameters

Try
	For i = 1 To oParams.Count
		If oParams(i).Name = "POLOTOVAR" Then
			ParaExist = True
			Exit For
		End If
	Next
Catch

End Try


MessageBox.Show(ParaExist, "Existence parametru POLOTOVAR")

If ParaExist = True Then
	Parameter.Param("POLOTOVAR").Delete
End If

Try
  p = Parameter("POLOTOVAR")
Catch
  oUserParams.AddByValue("POLOTOVAR","", UnitsTypeEnum.kTextUnits)
  MultiValue.SetList("POLOTOVAR",
  "PLECH",
  "JAKL",
  "TRUBKA 4HR",
  "TRUBKA OBD",
  "TYC PLOCHA",
  "TYC KULATA",
  "TYC ZAVITOVA (DIN 975)"
  )
End Try

S pozdravem Martin Krupička, CAD Studio