Vla-put-keyboardaccelerator

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

構文: (vla-put-keyboardaccelerator vla-object 'type)

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

引数

vla-object … PreferencesUser の VLAオブジェクト
type… acKeyboardAccelerator 列挙型

acPreferenceClassic: AutoCAD クラシックキーボードを使用する。
acPreferenceCustom: Windows 標準キーボードを使用する。

戻り値: nil

サンプル

(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")))
)