[求助]：lisp程序中如何知道按下了shift键

ycao

想在lisp程序中使用shift键，即当按下shift键时执行某一功能，未按shift键时执行的又是另一功能，那么lisp程序中如何知道按下了shift键?

Torcky

要执行什么功能？可能用ctrl+字母键要更好控制一点

xiu19791981

你是不是想用捕捉啊,那样才用shift啊

ycao

不是，我只是想知道lisp程序能不能利用shift键。比如，一个lisp程序自动对标注的单行文本进行X坐标对齐。如果未按shift键时自动对文本进行X坐标对齐，当按下shift键时就不进行对齐操作。如果能利用shift键，程序的功能就完美了。

aeo

装et工具以后

(ACET-SYS-SHIFT-DOWN)

狂刀

lisp应该没有直接的函数或方法识别ｓｈｉｆｔ
ｖｂａ，ａｒｘ可以，ｌｉｓｐ可调用ｖｂａ，ａｒｘ的程序来判断

wlq0408

有个工具：autohook，搜索一下就可以了，应该可以满足你的要求！

aeo

最初由 狂刀 发布
[B]lisp应该没有直接的函数或方法识别ｓｈｉｆｔ
ｖｂａ，ａｒｘ可以，ｌｉｓｐ可调用ｖｂａ，ａｒｘ的程序来判断 [/B]

vba我写过,不过用了et后就不用vba了.

ycao

谢谢各位的帮助

liuyj

最初由 aeo 发布
[B]装et工具以后

(ACET-SYS-SHIFT-DOWN) [/B]

CTRL和ALT键的有相应的命令吗？
CTRL有(ACET-SYS-CONTROL-DOWN)
ALT好像没有。

baobin_yu

能介绍一下ET吗，我只懂一点LISP，是个菜鸟

它山之石

以下为ET工具中的一个函数。判断某键是否按下。
ET已经提供了三个相关的函数。分别是
(ACET-SYS-SHIFT-DOWN)
(ACET-SYS-CONTROL-DOWN)
(acet-sys-lmouse-down)
现在的问题是如何判断其它的键，如ALT的状态
下面这个函数中的keycode值是什么？
请对此有研究的朋友帮个忙解答下。


(acet-sys-keystate keycode)

Check state of virtual key.

Arguments
keycode The code for the virtual key to test.

Return Values
The status of the specified virtual key:

If the high-order bit is 1, the key is down; otherwise, it is up.
If the low-order bit is 1, the key is toggled. A key, such as the CAPS LOCK key, is toggled if it is turned on. The key is off and untoggled if the low-order bit is 0. A toggle key's indicator light (if any) on the keyboard will be on when the key is toggled, and off when the key is untoggled.
Note:
See the documentation for the GetKeyState() Win32 function for additional details.