autolisp - AutoLisp - 获取通用时间

Question

我是 Lisp 的新手。我需要调用 datetime 函数。但我坚持获取日期时间。使用 UTC。

代码是

  (defun C:test ()
  (system-clock nil (get-universal-time))
  )

错误：

Command: TEST
; error: no function definition: GET-UNIVERSAL-TIME

任何人都可以帮忙吗？我正在使用 VisualLisp

Answer 1

有一个名为“CDATE”的系统变量，它的输出比“DATE”系统变量更清晰。

它获取您计算机中的当前日期和时间。

“CDATE”的输出格式是“（4 位年）（2 位月）（2 位日）。（2 位小时）（2 位分钟）”，它的十进制格式类似于 20170609.1410 2016/06 /09 下午 1:10

因此，要以 YYYY/MM/DD 格式获取当前日期，您的策略将如下所示：-

1-获取输出并将其转换为字符串

    (setq cur_date (rtos (getvar "CDATE")))

2-提取年月日

    (setq cur_year (substr cur_date 1 4))
    (setq cur_month (substr cur_date 5 2))
    (setq cur_day (substr cur_date 7 2))

3-构建您的 YYYY/MM/DD 格式

    (setq cur_date (strcat cur_year "/" cur_month "/" cur_day))