Using Programming Languages other than VBA

Sub Example_ShowProxyDialogBox()
	' This example returns the current setting of
	' ShowProxyDialogBox. It then changes the value, and finally
	' it resets the value back to the original setting.

	Dim preferences As AcadPreferences
	Dim currShowProxyDialogBox As Boolean

	Set preferences = ThisDrawing.Application.preferences

	' Retrieve the current ShowProxyDialogBox value
	currShowProxyDialogBox = preferences.OpenSave.ShowProxyDialogBox
	MsgBox "The current value for ShowProxyDialogBox is " & preferences.OpenSave.ShowProxyDialogBox, vbInformation, "ShowProxyDialogBox Example"

	' Change the value for ShowProxyDialogBox
	preferences.OpenSave.ShowProxyDialogBox = Not (currShowProxyDialogBox)
	MsgBox "The new value for ShowProxyDialogBox is " & preferences.OpenSave.ShowProxyDialogBox, vbInformation, "ShowProxyDialogBox Example"

	' Reset ShowProxyDialogBox to its original value
	preferences.OpenSave.ShowProxyDialogBox = currShowProxyDialogBox
	MsgBox "The ShowProxyDialogBox value is reset to " & preferences.OpenSave.ShowProxyDialogBox, vbInformation, "ShowProxyDialogBox Example"
End Sub