Zobrazit plnou verzi příspěvku: SMAZÁNÍ uživatelské IVLATNOSTI

Lukáš Záruba
28.01.2019, 14:03
Zdravím,Mám napsaný ilogic, který mi nejprve vytvoří a vyplní požadované parametry a pak i ivlatnosti. Potřeboval bych však na začátek tohoto pravidla napsat něco jako:Smaž ivlastnost "prednazev"         ivlastnost "prednazev2"         .... Prostě potřebuji vymazat staré a již nepoužívané ivlastnosti.Aktuální pravidlo je ve zkratce níže:Dim part As PartDocument = ThisDoc.Document
Dim userParams = part.ComponentDefinition.Parameters.UserParameters
Dim p As Inventor.Parameter
Try
p = userParams("R1")
Catch
p = userParams.AddByValue("R1", 0, "mm")
End Try
p.Comment = "NADPIS - ROZM�R"

Try
p = userParams("PR1")
Catch
p = userParams.AddByValue("PR1", 0, "mm")
End Try
p.Comment = "POPIS - ROZM�R"


Dim propertyName As String = "N1"
Dim propertyValue As String = ""

customPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties")
Try
prop = customPropertySet.Item(propertyName)
Catch
customPropertySet.Add("", propertyName)
End Try

Try
prop = customPropertySet.Item("PR1")
Catch
customPropertySet.Add(" ","PR1")
End Try

Try
prop = customPropertySet.Item("PR1-M")
Catch
customPropertySet.Add(" ","PR1-M")
End Try

Try
prop = customPropertySet.Item("R1")
Catch
customPropertySet.Add(" ","R1")
End Try

Try
prop = customPropertySet.Item("R1-M")
Catch
customPropertySet.Add(" ","R1-M")
End Try
End Try