【原创】文字任意位置原位递增，（源码奉献，一个不留）

669423907 · 发表于 2012-2-5 14:03

yjr111 大师你好，你的程序很好用。我一直都用起始递增，但是每次都是从 0 开始，不知方不方便(可不可以)帮忙改一下默认从 1 开始呢？
实在感激不尽！

(if (= key nil)(setq key "Yes")(setq key "No"))
.................
; (setq nn (getreal"\n 请设置初值<右键默认1>：") )
.................
; (setq $dist(getdist"\n 请设置排列的允许偏差,可屏幕量取!<右键默认0>:"))
.................
; (setq mm (getreal"请设置增量<右键默认1>:") )

669423907 · 发表于 2012-2-5 22:18

大师们帮帮忙啦，我不会改啊！
在刷图框的页数时是非常的好用的啊！

yjr111 · 发表于 2012-2-6 16:38

669423907 发表于 2012-2-5 22:18
大师们帮帮忙啦，我不会改啊！
在刷图框的页数时是非常的好用的啊！

你运气不错，我刚好对这个程序进行了一些优化，并增加了对话框方便操作。。。

xiaxiang · 发表于 2012-2-7 16:01

yjr111 发表于 2012-2-6 16:38
你运气不错，我刚好对这个程序进行了一些优化，并增加了对话框方便操作。。。

严兄，报错
命令: ywfzdz ; 错误: 参数类型错误: output-streamp: 0
命令:
YWFZDZ
程序已经退出!

669423907 · 发表于 2012-2-8 09:30

yjr111大师，程序非常好用，有一不情之请：放不方便去除命令qq呢，跟我常用的另一个命令冲突

用户可以自定义命令：(defun c: ()(c:ywfzdz))，

这样，程序就更加随意化了！

再次为yjr111大师对设计界的所做出的贡献表示衷心的感谢！

江湖远人 · 发表于 2012-2-16 09:09

讨论的热火朝天啊！

guobacoo · 发表于 2012-3-2 14:26

才发现钱用完了~！

haiyunzhou · 发表于 2012-3-15 20:28

太贵我绕道

tianyi1230 · 发表于 2012-3-18 11:15

楼主的东西觉对是好的，但是还是希望楼主把图贴出来才是是完美的，演示图来一个啊

tianyi1230 · 发表于 2012-3-18 11:27

感觉还是出个对话框版本的最好

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

【原创】文字任意位置原位递增，（源码奉献，一个不留）

本帖子中包含更多资源

评分

点评

浏览过的版块