[LISP程序]：请问Lisp中有没有时间延迟的函数啊？

raohuan

请问Lisp中有没有时间延迟的函数啊？我想实现将DWG的图放到一个指定的文件夹下，程序就会自动打开这些图，并自动打印出来，所以我的程序需要每隔一段时间就自动搜索指定的文件夹，而这个"每隔一段时间"就是我碰到的最大的问题了!

ll_j

Lisp中指定时间间隔一般使用命令delay实现，这是一般在脚本文件中使用的命令，不知对你是否有用。
下面代码是delay使用的一个演示：
[php](defun c:test()
  (setq pt1 (getpoint "\n开始点：")
        pt2 (getpoint "\n结束点：")
        li  (/ (distance pt1 pt2) 20)
        ang (angle pt1 pt2)
  )
  (repeat 20
    (setq pt3 (polar pt1 ang li))
    (grdraw pt1 pt3 2)
    (command "delay" "1000")
    (grdraw pt1 pt3 0)
    (setq pt1 pt3)
  )
  (princ)
)[/php]