请求帮助！！！

wanspring · 发表于 2003-5-19 14:51:00

您好，我想问一下：在AutoLISP中怎么得到系统的日期时间，我想在存储数据时加上当前时间。还有能不能由程序打开，请指教！！

meflying · 发表于 2003-5-19 15:25:00

(defun c:gettime(/ stime h m s)
  (setq stime (getvar"date"))
  (setq stime (* 86400.0 (- stime (fix stime))))
  (setq h (fix (/ stime 3600)))
  (setq m (fix (/ (- stime (* h 3600)) 60)))
  (setq s (fix (- stime (* m 60) (* h 3600))))
  (princ (strcat "现在时间为:" (rtos h) ":" (rtos m) ":" (rtos s)))
  (princ)
  )