分享一个测试按键的源码吧，来自论坛，有升级，支持左右键。
本帖最后由 cchessbd 于 2024-5-24 19:09 编辑由于对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)
(setqloop 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)
页:
[1]