Vla-put-keyboardaccelerator

提供: GizmoLabs
移動先: 案内検索
構文
(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")))
)

関連事項