Gets the PreferencesProfiles object.
Supported platforms: Windows only
The PreferencesProfiles object holds all the options from the Profiles 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_Profiles()
' This example obtains a reference to the Profiles Preferences object
' from the Application Preferences object, and reads one of the Profiles
' preferences
Dim ACADPref As AcadPreferencesProfiles
' Obtain a reference to the Profiles Preferences object
Set ACADPref = ThisDrawing.Application.Preferences.Profiles
MsgBox "You now have access to the properties and methods of the Profiles Preferences object!"
MsgBox "The Profiles preference ActiveProfile is set to: " & ACADPref.ActiveProfile
End Sub
Visual LISP:
(vl-load-com)
(defun c:Example_Profiles()
;; This example obtains a reference to the Profiles Preferences object
;; from the Application Preferences object, and reads one of the Profiles
;; preferences
(setq acadObj (vlax-get-acad-object))
(setq preferences (vla-get-Preferences acadObj))
;; Obtain a reference to the Profiles Preferences object
(alert "You now have access to the properties and methods of the Profiles Preferences object!")
(alert (strcat "The Profiles preference ActiveProfile is set to: " (vla-get-ActiveProfile (vla-get-Profiles preferences))))
)