Using Programming Languages other than VBA

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

	Dim preferences As AcadPreferences
	Dim currAutoSaveInterval As Integer
	Dim newAutoSaveInterval As Integer

	Set preferences = ThisDrawing.Application.preferences

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

	' Change the value for AutoSaveInterval
	If currAutoSaveInterval = 0 Then
		newAutoSaveInterval = 10
	Else
		newAutoSaveInterval = 0
	End If
	preferences.OpenSave.AutoSaveInterval = newAutoSaveInterval
	MsgBox "The new value for AutoSaveInterval is " & newAutoSaveInterval, vbInformation, "AutoSaveInterval Example"

	' Reset AutoSaveInterval to its original value
	preferences.OpenSave.AutoSaveInterval = currAutoSaveInterval
	MsgBox "The AutoSaveInterval value is reset to " & currAutoSaveInterval, vbInformation, "AutoSaveInterval Example"

 End Sub

 





Internal Server Error
The server encountered an internal error or
misconfiguration and was unable to complete
your request.
Please contact the server administrator at 
 webmaster@entercad.forsenergy.ru to inform them of the time this error occurred,
 and the actions you performed just before this error.
More information about this error may be available
in the server error log.
Additionally, a 500 Internal Server Error
error was encountered while trying to use an ErrorDocument to handle the request.