|
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
-------------
Budu rád za radu i případně všelijaké postřehy.
|