Vla-put-keyboardpriority

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

構文: (vla-put-keyboardpriority vla-object type)

機能: 座標データの入力に対する CAD の応答方法をコントロールする。

引数

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

acKeyboardRunningObjSnap: 座標が入力された場合、オブジェクトスナップに厳密に従う。
acKeyboardEntry: 座標が入力された場合、キーボード入力値に厳密に従う。
acKeyboardEntryExceptScripts: 座標が入力された場合、キーボード入力値に厳密に従う。ただし、座標がスクリプトを通じて入力された場合は、定常オブジェクトスナップに従う。

戻り値: nil

MEMO : このプロパティの初期値は acKeyboardEntryExceptScripts。
このプロパティの値は、システム変数 OSNAPCOORD に格納される。

サンプル

(vl-load-com)
(defun c:Example_KeyboardPriority()
    ;; キーボードプロパティの設定を変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; キーボードプロパティを取得
    (setq currKeyboardPriority (vla-get-KeyboardPriority (vla-get-User preferences)))
    (setq constant (cond
                     ((= currKeyboardPriority 0) "acKeyboardRunningObjSnap")
                     ((= currKeyboardPriority 1) "acKeyboardEntry")
                     ((= currKeyboardPriority 2) "acKeyboardEntryExceptScripts")))
    (alert (strcat "現在のキーボードプロパティは " constant))
    
    ;; Change the value for KeyboardPriority
    (setq newConstant "acKeyboardEntry")
    (vla-put-KeyboardPriority (vla-get-User preferences) acKeyboardEntry)
    (alert (strcat "新しいキーボードプロパティは " newConstant))
    
    ;; Reset KeyboardPriority to its original value
    (vla-put-KeyboardPriority (vla-get-User preferences) currKeyboardPriority)
    (alert (strcat "キーボードプロパティを次に戻す " constant))
)