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

Question

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

Answer 1

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

How can I check if SHIFT is pressed in AUTOLISP?