AutoLisp是否有‘等待X秒’功能？DraftSight 2023延时需求咨询

AutoLisp本身没有原生的跨CAD通用延时函数，但在DraftSight 2023中可以通过以下两种方法实现等待指定时长的功能：

• 使用DraftSight专属的ds-sleep函数（推荐）
  这个函数是DraftSight为AutoLisp提供的原生延时函数，参数为延时的毫秒数，用法简单且不占用过多CPU资源：

  ;; 延时2秒（2000毫秒）
  (ds-sleep 2000)
  

• 自定义循环延时函数（兼容旧版本或无ds-sleep的场景）
  利用系统时间变量DATE计算时间差，通过空循环实现等待。DATE返回的是Julian日期（单位：天），需换算为毫秒：

  (defun delay (millis / start now)
    (setq start (getvar "DATE"))
    ;; 循环直到达到指定延时毫秒数
    (while (< (* (- (setq now (getvar "DATE")) start) 86400000) millis)
    )
  )
  
  ;; 调用示例：延时1.5秒
  (delay 1500)
  

注意：自定义循环方法会持续占用CPU，优先使用ds-sleep函数。

内容的提问来源于stack exchange，提问作者G Beck