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 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))