Using Programming Languages other than VBA

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

	Dim preferences As AcadPreferences
	Dim currAltTabletMenuFile As String
	Dim newAltTabletMenuFile As String

	Set preferences = ThisDrawing.Application.preferences

	' Retrieve the current AltTabletMenuFile value
	currAltTabletMenuFile = preferences.Files.AltTabletMenuFile
	If currAltTabletMenuFile = "" Then
		MsgBox "AltTabletMenuFile is not currently set.", vbInformation, "AltTabletMenuFile Example"
	Else
		MsgBox "The current value for AltTabletMenuFile is " & currAltTabletMenuFile, vbInformation, "AltTabletMenuFile Example"
	End If

	' Change the value for AltTabletMenuFile
	newAltTabletMenuFile = "d:\acad\support\acad"
	preferences.Files.AltTabletMenuFile = newAltTabletMenuFile
	MsgBox "The new value for AltTabletMenuFile is " & newAltTabletMenuFile, vbInformation, "AltTabletMenuFile Example"

	' Reset AltTabletMenuFile to its original value
	preferences.Files.AltTabletMenuFile = currAltTabletMenuFile
	If currAltTabletMenuFile = "" Then
		MsgBox "AltTabletMenuFile is reset to Null.", vbInformation, "AltTabletMenuFile Example"
	Else
		MsgBox "The AltTabletMenuFile value is reset to " & currAltTabletMenuFile, vbInformation, "AltTabletMenuFile Example"
	End If

 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.