如何在程序运算时实现进度表??

linhui12

如题:

如何在程序运算过程中命令行显示进度条:"0%,5%,10%,15%,%20,25%..."

或者象CAD中执行"RENDER"(渲染)时命令行中显示:类似与孙大圣手中的"金箍棒"一样,一直转圈圈呢

linhui12

有人给我贴了个以下的函数,可是不知道怎么用,有哪位兄弟可以帮忙编个例子,谢谢了

;;一个在状态条显示处理进度的函数
;; k 数 l 长度
(defun xd-pross (k l)
(grtext -2
(strcat "已完成 "
(rtos (/ (* 100.0 k) l)
2
0
)
"%...."
)
)
)

yxp

这是另一位大虾编写的，提供参考。

(defun C:dcltut (/ loopmax dcltut_dat)
 (setq dcltut_dat (load_dialog "dcltut.dcl"))
 (new_dialog "dcltut" dcltut_dat)
 (if (null loopmax)(setq loopmax 100))
 (setq fillx (dimx_tile "progbar"))
 (setq filly (dimy_tile "progbar"))
 (start_image "progbar")
 (fill_image 0 0 fillx filly -15)
 (end_image)

 (set_tile "max" (itoa loopmax))
 (action_tile "start" "(loopfunc)")
 (action_tile "ok" "(done_dialog)")
 (action_tile "cnacel" "(done_dialog)")
 (start_dialog)
 (UNLOAD_DIALOG dcltut_dat)
)
 

(defun loopfunc (/ fillx filly loopfunc loopmax loop-counter)
 (setq fillx (dimx_tile "progbar"))
 (setq filly (dimy_tile "progbar"))
 (start_image "progbar")
 (fill_image 0 0 fillx filly -15)
 (end_image)
 (setq loop-counter 0)
 (setq loopmax (atoi (get_tile "max")))
 (while (<= loop-counter loopmax)
  (start_image "progbar")
  (fill_image 0 0 (/ (* loop-counter fillx) loopmax) filly 5)
  (end_image)
  (set_tile "error" (rtos loop-counter))
  (setq loop-counter (1+ loop-counter))
 )
)
 

dcltut    : dialog {
 spacer_1;
     fixed_width = true;
           label = "DCL 滚动条";
             key = "br-label";
       : row {
         : button {
           key      = "start";
           label    = "&Start";
         }
         : edit_box {
           key      = "max";
           label    = "&Max:";
         }
       }
       : image {
         key    = "progbar";
   fixed_width  = 50;
         height = 1;
       }
          : errtile {
            label = "";
              key = "error";
            width = 26;
         }
           : button {
             label = "&OK";
               key = "ok";
        is_default = true;
           }
}
 

byghbcx

linhui12发表于2008-7-4 23:16:00有人给我贴了个以下的函数,可是不知道怎么用,有哪位兄弟可以帮忙编个例子,谢谢了;;一个在状态条显示处理进度的函数;; k 数 l 长度(defun xd-pross (k l)(grtext -2(strcat \"已完成 \"(rtos (/

(defun test(nn / k)
  (setq k 0)
  (repeat nn
    (xd-pross k nn)
    (setq k (1+ k))
    (command "delay" 100)
    )
  (princ)
  )

linhui12

谢谢楼上二位兄弟的回复,可我刚刚试了一下,二位的方案都不能执行啊,谁能帮忙找找原因.谢谢

byghbcx

(test 100)

或(test 200)

这个只是测试，在程序中你要用(xd-pross k nn)，总数为ＮＮ，Ｋ为每一步的值