Vla-get-beeponerror

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

構文: (vla-get-beeponerror vla-object )

機能: 無効なエントリが検出されたとき、警告音を鳴らすかどうかを指定する。

引数

vla-object … PreferencesSystem のVLAオブジェクト

戻り値

ブール型

:vlax-True : 無効なエントリを検出したときに警告音を発する。
:vlax-False : 無効なエントリを検出しても警告音を発しない。

MEMO : このプロパティの初期値は False。

サンプル

(vl-load-com)
(defun c:Example_BeepOnError()
    ;; BeepOnError の現在の設定を取得して変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; 現在の BeepOnError を返す
    (setq currBeepOnError (vla-get-BeepOnError (vla-get-System preferences)))
    (alert (strcat "現在の BeepOnError 値は " (if (= currBeepOnError :vlax-true) "True" "False")))
    
    ;; 変更
    (vla-put-BeepOnError (vla-get-System preferences) (if (= currBeepOnError :vlax-true) :vlax-false :vlax-true))
    (setq newBeepOnError (vla-get-BeepOnError (vla-get-System preferences)))
    (alert (strcat "新しいBeepOnError 値は " (if (= newBeepOnError :vlax-true) "True" "False")))
    
    ;; 戻す
    (vla-put-BeepOnError (vla-get-System preferences) currBeepOnError)
    (alert (strcat "BeepOnError 値を次に戻す " (if (= currBeepOnError :vlax-true) "True" "False")))
)