CursorSize Example

Using Programming Languages other than VBA

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

	Dim preferences As AcadPreferences
	Dim currCursorSize As Integer
	Dim newCursorSize As Integer

	Set preferences = ThisDrawing.Application.preferences

	' Retrieve the current CursorSize value
	currCursorSize = preferences.DISPLAY.CursorSize
	MsgBox "The current value for CursorSize is " & currCursorSize, vbInformation, "CursorSize Example"

	' Change the value for CursorSize
	newCursorSize = 10
	preferences.DISPLAY.CursorSize = newCursorSize
	MsgBox "The new value for CursorSize is " & newCursorSize, vbInformation, "CursorSize Example"

	' Reset CursorSize to its original value
	preferences.DISPLAY.CursorSize = currCursorSize
	MsgBox "The CursorSize value is reset to " & currCursorSize, vbInformation, "CursorSize Example"
End Sub