一个显示程序运行进度条的例子

citykunan · 发表于 2004-7-8 08:51:00

(defun c:aaa (/ a)
(setq a 1)
(setvar "cmdecho" 0)
(while (< a 1000)
(command "circle" "0,0" 100)
(if (= 0 (rem a 10))
(acet-ui-progress -1)
)
(setq a (+ a 1))
)
(acet-ui-progress)
)

meflying · 发表于 2004-7-8 09:02:00

呵呵。。。刚讨论过 http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&replyID=32051&id=22719&skin=0

citykunan · 发表于 2004-7-8 09:07:00

sorry, 我也是在一个国外的网站上看到的，昨天研究了一下，原来想拿来与诸位分享的，没想到画蛇添足了。

meflying · 发表于 2004-7-8 11:13:00

不是画蛇添足，，，也很好啊。。。

我是为了提醒你，多来论坛看看帖子，看看别人的讨论，能学到不少东西

龙龙仔 · 发表于 2004-7-8 11:32:00

进度条的例子
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8911&replyID=34493

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

一个显示程序运行进度条的例子

本帖子中包含更多资源