革天明 发表于 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中的进度条比较尴尬吧，任务比较简单的时候，进度条很顺畅。
循环次数比较多的时候，程序假死，进度条也无效……
总之，不怎么需要进度条的时候，进度条很正常，最需要进度条的时候，进度条就摆烂。

22693766 发表于 2025-10-25 05:07:59

革天明 发表于 2025-8-21 11:17
集成到壹加工具箱中的，找个时间我独立出来，否则依赖太多显得太大

想起来了, 壹加工具箱, 哔哩哔哩看到你的动态块加密的视频

大佬, 请教你个动态块疑问,
嵌套动态块,子块有没有办法跟着父块拉伸
http://bbs.mjtd.com/thread-193850-1-1.html

革天明 发表于 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 4
查看完整版本: 通用进度条，倒时计进度条