分享一个测试按键的源码吧，来自论坛，有升级，支持左右键。

cchessbd

由于对lisp还处于初级研究阶段，写得不好之处高手可以改进。

;;测试按键（输入回车再响应模式）
(defun c:tt ()
(initget 1 "y n 1 2 3")
(setq kw (getkword"\输入yes/no/1/2/3 "))
kw
)

以上需要回车。以下按键立即执行。两种模式各有其适应性，选其一即可。

;;测试按键（立即响应模式），增加右键检测，返回字母按键等功能。
(defun c:tt5 (/ str loop gr gr-model ky-value)
        (setq  loop t)
        (if (null str) (setq str "\n请输入按键测试："))
        (princ str)
        (while loop
                (setq gr-value (grread t)
                gr-model (car gr-value)
                ky-value (cadr gr-value)
                )

                ;键盘空格键，结束循环
                (cond ((and  (= gr-model 2) (= ky-value 32))
                (princ "\n输入了空格键，结束程序！")
                (setq loop nil)
                (chr ky-value)
                )
                ((and(= gr-model 2)(/= ky-value 32))
                (princ (strcat "\n" (itoa gr-model) "键盘输入："  (chr ky-value) ))
                (setq loop nil)
                (chr ky-value)
                )

                ((and(= gr-model 25))
                (princ "\n点击了鼠标右键！")
                (setq loop nil)
                gr-model
                )
                ( (and (= gr-model 3)(= 'list (type ky-value)) )
                (princ "\n点击了鼠标左键！")
                (setq loop nil)
                gr-model
                )
                );cond
        );wh
)
(princ)

z312144636