[函数] 通用进度条，倒时计进度条
;;通用进度条，对话框不影响CAD绘图(setq cnt 100)
(yj_show_progress cnt)
(setq i 0)
(repeat cnt
(setq i (1+ i))
(command "circle" (list 0 0) i "")
(command "delay" 100)
(yj_show_progress "提示" "测试过程中" i)
)
(yj_show_progress nil)
;;定时器进度条，10为类型（固定值），6表示定时6秒，程序将在5秒时停下
(yj_show_progress 10 6)
(yj_show_progress nil)
本程序使用C++编写，已导出Lisp接口，若有需要可留言。
页:
[1]