Pokud chcete občas ukládat vaše 3D modely součástí a sestav z Inventoru s náhledy v jednotném prezentačním stylu, popř. i se speciálním firemním pozadím, můžete využít následující iLogic makro, předpis. Pomůže např. při tvorbě jednotné knihovny dílů.
Makro pro toto speciální uložení je potřeba definovat jako externí, aby bylo dostupné ve všech dokumentech (modelech). Jeho vyvolání si můžete přiřadit na ikonku v ribbonu (např. "Ulož v prezentačním režimu"), a to pomocí funkcí v bonus aplikaci T4I. Tu pak můžete použít namísto standardního Ulož kdykoliv budete chtít uložit "hezčí" soubor modelu.
Jednodušší verze iLogic makra s dočasným přepnutím schématu před uložením:
'Save in preset color scheme
Sub Main()
CurrentColorScheme = ThisApplication.ActiveColorScheme.Name
ThisApplication.ColorSchemes.Item("Prezentace").Activate
Call ThisApplication.CommandManager.ControlDefinitions.Item("AppFileSaveCmd").Execute
ThisApplication.ColorSchemes.Item(CurrentColorScheme).Activate
End Sub
Nebo variantní, o něco složitější verze, s vynucenou změnou obrázku na pozadí:
'Save in preset color scheme (bkg)
Sub Main()
Dim CurrentBackground As String = ""
CurrentColorScheme = ThisApplication.ActiveColorScheme.Name
ThisApplication.ColorSchemes.Item("Prezentace").Activate
If ThisApplication.ColorSchemes.BackgroundType = kImageBackgroundType
CurrentBackground = ThisApplication.ActiveColorScheme.ImageFullFileName
ThisApplication.ActiveColorScheme.ImageFullFileName = "c:\Users\USERNAME\bkg\FIRMA-8d2d0b3.png"
End If
Call ThisApplication.CommandManager.ControlDefinitions.Item("AppFileSaveCmd").Execute
If CurrentBackground>"" Then
ThisApplication.ActiveColorScheme.ImageFullFileName = CurrentBackground
End If
ThisApplication.ColorSchemes.Item(CurrentColorScheme).Activate
End Sub