[求助]：怎样用lisp来判断鼠标左键一直按着,有难度！

fundoll

请教各位高手，怎样用lisp来判断鼠标左键一直按着(没有放开)？

grread好象不行!

dandee

1； 有必要吗一直按着鼠标左键
2； 利用 grread和 时间间隔判断结合 可以确认一直按着鼠标左键

fundoll

楼上老兄，你好：
(car (grread nil 2 1))
不管鼠标左键按下之后有没有放开，(car (grread nil 2 1))返回值都是3

请明示




语法

    (grread [track] [allkeys [curtype]])

功能及参数

    此函数可以让您直接读取 AutoCAD 的输入设备, 只要它们一移动, 您就可以追踪得到它们的位置。只有在很特殊的情况下才需要使用这个函数, 通常AutoLISP 都是使用像 getstring、getreal 等这样的 getxxx 函数来作输入的工作的。追踪的参数如果不为 nil, 则只要输入设备移动, 就可以返回此点的坐标值, 您并不需要按输入设备上的选取按键, 这就是 AutoCAD 拖放 (Dragging) 的原理。

    如果 track 参数有给予且非 nil, 那么它将赋予由指向设备的移动上 (但按键尚未按下)返回坐标值。allkeys 参数是一可选择的整型数值 (一个位标志项)。如果 allkeys 参数存在, grread 将视码来执行不同的功能。curtype 参数将能用来控制鼠标形式的显示。

    以下将为您详细解说其后参数的意义：

    track：如果不为 nil, 则追踪鼠标位置。

    Allkeys：如果提供, 那么allkeys参数必须为整型数, 且其值将被定义如下：

    值＝1 (位0) 将返回拖放模式坐标。如果此位被设定, 同时用户移动指向设备, 则grread 将返回一个第一个数字是 type 5 以及第二个数字是目前指向设备的鼠标所在坐标 (X, Y)。

    值＝2 (位1) 将返回所有键值。包含函数与鼠标键码, 及当用户按下鼠标键而非鼠标时。

    值＝4 (位2) 使用一值来传至 curtype 参数中以控制鼠标显示。

    值＝8 (位3) 当用户按下  Ctrl  +  C  键时, 不会显示error：console break信息。

    Curtype：如果提供, curtype 参数将定义鼠标形式的显示。它必须是一整型数值, 有效的选择项如下：

   0     显示正常的十字鼠标

   1     不显示鼠标(无十字鼠标)     

   2     显示图元选择“target”鼠标

    【注意】 curtype 参数仅当目前 grread 函数调用时, 影响到鼠标形式。在未来版本中可能再定义其他控制位。

    Grread 函数将返回一个表, 此表的第一个元素是一个指定输入形式的码。第二个元素是一个视输入形式而定的整数或点的表。其返回值如下所示：



第一个元素
第二个元素

值
输入形式
值
意  义

2
键盘输入
可变的
字符模式

3
选取点
3D 点
点坐标

4
屏幕/下拉式菜单项目(由指向设备)
0 至 999

1001至1999

2001 至 2999

3001 至 3999

.

.

16001至 16999
屏幕菜单

POP1菜单

POP2菜单

POP3菜单

.

.

POP16菜单

5
指向设备(仅在当追踪功能启动时返回)
3D 点
牵引模式坐标

6
BUTTONS 屏幕菜单项目
0至999

1000 至 1999

2000 至 2999

3000 至 3999
BUTTONS1菜单

BUTTONS2菜单

BUTTONS3菜单

BUTTONS4菜单

7
TABLET1 菜单项
0 至 32767
数字化仪1

8
TABLET2 菜单项
0 至 32767
数字化仪2

9
TABLET3 菜单项
0 至 32767
数字化仪3

10
TABLET4 菜单项
0 至 32767
数字化仪4

11
AUX 菜单项
0 至 999

1000至1999

2000 至 2999

3000 至 3999
AUX1菜单按键号AUX2菜单按键号AUX3菜单按键号AUX4菜单按键号

12
指向按键(跟随type6 或 type 11 返回)
3D 点
点坐标


   

     要使 grread 终止 AutoLISP 的执行时, 请按下  Ctrl  +  C  两个键即可。任何其他的键入, 将直接传到Grread上, 以允许它完全控制输入元件。如果用户在一个屏幕菜单中或在下拉式菜单列表中按下鼠标按钮, 则 grread 将会返回形态 11 的代码, 但是对于接下来的调用, 它并不会返回形态 12 的代码：形态 12 的代码只有当鼠标是在屏幕的绘图区域时, 才会跟随在形态 6 或形态 11 之后出现。

范例

    在企图以一个鼠标按钮或一个辅助的功能方框来启动其他的操作前, 将代码 12 的数据从缓冲区中清除是很重要的。要完成这件事, 您可执行一个类似下面的嵌套式 grread：

        (setq code_12 (grread (setq code (grread))))

则此序列将获取代码 12 表的值来当做一个由元件上输入的串流(streaming)。



    【注意】在不同的电脑系统中 (例如, DOS 与 UNIX), 由于处理的方式不同。所以, grreed 函数将返回不同的结果。例如：

    ① 缺省的定位设备(如鼠标或数字化仪)所使用的鼠标返回码是11, 不是6。

    ② 在麦金托斯 (Machintosh) 的电脑中, 下拉式菜单的返回码是11, 不是4。按下按键两下则将返回11, 不是6。

dandee

抱 歉 。 我 搞 错 了 。 看 来 纯 粹 用 lisp是 无 法 解 决 这 样 的 问 题 的

它山之石

1. (acet-sys-lmouse-down)

复制代码

不知ET中的这个函数是否是你需要的。

yin_12345678

有点难度