Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

graphics internal ilogic settings

maxim.teleguz
Advocate

graphics internal ilogic settings

maxim.teleguz
Advocate
Advocate

see working code for one set of options, how can i enable the commented out options?

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()
0 Likes
Reply
166 Views
0 Replies
Replies (0)