<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic graphics internal ilogic settings in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/graphics-internal-ilogic-settings/m-p/12072866#M154705</link>
    <description>&lt;P&gt;see working code for one set of options, how can i enable the commented out options?&lt;BR /&gt;&lt;BR /&gt;&lt;/P&gt;&lt;LI-CODE lang="general"&gt;Imports Inventor
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
Imports System.Windows.Forms
Dim olist As New ArrayList

SendKeys.SendWait("{ESC}")
AppActivate(ThisApplication.Caption)

On Error Resume Next
Dim selectCmd As ControlDefinition
    selectCmd = ThisApplication.CommandManager.ControlDefinitions.Item("AppContextual_CancelCmd")
    selectCmd.Execute

olist.Add("kFullGraphicsOptimization")
olist.Add("kDriverGraphicsOptimization")
olist.Add("kRecommendedGraphicsOptimization")
olist.Add("kConservativeGraphicsOptimization")

G = InputListBox("Prompt", olist, G, Title := "Title", ListName := "List")

If G = "Run_Anything" Then
G = InputBox("Prompt", "Run command -(FWxViewCommands)", "AppOpenCommandWindowCmd")
End If

If G = "" Then : Return : Else
	'we know what this is so what are all the other options?
	'ThisApplication.HardwareOptions.GraphicsSettingType = 'kConservativeGraphicsSetting 'kPerformanceGraphicsSetting 'kQualityGraphicsSetting
	
	'GraphicsLevelsOfDetailEnum
		'kCoarseRes
		'kFullScreenHighRes
		'kMediumRes
		'kMereDotRes
		'kVeryCoarseRes
		'kZoomedInHighRes

	'GraphicsDriverTypeEnum
		'kConservativeOpenGLGraphicsDriver
		'kDirect3D10GraphicsDriver
		'kDirect3D11GraphicsDriver
		'kDirect3DGraphicsDriver
		'kOpenGLGraphicsDriver
		'kSoftwareGraphics
	
	ThisApplication.HardwareOptions.GraphicsOptimization = G
End If

InventorVb.DocumentUpdate()&lt;/LI-CODE&gt;</description>
    <pubDate>Fri, 30 Jun 2023 22:08:45 GMT</pubDate>
    <dc:creator>maxim.teleguz</dc:creator>
    <dc:date>2023-06-30T22:08:45Z</dc:date>
    <item>
      <title>graphics internal ilogic settings</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/graphics-internal-ilogic-settings/m-p/12072866#M154705</link>
      <description>&lt;P&gt;see working code for one set of options, how can i enable the commented out options?&lt;BR /&gt;&lt;BR /&gt;&lt;/P&gt;&lt;LI-CODE lang="general"&gt;Imports Inventor
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
Imports System.Windows.Forms
Dim olist As New ArrayList

SendKeys.SendWait("{ESC}")
AppActivate(ThisApplication.Caption)

On Error Resume Next
Dim selectCmd As ControlDefinition
    selectCmd = ThisApplication.CommandManager.ControlDefinitions.Item("AppContextual_CancelCmd")
    selectCmd.Execute

olist.Add("kFullGraphicsOptimization")
olist.Add("kDriverGraphicsOptimization")
olist.Add("kRecommendedGraphicsOptimization")
olist.Add("kConservativeGraphicsOptimization")

G = InputListBox("Prompt", olist, G, Title := "Title", ListName := "List")

If G = "Run_Anything" Then
G = InputBox("Prompt", "Run command -(FWxViewCommands)", "AppOpenCommandWindowCmd")
End If

If G = "" Then : Return : Else
	'we know what this is so what are all the other options?
	'ThisApplication.HardwareOptions.GraphicsSettingType = 'kConservativeGraphicsSetting 'kPerformanceGraphicsSetting 'kQualityGraphicsSetting
	
	'GraphicsLevelsOfDetailEnum
		'kCoarseRes
		'kFullScreenHighRes
		'kMediumRes
		'kMereDotRes
		'kVeryCoarseRes
		'kZoomedInHighRes

	'GraphicsDriverTypeEnum
		'kConservativeOpenGLGraphicsDriver
		'kDirect3D10GraphicsDriver
		'kDirect3D11GraphicsDriver
		'kDirect3DGraphicsDriver
		'kOpenGLGraphicsDriver
		'kSoftwareGraphics
	
	ThisApplication.HardwareOptions.GraphicsOptimization = G
End If

InventorVb.DocumentUpdate()&lt;/LI-CODE&gt;</description>
      <pubDate>Fri, 30 Jun 2023 22:08:45 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/graphics-internal-ilogic-settings/m-p/12072866#M154705</guid>
      <dc:creator>maxim.teleguz</dc:creator>
      <dc:date>2023-06-30T22:08:45Z</dc:date>
    </item>
  </channel>
</rss>

