[函数] 通用进度条，倒时计进度条

admin

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)
    
17. 
    
18. 
    
19. 
    
20. 本程序使用C++编写，已导出Lisp接口，若有需要可留言。

复制代码