;;要先加载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)
)
龙龙仔 发表于 2005-4-18 15:54
今天找到了老师的经典 11年了。，但不知道怎么用。总说 错误: 参数太少
我也来发个简易版的，采用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)
)
)