[LISP函数－界面]：一个在状态条显示处理进度的函数

eachy

2. 
   
3. ;;一个在状态条显示处理进度的函数
   
4. ;; k 数 l 长度
   
5. (defun xd-pross        (k l)
   
6.   (grtext -2
   
7.           (strcat "已完成 "
   
8.                   (rtos        (/ (* 100.0 k) l)
   
9.                         2
   
10.                         0
    
11.                   )
    
12.                   "%...."
    
13.           )
    
14.   )
    
15. )

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