Vla-put-enablestartupdialog

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-get-enablestartupdialog vla-object bool)

機能: CAD を起動したときまたは新しい図面を作成したときに、[スタートアップ]ダイアログボックスが表示されるかどうかを指定する。

引数

vla-object … PreferencesSystem のVLAオブジェクト
bool … ブール値

:vlax-True : [スタートアップ]ダイアログボックスは表示。
:vlax-False : [スタートアップ]ダイアログボックスは非表示。

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_EnableStartupDialog()
    ;; この例では、EnableStartupDialog の現在の設定を返す。値を変更し、最後に元の設定に戻す値をリセットする。

    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; system preferences オブジェクトを取得
    (setq ACADPref (vla-get-System preferences))
    
    ;; 現在の EnableStartupDialog 値を取得。
    (setq currEnableStartupDialog (vla-get-EnableStartupDialog ACADPref))
    (alert (strcat "現在の EnableStartupDialog 値は " (if (= currEnableStartupDialog :vlax-true) "True" "False")))
  
    ;; EnableStartupDialog の値を変更。
    (vla-put-EnableStartupDialog ACADPref (if (= currEnableStartupDialog :vlax-true) :vlax-false :vlax-true))
    (setq newValue (vla-get-EnableStartupDialog ACADPref))
    (alert (strcat "新しい EnableStartupDialog の値は " (if (= newValue :vlax-true) "True" "False")))
    
    ;; EnableStartupDialog をリセット
    (vla-put-EnableStartupDialog ACADPref currEnableStartupDialog)
    (alert (strcat "EnableStartupDialog の値をリセット " (if (= currEnableStartupDialog :vlax-true) "True" "False")))
)