如何檢查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) 
)