[LISP程序]：程序运行中，请稍等...

它山之石

　　一个函数，相当于程序进度条的功能。作用是在命令行显示“程序运行中，请稍等...＊”那个＊是个可以旋转的。也许没有什么太大作用。主要是有时程序运行时间较长时需要提醒用户程序还在运行，并未死机。
　　用法一是　(CXJD　5)，“5”其中代表需要显示几秒钟。
　　用法二是  (cxjd-spinner)  用在程序需要循环或重复的语句中。可以参考以下代码：
[php]
(defun cxjd (sec)
  (princ "\n程序运行中，请稍等...  ")
  (repeat (* sec 20)
    (command "delay" 50)
    (cxjd-spinner)
  ) ;_ 结束repeat
  (princ)
) ;_ 结束defun
[/php]

JOSDENNIS

(setq x 0 y 1000)
(dos_getprogress "進度條設計" "正在運行，請稍候…" y) ;初始化
(while (< x y)
(dos_getprogress -1) ;相當于1的增量
(setq x (1+ x))
)
(dos_getprogress t)

它山之石

　　楼上你用到了DOSLIB中的函数，俺的程序只是简单的LISP。在命令行显示风扇，不是真正的进度条。不象你的是对话框（如附图），也不象晓东的是在状态行。

JOSDENNIS

三數

Command:-
Command: (cxjd second)
最唗堍俴笢ㄛ&#63384;尕脹...  ; error: bad argument type: numberp: nil
Command: (cxjd second)
最唗堍俴笢ㄛ&#63384;尕脹...  ; error: bad argument type: numberp: nil
Command: (cxjd second)
最唗堍俴笢ㄛ&#63384;尕脹...  ; error: bad argument type: numberp: nil

不知你那個fas是什麼回事啊.

它山之石

呵呵，应该是用如下格式：
(CXJD 5)
second是个参数，你可以输入要显示的秒数。参见一楼说明。已经提示你错误的函数类型。