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

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

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

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

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

什么叫做特定用户组啊

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

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

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

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

收藏啦！坐沙发欣赏

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

很强大

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

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

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

好好的想法

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

不错，用一用，谢谢分享

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

支持，字母能加不，

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

kwok 发表于 2013-4-17 23:33
支持，字母能加不，

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

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

最好能加上递增复制功能

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

kwok 发表于 2013-4-17 23:33
支持，字母能加不，

加入了对字母的支持

账号		自动登录	找回密码
密码			注册

[源码] 真正的鼠标左右键点谁加减谁

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

相关帖子