CAD tip # 12519:

Pro nastavení použijte tento předpis - požadovaný režim zobrazení zvolte z výčtového seznamu DisplayModeEnum, název režimu osvětlení pak z lokalizovaného názvu v nabídce ribbonu Vzhled v Inventoru:

' Display style/mode:
Dim oView As View = ThisApplication.ActiveView
oView.DisplayMode = DisplayModeEnum.kTechnicalIllustrationRendering
' kShadedWithEdgesRendering, kWatercolorRendering, etc.
oView.Update

' Lighting style:
newLighting = "Mřížkované světlo" ' Alpy, Dvě světla, Fotokabina, Starý sklad, etc.
Dim oDoc As Document = ThisApplication.ActiveDocument
If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
 Dim oAssy As AssemblyDocument = oDoc 
 oAssy.ActiveLightingStyle = oAssy.LightingStyles.Item(newLighting)
Else If oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
 Dim oPart As PartDocument = oDoc 
 oPart.ActiveLightingStyle = oPart.LightingStyles.Item(newLighting)
End If