AfraLisp Blog

The AutoLisp/Visual Lisp/VBA Resource Website

AfraLisp Blog

Home Newsletter Utter Rubbish Coding Tips AutoCAD Tips Contact Downloads WAUN

Would you like to change certain aspects of your AutoCAD display?
Check this out :

'CODING STARTS HERE

Sub Setup_Display()

Dim ACADPref As AcadPreferencesDisplay

'error handler
On Error GoTo Err_Control

'get a reference to the AutoCAD display
Set ACADPref = ThisDrawing.Application.Preferences.Display

'set the cursor size
ACADPref.CursorSize = 5

'switch on the scrollbars
ACADPref.DisplayScrollBars = True

'release display object
Set ACADPref = Nothing

Exit Sub

Err_Control:
MsgBox Err.Number & " - " & Err.Description
Err.Clear
Exit Sub

End Sub

'CODING ENDS HERE

The AutoLisp/Visual Lisp/VBA Resource Website

Copyright 1999-Perpetuity by AfraLisp

All rights reserved.
Information in this document is subject to change without notice.
Site created and maintained by Kenny Ramage

The AutoLisp/Visual Lisp/VBA Resource Website