springwillow 发表于 2013-4-17 12:36:31

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

本帖最后由 springwillow 于 2013-8-5 19:22 编辑

利用了yjr111的代码。使左键点选数字后加1，右键点选数字后减1。根据要求，加入了对字母的加减。
再次更新，支持汉字零到十的加减。

SID超人 发表于 2014-8-8 11:59:47

什么叫做特定用户组啊

林霄云 发表于 2018-10-26 09:21:43

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

既然叫鼠标增减，那么退出就依赖键盘输入退出了。调整while循环的条件，原语句利用cond语句的返回值： (princ "\n请点选要修改的字符:(左键+1右键-1)")
(while
    (cond ((and(setq pt (grread t 4 2)) ;获取grread值
    (equal (car pt) 5)
   )调整为：(princ "\n请点选要修改的字符:(左键+1右键-1)")
(setq flag t)
(while (and (setq pt (grread t 4 2)) flag)
    (cond ((and pt   ;获取grread值即，增加一个退出标志flag，该值在cond中进行设置：当为键盘输入时，设置为nil。

((equal (car pt) 2) (setq flag nil))如此，即可调整左加右减的循环操作。

waterchen 发表于 2020-7-17 00:31:35

楼主的程序不错，我试着用正则分解文字改了下，源码发布在http://bbs.xdcad.net/forum.php?mod=viewthread&tid=726338&page=1&extra=#pid3738517。不知明经什么原因，一定要绑定QQ，我都快10年没用那玩儿了，绑定微信都不成，所以没能在明经发布。由于我的文字里面不会出现中文数字及特定的字符，所以不支持这些，同时也只支持单行文字。

wowan1314 发表于 2013-4-17 13:58:15

收藏啦！ 坐沙发欣赏

ahwx0814 发表于 2013-4-17 14:14:04

很强大

hao3ren 发表于 2013-4-17 14:46:46

呵呵，刚试了下还不错，有一点0减就变为9了，9+变为0

yansu 发表于 2013-4-17 15:26:55

好好的想法

zh74 发表于 2013-4-17 22:45:39

不错，用一用，谢谢分享

kwok 发表于 2013-4-17 23:33:50

支持，字母能加不，

springwillow 发表于 2013-4-18 09:09:07

kwok 发表于 2013-4-17 23:33 static/image/common/back.gif
支持，字母能加不，

可以自行修改为加减ASCII码，这样字母也能加减了。

edsion24 发表于 2013-4-18 10:46:49

最好能加上递增复制功能

springwillow 发表于 2013-4-18 10:51:24

kwok 发表于 2013-4-17 23:33 static/image/common/back.gif
支持，字母能加不，

加入了对字母的支持
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 真正的鼠标左右键点谁加减谁