[分享]：程序进度(??%)显示 , 终于搞定!

梦断江南 · 发表于 2004-9-29 19:34:39

aeo的程序我去掉(vla-eval *app "DoEvents") 一句,好像也挺正常的,效果和加了看上去没多大变化啊. 加了有什么区别么?恕我眼拙.

以前一直没有空做这个进度条的东东,
我也来玩玩,虽然晚了一点:)
下例没有用到"DoEvents"

主要是测试进度条的, 旋转的风扇是先加速度再减速度的.不过没有办法全部捕捉不下来:)

登录/注册后可看大图

LUCAS · 发表于 2004-10-4 08:12:03

在低版次r2002以下試試吧!沒有這句(vla-eval *app "DoEvents")進度條會在最後才出現,
但建議不要用(vla-eval *app "DoEvents")會慢很多,如改用:prompt , print

eachy · 发表于 2004-10-4 08:23:09

使用Lisp不用在意进度条，对速度影响很多

aeo · 发表于 2004-10-5 01:38:04

最初由梦断江南发布
[B]aeo的程序我去掉(vla-eval *app "DoEvents") 一句,好像也挺正常的,效果和加了看上去没多大变化啊. 加了有什么区别么?恕我眼拙.

以前一直没有空做这个进度条的东东,
我也来玩玩,虽然晚了一点:)
下例没有用到"... [/B]

赫
我还在用2002,我们单位很多人用r14,我经常叫他们换，但没用:(
如果统计一下，>r15的肯定不多，我们这种论坛上的统计应该说不准，因为上这种地方的，不是自学者，就是可以算高手的人.

我看出来了，你用的理正建筑。

梦断江南 · 发表于 2004-10-5 02:02:29

是的,我用理正,我可没功夫也没这个本事给自己写一套建筑设计软件给自己用(仅凭我一人之力)
我在2002测试了,真邪门,呵呵.

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