Vla-put-enablestartupdialog

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年10月12日 (月) 12:35時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-enablestartupdialog ''vla-object'' ''bool'') ; 機能 : CAD を起動したときまたは新しい図面を作成したときに、[...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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")))
)


関連事項