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").
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:
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.