CAD tip # 13919:

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