Již 10.000+ CAD tipů.
Přes 118.500 registrovaných u nás, celkem 1.093.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
CAD tip # 13190:
Otázka
A
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.
platí pro: Inventor ·