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

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)
14. ;;定时器进度条，10为类型（固定值），6表示定时6秒，程序将在5秒时停下
15. (yj_show_progress 10 6)
16. (yj_show_progress nil)
20. 本程序使用C++编写，已导出Lisp接口，若有需要可留言。

复制代码