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

---

関連事項

• vlax-get-acad-object
• vla-get-activedocument
• vla-put-keyboardpriority
• vla-get-keyboardpriority