革天明 发表于 2024-7-29 11:45:11

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







;;通用进度条，对话框不影响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接口，若有需要可留言。

20060510412 发表于 2024-7-29 12:18:29

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

革天明 发表于 2024-7-31 19:58:47

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

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

muai2010 发表于 2024-7-29 11:53:31

沙发支持，还挺美观

lxl217114 发表于 2024-7-29 12:14:55

支持支持，还挺美观

vink8023 发表于 2024-7-29 16:58:15

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

gble119 发表于 2024-7-29 19:29:23

这个还挺不错。

tranque 发表于 2024-7-30 09:55:31

很酷，外观很好看

tensir 发表于 2024-7-30 13:12:29

感谢作者的分享！

hn10183051 发表于 2024-8-1 10:00:09


感谢作者的分享！接口求分享，邮箱10183051@qq.com
页: [1] 2 3
查看完整版本: 通用进度条，倒时计进度条