我的程序运行时间较长,任何才能实现类似进度条或完成百分比的设计

龙龙仔

2. ;;要先加载doslib;;(work1 "资料处理" 5)
3. (defun WORK1 (PROM Y)
4.    (setq X 0)
5.    (dos_getprogress PROM "进行中，请耐心等待..." Y)
6.    (while (< X Y)
7.        (alert (rtos x))
8.        (dos_getprogress -1)
9.        (setq X (1+ X))
10.    )
11.    (dos_getprogress t)
12. )

;;要先加载doslib;;(work1 "资料处理" 5) (defun WORK1 (PROM Y)    (setq X 0)    (dos_getprogress PROM "进行中，请耐心等待..." Y)    (while (< X Y)        (alert (rtos x))        (dos_getprogress -1)        (setq X (1+ X))    )    (dos_getprogress t) )

nxchenjk

龙龙仔 发表于 2005-4-18 15:54

今天找到了老师的经典 11年了。，但不知道怎么用。总说 错误: 参数太少

itoboy

我也来发个简易版的，采用grtext方式

;;(jd n i)，n为重复运算的第几个，i为需要运算的总个数
(defun jd (n i / box in re)
  (setq box '("" "▏" "▎" "▍" "▌" "▋" "▊" "▉"))
  (setq in (fix (/ (* 160 n) i)))
  (setq re (rem in 8))
  (setq in (* 2 (fix (/ in 8))))
  (setq re (nth re box))
;;;  (setq n (1+ n))
  (grtext -2
   (strcat (rtos (/ (* 100.0 n) i) 2 1) "%"
           "程序正在运行，请稍等"
           (substr "████████████████████" 1 in)
           re)
  )
)