AutoLisp -get-世界时

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 /06/09 1:10 pm

因此，要获取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))