Vla-get-keyboardaccelerator

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月17日 (日) 20:28時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-keyboardaccelerator ''vla-object'') ; 機能 : Windows 標準か AutoCAD クラシック キーボードかを指定する。 ; 引...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-keyboardaccelerator vla-object)


機能
Windows 標準か AutoCAD クラシック キーボードかを指定する。


引数
  • vla-object … PreferencesUser の VLAオブジェクト


戻り値
acKeyboardAccelerator 列挙型
  • acPreferenceClassic: AutoCAD クラシック キーボードを使用する。
  • acPreferenceCustom: Windows 標準キーボードを使用する。


サンプル
(vl-load-com)
(defun c:Example_KeyboardAccelerator()
    ;; キーボードアクセラレータの設定を読み込んで変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; 現在の KeyboardAccelerator 値
    (setq currKeyboardAccelerator (vla-get-KeyboardAccelerator (vla-get-User preferences)))
    (alert (strcat "現在のキーボードアクセラレータ設定は " (if (= currKeyboardAccelerator acPreferenceClassic) "Classic" "Custom")))
    
    ;; トグルで変更
    (if (= currKeyboardAccelerator acPreferenceClassic)
        (vla-put-KeyboardAccelerator (vla-get-User preferences) acPreferenceCustom)
        (vla-put-KeyboardAccelerator (vla-get-User preferences) acPreferenceClassic)
    )
  
    (alert (strcat "新しいキーボードアクセラレータ設定は " (if (= (vla-get-KeyboardAccelerator (vla-get-User preferences)) acPreferenceClassic) "Classic" "Custom")))
    
    ;; 戻す
    (vla-put-KeyboardAccelerator (vla-get-User preferences) currKeyboardAccelerator)
    (alert (strcat "キーボードアクセラレータ設定を次に戻します。 " (if (= (vla-get-KeyboardAccelerator (vla-get-User preferences)) acPreferenceClassic) "Classic" "Custom")))
)

関連事項