[求助]：能不能做到这样的效果？请高手们支支招。

czg09180274

我想在运行程序当中创建一个这样的变量，就是当按下鼠标左键时将这个变量设为“1”（不论在程序的什么位置按下左键都保持这个设置不动）用来配合“WHILE”的使用，按下右键时将它设为“0”来结束“WHILE”的运行，程序运行结束后将这个变量清除。
   我曾试过N次都没有达到目的，请各位高手支支招。小弟不胜感激。
先谢过各位了。

snoopychen

大致编了一下，也不大清楚具体需要什么要求
下面这段可以简单测试一下左键一共点击了多少下的程序，由右键退出
[php]
(defun c:test(/ i)
(setq i 0)
(setq b T)
(while b
(setq temp (grread nil 2))
(if (= (car temp) 3) (setq b T i (1+ i)))
(if (= (car temp) 11) (setq b nil))
)

(princ "\n               i = ") (princ i);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
)
[/php]

czg09180274

最初由 snoopychen 发布
[B]大致编了一下，也不大清楚具体需要什么要求
下面这段可以简单测试一下左键一共点击了多少下的程序，由右键退出
[php]
(defun c:test(/ i)
(setq i 0)
(setq b T)
(while b
(setq temp (grread nil 2))
(if (... [/B]

我测试了一下，在运行当中，不能输入任何数据，按左键也没有反应，只能用“ESC”强制中断循环，请 snoopychen 再帮忙测试一下
谢谢

zhang8755

用arx编一个鼠标的钩子程序应该可以实现
我原来有个类似的程序，现在一下找不到
找到后发上来

zhang8755

见附件
是一个ARX程序，适用于2002版，键入mouse加载鼠标钩子
以后按下鼠标左键，系统变量useri1 置1
按下鼠标右键，系统变量useri1 置0
通过系统变量传递结果，这是我想出来的办法


昨天的程序中的命令搞错了，现在改正了
键入mouse加载鼠标钩子
键入unmouse取消鼠标钩子

本钩子程序将鼠标消息继续传递，未从消息队列中删除

snoopychen

3楼楼主，你好，2楼程序我在14和2k下试过可以
键入test，然后点击n次左键，再点一次右键，就会退出，并计算出左键点击的次数
因为我理解楼主原文的意思是左键点击无所谓，继续循环，右键点击就退出这种意思。

czg09180274

我用的是2002版的，可能会有一点点的不同，不过还是很感谢snoopychen帮忙，斑竹的程序我下来用用看，谢谢各位的大力支持。