通用进度条，倒时计进度条

革天明

1. ;;通用进度条，对话框不影响CAD绘图
   
2. (setq cnt 100)
   
3. (yj_show_progress cnt)
   
4. (setq i 0)
   
5. (repeat        cnt
   
6.   (setq i (1+ i))
   
7.   (command "circle" (list 0 0) i "")
   
8.   (command "delay" 100)
   
9.   (yj_show_progress "提示" "测试过程中" i)
   
10. )
    
11. (yj_show_progress nil)
    
12. 
    
13. 
    
14. ;;定时器进度条，10为类型（固定值），6表示定时6秒，程序将在5秒时停下
    
15. (yj_show_progress 10 6)
    
16. (yj_show_progress nil)

;;通用进度条，对话框不影响CAD绘图<br /> (setq cnt 100)<br /> (yj_show_progress cnt)<br /> (setq i 0)<br /> (repeat        cnt<br />   (setq i (1+ i))<br />   (command "circle" (list 0 0) i "")<br />   (command "delay" 100)<br />   (yj_show_progress "提示" "测试过程中" i)<br /> )<br /> (yj_show_progress nil)<br /> <br /> <br /> ;;定时器进度条，10为类型（固定值），6表示定时6秒，程序将在5秒时停下<br /> (yj_show_progress 10 6)<br /> (yj_show_progress nil)

本程序使用C++编写，已导出Lisp接口，若有需要可留言。

20060510412

lisp中的进度条比较尴尬吧，任务比较简单的时候，进度条很顺畅。
循环次数比较多的时候，程序假死，进度条也无效……
总之，不怎么需要进度条的时候，进度条很正常，最需要进度条的时候，进度条就摆烂。

革天明

20060510412 发表于 2024-7-29 12:18
lisp中的进度条比较尴尬吧，任务比较简单的时候，进度条很顺畅。
循环次数比较多的时候，程序假死，进度条 ...

所以就专门做了进度条，但用得上进度条的，一般都不是小程序

muai2010

沙发支持，还挺美观

lxl217114

支持支持，还挺美观

vink8023

接口求分享，邮箱714651857@qq.com

gble119

这个还挺不错。

tranque

很酷，外观很好看

tensir

感谢作者的分享！

hn10183051

感谢作者的分享！接口求分享，邮箱10183051@qq.com