[求助]：lisp中延迟时间的函数

laoxie_1983 · 发表于 2006-2-13 11:46:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问怎么在lisp里使时间延迟适当的时间再执行下面的语句?

qjcpj · 发表于 2006-2-13 12:49:01

使用DOSLIB的dos_pause函数。
另附dos_pause 函数说明：

Pauses the execution of a function or expression for a specified number of seconds.

Syntax
(dos_pause duration)
Parameters
duration
The duration time in seconds.

Returns
nil if successful on error.

Example
Command: (dos_pause 3)

nil

xiao_longxin · 发表于 2006-2-13 12:58:24

使用DATE系统变量可以达到你的目的
(defun WAIT (SECONDS / STOP)
  (setq STOP (+ (getvar "DATE") (/ SECONDS 86400.0)))
  (while (> STOP (getvar "DATE"))
(princ)
  )
)

(defun c:xx (/ kk)
  (princ 1)
  (wait 1)
  (print 2)
  (setq i 0)
  (while (/= i 9)
(print i)
(wait 1)
(setq i (1+ i))

  )
)

taner · 发表于 2006-2-13 13:00:30

直接用DELAY就行

xiao_longxin · 发表于 2006-2-13 13:13:52

楼上的请举一例子

taner · 发表于 2006-2-13 14:34:14

(command "delay" 500)

xiao_longxin · 发表于 2006-2-13 19:14:26

不错，又学一招

laoxie_1983 · 发表于 2006-2-14 08:55:44

非常感谢!非常感谢!

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：lisp中延迟时间的函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子