Vla-get-beeponerror

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月4日 (木) 23:40時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-beeponerror ''vla-object'' ) ; 機能 : 無効なエントリが検出されたとき、警告音を鳴らすかどうかを指定す...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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")))
)

関連事項