Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 118.500 registrovaných u nás, celkem 1.096.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
CAD tip # 7643:
Otázka
A
Chcete-li do kusovníku přidat vlastní díl s uvedením normy, resp. doplnit do Obsahového centra vlastní "normalizovaný" prvek, může být potřeba mu nastavit nebo změnit vlastnost "Norma" (Standard). Protože změnu této vlastnosti standardní dialog iVlastnosti nenabízí, můžete k provedení tohoto nastavení použít následující jednoduché VBA makro:
Sub SetStandard() Dim oProp As Inventor.Property Set oProp = ThisApplication.ActiveDocument.PropertySets _ ("{32853F0F-3444-11D1-9E93-0060B03C1CA6}")("Standard") oProp.Value = InputBox("Zadej novou hodnotu normy", , oProp.Value) End Sub
Makro zkopírujte v prostředí součásti do VBA kódu aktuálního dokumentu/součásti (Nástroje > Možnosti > Editor VBA > Projekt Dokumentu > ThisDocument > View > Code (F7)) a spusťte jej šipečkou nebo klávesou F5.
V kusovníku (rozpisce) pak zobrazte iVlastnost "Norma" ("Standard").
platí pro: Inventor ·