Diskuzní fórum, poradna

archiv

   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 

Autor	Zpráva Najít Téma Možnosti tématu Odpovědět Vytvořit nové téma Verze pro tisk Přeložit Téma
Lukáš Záruba Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 02.lis.2007 Lokalita: ČR (SČ) Používám: inventor 2015 Stav: Offline Bodů: 429	Téma: SMAZÁNÍ uživatelské IVLATNOSTI Zasláno: 28.led.2019 v 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
	Budu rád za radu i případně všelijaké postřehy.

Příbuzné CAD tipy:
Tip 9080:		Jak se nejrychleji zbavit proxy objektů v DWG výkresu?
Tip 13356:		Obnovení poslední smazané entity v DWG.
Tip 11292:		Revit - Smazání všech podlaží z projektu.
Tip 7827:		Jak v Revitu vymazat více materiálů najednou?
Tip 1278:		Proč nemohu vymazat prázdnou hladinu?
Tip 11594:		Uživatelské přizpůsobení sloupců tabulky ohybů (iLogic)

Diskuzní fórum, poradna

?CAD diskuze, rady, výměna zkušeností

SMAZÁNÍ uživatelské IVLATNOSTI

?
CAD diskuze, rady, výměna zkušeností