DemandLoadARXApp Example

Using Programming Languages other than VBA

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

	Dim preferences As AcadPreferences
	Dim currDemandLoadARXApp As Integer
	Dim constant As String
	Dim newConstant As String

	Set preferences = ThisDrawing.Application.preferences

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

	' Change the value for DemandLoadARXApp
	newConstant = acDemandLoadCmdInvoke
	preferences.OpenSave.DemandLoadARXApp = acDemandLoadCmdInvoke
	MsgBox "The new value for DemandLoadARXApp is " & newConstant, vbInformation, "DemandLoadARXApp Example"

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

 

   Comments?