Je možné napsat na začátek pravidla něco jako:zkontroluj parmetr Xpokud neni tak ho vytvořpokud je tak nic.azkontroluj uživatelskou ivlastnost Ypokud neni, tak ji vytvořpokud je tak nic.Pokud ano, tak jak to napsat?

Test na existenci uděláte nejsnáze přes Try-Catch - viz ukázka Ilogic kódu:https://www.cadforum.cz/cadforum/jak-vytvorit-uzivatelskou-ivlastnost-nebo-parametr-pomoci-ilogic-tip12023

Díky už mi to funguje.Co když budu chtít v jednom pravidle takto nastavit více ivlatvností ? dá se Try-Catch jen zkopírovat , přiřadit jiné názvy a bude to fungovat? nějak takhle:
Dim propertyName As String = "MAT"
Dim propertyValue As String = "PZ"
customPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties")
Try
prop = customPropertySet.Item(propertyName)
Catch
customPropertySet.Add("", propertyName)
End Try



Dim propertyName As String = "POLOTOVAR"
Dim propertyValue As String = "PLECH"

customPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties")
Try
prop = customPropertySet.Item(propertyName)
Catch
customPropertySet.Add("", propertyName) End Trynevím však čím to oddělit.  

Pak už stačí opakovat jen řádky (ničím není třeba oddělovat):[CODE]Try prop = customPropertySet.Item("DalsiVlastnost")Catch customPropertySet.Add("","DalsiVlastnost")End Try[/CODE]

Děkuji za radu ale jak jste to přesně myslel? pořád mi to nefunguje.Try prop = customPropertySet.Item("MAT")Catch customPropertySet.Add("","MAT")End Try prop = customPropertySet.Item("POLOTOVAR")Catch customPropertySet.Add("","POLOTOVAR")End Try

Máte to správně, jen tam chybí ten druhý úvodní "Try" - opakovat se musí celý ten blok Try-End Try.

Velice mi to pomohlo, už mi to funguje.Děkujikdyž bych chtěl založit parametr a zároveň ho "nastavit s více hodnotami" tak to jde taky? a jak to mám napsat?Takhle?Try
p = Parameter("MAT")
Catch
oUserParams.AddByValue("MAT","Neni", UnitsTypeEnum.kTextUnits)
End Try


Try
p = Parameter("POLOTOVAR")
Catch
oUserParams.AddByValue("POLOTOVAR","PLECH", UnitsTypeEnum.kTextUnits)
MultiValue.List("POLOTOVAR","TYČ", "DESKA-PŘÍŘEZ") = MyArrayList
End Try

Ten (před)poslední řádek je nějaký divný, spíš bych zkusil něco jako: [CODE]MultiValue.SetList("POLOTOVAR", "TYČ", "PLECH", "DESKA", "HRANOL")[/CODE]