让你的进度永远不会“假死” --- 命令行进度条介绍

newer

运用了“进程监控”技术，让ACAD的长循环进程不会“假死”，进度条始终保持平顺显示。

1、时间间隔0.1秒显示一次

1. (defun c:tt1 ()
   
2.   (xdrx-ui-progressbar "\n处理中..." 100 0.1)
   
3.   (repeat 100
   
4.     (xdrx-ui-progressbar t)
   
5.     (princ)
   
6.     (xdrx-sleep 50)
   
7.   )
   
8.   (xdrx-ui-progressbar)
   
9.   (xdrx_prompt " 完毕.")
   
10.   (princ)
    
11. )
    

(defun c:tt1 ()<br />   (xdrx-ui-progressbar "\n处理中..." 100 0.1)<br />   (repeat 100<br />     (xdrx-ui-progressbar t)<br />     (princ)<br />     (xdrx-sleep 50)<br />   )<br />   (xdrx-ui-progressbar)<br />   (xdrx_prompt " 完毕.")<br />   (princ)<br /> )<br />

2、时间间隔0.3秒显示一次

1. (defun c:tt2 ()
   
2.   (xdrx-ui-progressbar "\n处理中..." 100 0.3)
   
3.   (repeat 100
   
4.     (xdrx-ui-progressbar t)
   
5.     (princ)
   
6.     (xdrx-sleep 50)
   
7.   )
   
8.   (xdrx-ui-progressbar)
   
9.   (xdrx_prompt " 完毕.")
   
10.   (princ)
    
11. )
    

(defun c:tt2 ()<br />   (xdrx-ui-progressbar "\n处理中..." 100 0.3)<br />   (repeat 100<br />     (xdrx-ui-progressbar t)<br />     (princ)<br />     (xdrx-sleep 50)<br />   )<br />   (xdrx-ui-progressbar)<br />   (xdrx_prompt " 完毕.")<br />   (princ)<br /> )<br />

3、时间间隔0.5秒显示一次

1. (defun c:tt3 ()
   
2.   (xdrx-ui-progressbar "\n处理中..." 100 0.5)
   
3.   (repeat 100
   
4.     (xdrx-ui-progressbar t)
   
5.     (princ)
   
6.     (xdrx-sleep 50)
   
7.   )
   
8.   (xdrx-ui-progressbar)
   
9.   (xdrx_prompt " 完毕.")
   
10.   (princ)
    
11. )
    

(defun c:tt3 ()<br />   (xdrx-ui-progressbar "\n处理中..." 100 0.5)<br />   (repeat 100<br />     (xdrx-ui-progressbar t)<br />     (princ)<br />     (xdrx-sleep 50)<br />   )<br />   (xdrx-ui-progressbar)<br />   (xdrx_prompt " 完毕.")<br />   (princ)<br /> )<br />

cable2004

会不会影响速度。

newer

cable2004 发表于 2019-1-13 11:29
会不会影响速度。

忽略不计，和你的等待来说。关键没反应时候你不知道是程序死了，还是继续在运行。进度条的作用就是告诉你执行到哪了，还有多少时间结束。

chenlei1982cc

监控类的程序

dmxcs

弱弱问下，这东西要怎么用？

hh_lj007

能解决程序运行什么都不显示的情况吗？