Sub CursorSize_Example()
' This example demonstrates the CursorSize property
Dim currCursorSize As Integer
Dim newCursorSize As Integer
Dim myPrefs As AcadPreferences
Set myPrefs = ThisDrawing.Application.preferences
' Retrieve the current CursorSize value
currCursorSize = myPrefs.Display.CursorSize
MsgBox "The current value for CursorSize is " & currCursorSize
' Change the value for CursorSize
newCursorSize = 15
myPrefs.Display.CursorSize = newCursorSize
MsgBox "The new value for CursorSize is " & newCursorSize
' Reset CursorSize to its original value
myPrefs.Display.CursorSize = currCursorSize
MsgBox "The CursorSize value is reset to " & currCursorSize
End Sub
| Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |