有劳斑竹及各位

sunlizhi

斑竹及各位好：


                                                 如何在LISP中调用 DOSLIB61中的命令？最好举例！谢谢！

citykunan

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;BY 龙龙仔
;;进度条在doslib中有专门的函数
;;一个进度条在图中，一个在状态。
;;(work1 "数据处理" 1000);;;1000~10000 (defun WORK1 (PROM Y)
(setq X 0)
(dos_getprogress PROM "进行中，请耐心等待..." Y)
(repeat (fix (/ Y 3))
(setq A 1)
)
(while (< X Y)
(dos_getprogress -1)
(setq X (1+ X))
)
(dos_getprogress t)
) (defun WORK2 (PROM Y)
(dos_progbar PROM 10)
(repeat (fix (/ Y 3))
(setq A 1)
)
(dos_progbar -1)
(dos_progbar)
(setq X 0)
(dos_progbar PROM Y)
(while (< X Y)
(dos_progbar -1)
(setq X (1+ X))
)
(dos_progbar)
)

sunlizhi

感谢！！！！！1