如何检查AUTOLISP中是否按下了SHIFT？

Question

在我的AutoLISP代码中，我需要检查是否按下了[SHIFT]按钮。 在C ++中，我可以GetKeyState从user32.dll开始，但是如何在AutoLISP中调用它？

Answer 1

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