真正的鼠标左右键点谁加减谁

paulpipi

收藏啦！ 坐沙发欣赏

bridgewind

很牛！！

laurasia

很好很强大！

迷失2004

方便！谢谢楼主分享

479274135

感谢楼主分享    过来学习学习

小飞D

特定用户 居然不能下载

taoyi0727

好东西  学习学习

JHX948954875

谢谢楼主分享

lg328084985

学习一下，感谢分享

林霄云

USER2128 发表于 2013-4-20 08:58
左键正常，右键可以减1，但随即结束了程序（不可连减）。被编辑过的文字仍成无名组状态（CAD2012，xp，32位 ...

既然叫鼠标增减，那么退出就依赖键盘输入退出了。调整while循环的条件，原语句利用cond语句的返回值：

2. (princ "\n请点选要修改的字符:(左键+1右键-1)")
   
3.   (while
   
4.     (cond ((and  (setq pt (grread t 4 2)) ;获取grread值
   
5.     (equal (car pt) 5)
   
6.      )

(princ "\n请点选要修改的字符:(左键+1右键-1)")<br />   (while<br />     (cond ((and  (setq pt (grread t 4 2)) ;获取grread值<br />     (equal (car pt) 5)<br />      )

调整为：

2. (princ "\n请点选要修改的字符:(左键+1右键-1)")
   
3.   (setq flag t)
   
4.   (while (and (setq pt (grread t 4 2)) flag)
   
5.     (cond ((and pt   ;获取grread值

(princ "\n请点选要修改的字符:(左键+1右键-1)")<br />   (setq flag t)<br />   (while (and (setq pt (grread t 4 2)) flag)<br />     (cond ((and pt   ;获取grread值

即，增加一个退出标志flag，该值在cond中进行设置：当为键盘输入时，设置为nil。

2. ((equal (car pt) 2) (setq flag nil))

((equal (car pt) 2) (setq flag nil))

如此，即可调整左加右减的循环操作。