本帖最后由 springwillow 于 2013-8-5 19:22 编辑
利用了yjr111的代码。使左键点选数字后加1，右键点选数字后减1。根据要求，加入了对字母的加减。
再次更新，支持汉字零到十的加减。网友答: 什么叫做特定用户组啊网友答:
既然叫鼠标增减，那么退出就依赖键盘输入退出了。调整while循环的条件，原语句利用cond语句的返回值：
调整为：即，增加一个退出标志flag，该值在cond中进行设置：当为键盘输入时，设置为nil。
如此，即可调整左加右减的循环操作。
网友答: 楼主的程序不错，我试着用正则分解文字改了下，源码发布在http://bbs.xdcad.net/forum.php?m ... p;extra=#pid3738517。不知明经什么原因，一定要绑定QQ，我都快10年没用那玩儿了，绑定微信都不成，所以没能在明经发布。由于我的文字里面不会出现中文数字及特定的字符，所以不支持这些，同时也只支持单行文字。网友答: 收藏啦！ 坐沙发欣赏网友答:
很强大网友答:
呵呵，刚试了下还不错，有一点0减就变为9了，9+变为0网友答:
好好的想法网友答:
不错，用一用，谢谢分享网友答:
支持，字母能加不，网友答:
可以自行修改为加减ASCII码，这样字母也能加减了。网友答: 最好能加上递增复制功能网友答:
加入了对字母的支持
利用了yjr111的代码。使左键点选数字后加1，右键点选数字后减1。根据要求，加入了对字母的加减。
再次更新，支持汉字零到十的加减。网友答: 什么叫做特定用户组啊网友答:
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值
- ((equal (car pt) 2) (setq flag nil))
网友答: 楼主的程序不错，我试着用正则分解文字改了下，源码发布在http://bbs.xdcad.net/forum.php?m ... p;extra=#pid3738517。不知明经什么原因，一定要绑定QQ，我都快10年没用那玩儿了，绑定微信都不成，所以没能在明经发布。由于我的文字里面不会出现中文数字及特定的字符，所以不支持这些，同时也只支持单行文字。网友答: 收藏啦！ 坐沙发欣赏网友答:
很强大网友答:
呵呵，刚试了下还不错，有一点0减就变为9了，9+变为0网友答:
好好的想法网友答:
不错，用一用，谢谢分享网友答:
支持，字母能加不，网友答:
kwok 发表于 2013-4-17 23:33
支持，字母能加不，
可以自行修改为加减ASCII码，这样字母也能加减了。网友答: 最好能加上递增复制功能网友答:
kwok 发表于 2013-4-17 23:33
支持，字母能加不，
加入了对字母的支持