Gets the PreferencesSystem object.
Supported platforms: Windows only
The PreferencesSystem object holds all the options from the System tab on the Options dialog stored in the registry. All options that are stored with the drawing can be found on the DatabasePreferences object.
VBA:
Sub Example_System() ' This example obtains a reference to the System Preferences object ' from the Application Preferences object, and reads one of the System ' preferences Dim ACADPref As AcadPreferencesSystem ' Obtain a reference to the System Preferences object Set ACADPref = ThisDrawing.Application.Preferences.System MsgBox "You now have access to the properties and methods of the System Preferences object!" MsgBox "The System preference BeepOnError is set to: " & ACADPref.BeepOnError End Sub
Visual LISP:
(vl-load-com) (defun c:Example_System() ;; This example obtains a reference to the System Preferences object ;; from the Application Preferences object, and reads one of the System ;; preferences (setq acadObj (vlax-get-acad-object)) (setq preferences (vla-get-Preferences acadObj)) (alert "You now have access to the properties and methods of the System Preferences object!") (alert (strcat "The System preference BeepOnError is set to: " (if (= (vla-get-BeepOnError (vla-get-System preferences)) :vlax-true) "True" "False"))) )