- ;;通用进度条，对话框不影响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接口，若有需要可留言。
网友答: lisp中的进度条比较尴尬吧，任务比较简单的时候，进度条很顺畅。
循环次数比较多的时候，程序假死，进度条也无效……
总之，不怎么需要进度条的时候，进度条很正常，最需要进度条的时候，进度条就摆烂。
网友答:
革天明 发表于 2025-8-21 11:17
集成到壹加工具箱中的，找个时间我独立出来，否则依赖太多显得太大
想起来了, 壹加工具箱, 哔哩哔哩看到你的动态块加密的视频
大佬, 请教你个动态块疑问,
嵌套动态块, 子块有没有办法跟着父块拉伸
http://bbs.mjtd.com/thread-193850-1-1.html网友答:
20060510412 发表于 2024-7-29 12:18
lisp中的进度条比较尴尬吧，任务比较简单的时候，进度条很顺畅。
循环次数比较多的时候，程序假死，进度条 ...
所以就专门做了进度条，但用得上进度条的，一般都不是小程序网友答: 沙发支持，还挺美观网友答: 支持支持，还挺美观网友答: 接口求分享，邮箱714651857@qq.com网友答: 这个还挺不错。网友答: 很酷，外观很好看网友答: 感谢作者的分享！网友答:
感谢作者的分享！接口求分享，邮箱10183051@qq.com