Vla-get-keyboardpriority

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-get-keyboardpriority vla-object)


機能
座標データの入力に対する CAD の応答方法を取得する。


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


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


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


関連事項