Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
 - od firmy Arkance Systems [www.cadforum.cz slaví 20 let]
CZ | SK | EN | DE
Přihlášení
či registrace
  právě nás čte: 17726

CAD tip CAD tip # 13190:

   
Otázka CAD 
 %  platforma  kategorie 
Q - otázka

Vyplňování iVlastností součásti Inventoru hodnotami z číselníku.

A - odpověď V některých případech může být užitečné doplňovat automaticky do iVlastností součástí Inventoru textové hodnoty určené nějakým kódem, zkratkou - tedy vyhledáním daného kódu v číselníku, tedy z "look-up" tabulky. Stačí tak nastavit nebo změnit ve vlastnostech jednoduchý kód a podrobný popis už bude doplněn automaticky. Nebo takto můžete do vlastností (a potažmo do výkresu) přidat poznámku o způsobu zpracování ve výrobě, v závislosti na hodnotě jiné vlastnosti, např. materiálu.

Tento postup pomůže řešit následující iLogic předpis (makro) - slouží jako příklad řešení. Do hodnot tabulky (resp. slovníku, číselníku) "LookUp" si přednastavte párové hodnoty kódu a odpovídajícího popisného textu. Jakmile je pak v zadané iVlastnosti (zde "PartKey") nalezen kód z číselníku, bude do jiné iVlastnosti (zde "Part Stock Description") automaticky vyplněna odpovídající hodnota z číselníku (z LookUp tabulky).

Dim LookUp As New Dictionary(Of String, String)
LookUp.Add("10", "010 STEEL T35E40")
LookUp.Add("20", "020 STEEL T35E42")
LookUp.Add("30", "030 STEEL T35E44")
LookUp.Add("40", "040 STEEL T36E20")
LookUp.Add("50", "050 STOCK")
LookUp.Add("60", "060 STOCK 2")
LookUp.Add("70", "070 STOCK - REF.A")
LookUp.Add("80", "080 STOCK - REF.B")
LookUp.Add("90", "090 EXTERNAL")

Try
 Dim pkey = iProperties.Value("Custom", "PartKey")
 If (LookUp.ContainsKey(pkey)) Then
    iProperties.Value("Custom", "Part Stock Description") = LookUp.Item(pkey)
 End If
Catch 
End Try

Makro můžete nechat automaticky spouštět např. před uložením dokumentu.

Inventor
100% *  CAD 
15.1.2022    2058×  
ilogic inventor materiál součást text vlastnosti výkres zkratka
 
Související CAD produkty:
Ceny - CAD eShop:
platí pro: Inventor ·

Zpět   Všechny další tipy



Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy Arkance Systems.
Můžete si také přidat odkaz na vaše stránky: CAD Fórum - diskuze, tipy, bloky a utility
CAD:    OS:    Kateg: 
Text:  FAQ   






Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (Arkance Systems CZ s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů.
Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení.
Další publikování obsahu je dovoleno jen se souhlasem autora.
TOPlist