Using a simple iLogic or VBA macro you can switch or set the current Display style and Lighting style in an opened part document (IPT) or assembly (IAM).
To set these styles, use the following rule - choose the requested display style from the enum list DisplayModeEnum, and the lighting style from the localized name in the Appearance tab in the Inventor ribbon:
' Display style/mode:
Dim oView As View = ThisApplication.ActiveView
oView.DisplayMode = DisplayModeEnum.kTechnicalIllustrationRendering
' or kShadedWithEdgesRendering, kWatercolorRendering, etc.
oView.Update
' Lighting style:
newLighting = "Grid Light" ' Alps, Two lights, Photo booth, Old store, 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