Vla-put-beeponerror

提供: GizmoLabs - だいたい CAD LISP なサイト
移動先: 案内検索
構文
(vla-put-beeponerror vla-object bool )


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


引数
  • vla-object … PreferencesSystem のVLAオブジェクト
  • bool … ブール型
  •  :vlax-True : 無効なエントリを検出したときに警告音を発する。
  •  :vlax-False : 無効なエントリを検出しても警告音を発しない。


戻り値
nil
  • 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")))
)

関連事項