Wie kann ich überprüfen, ob in AUTOLISP SHIFT gedrückt wird?

Question

In meinem AutoLISP-Code muss ich überprüfen, ob [SHIFT] -Taste gedrückt ist. In C++ kann ich es von GetKeyState von user32.dll tun, aber wie man es in AutoLISP nennt?

Answer 1

(defun c:mx() 
(if (acet-sys-shift-down) 
    (Princ "Shift Key is Down") 
    (Princ "Shift Key is not Down") 
) 
(princ) 
)