Specifies whether a startup dialog box is displayed when AutoCAD is launched or a new drawing is created.
Supported platforms: Windows only
VBA:
object.EnableStartupDialog
Type: PreferencesSystem
The object this property applies to.
Read-only: No
Type: Boolean
The initial value for this property is False.
The traditional startup dialog box can be displayed when EnableStartupDialog is True.
VBA:
Sub Example_EnableStartupDialog()
' This example returns the current setting of
' EnableStartupDialog. It then changes the value, and finally
' it resets the value back to the original setting.
Dim preferences As AcadPreferences
Dim currEnableStartupDialog As Boolean
Set preferences = ThisDrawing.Application.preferences
' Retrieve the current EnableStartupDialog value
currEnableStartupDialog = preferences.System.EnableStartupDialog
MsgBox "The current value for EnableStartupDialog is " & preferences.System.EnableStartupDialog, vbInformation, "EnableStartupDialog Example"
' Change the value for EnableStartupDialog
preferences.System.EnableStartupDialog = Not (currEnableStartupDialog)
MsgBox "The new value for EnableStartupDialog is " & preferences.System.EnableStartupDialog, vbInformation, "EnableStartupDialog Example"
' Reset EnableStartupDialog to its original value
preferences.System.EnableStartupDialog = currEnableStartupDialog
MsgBox "The EnableStartupDialog value is reset to " & preferences.System.EnableStartupDialog, vbInformation, "EnableStartupDialog Example"
End Sub
Visual LISP:
(vl-load-com)
(defun c:Example_EnableStartupDialog()
;; This example returns the current setting of
;; EnableStartupDialog. It then changes the value, and finally
;; it resets the value back to the original setting.
(setq acadObj (vlax-get-acad-object))
(setq preferences (vla-get-Preferences acadObj))
;; Get the system preferences object
(setq ACADPref (vla-get-System preferences))
;; Retrieve the current EnableStartupDialog value
(setq currEnableStartupDialog (vla-get-EnableStartupDialog ACADPref))
(alert (strcat "The current value for EnableStartupDialog is " (if (= currEnableStartupDialog :vlax-true) "True" "False")))
;; Change the value for EnableStartupDialog
(vla-put-EnableStartupDialog ACADPref (if (= currEnableStartupDialog :vlax-true) :vlax-false :vlax-true))
(setq newValue (vla-get-EnableStartupDialog ACADPref))
(alert (strcat "The new value for EnableStartupDialog is " (if (= newValue :vlax-true) "True" "False")))
;; Reset EnableStartupDialog to its original value
(vla-put-EnableStartupDialog ACADPref currEnableStartupDialog)
(alert (strcat "The EnableStartupDialog value is reset to " (if (= currEnableStartupDialog :vlax-true) "True" "False")))
)