为什么老是不能得到正确时间显示，我要用它生成文件名

wanchr · 发表于 2023-11-28 16:03:41

(setq current-time (getvar "DATE")) ; 获取当前时间的日期值
  ;; 将日期值转换为月、日、时、分、秒
  (setq month (rtos (fix (/ (rem current-time 1000000) 10000)) 2 0)) ; 获取月份
  (setq day (rtos (fix (/ (rem current-time 10000) 100)) 2 0)) ; 获取日期
  (setq hour (rtos (fix (/ (rem current-time 100) 10000)) 2 0)) ; 获取小时
  (setq minute (rtos (fix (/ (rem current-time 10000) 100)) 2 0)) ; 获取分钟
  (setq second (rtos (rem current-time 100) 2 0)) ; 获取秒钟

  (setq timestamp (strcat year month day hour minute second)) ; 生成时间戳

谢谢，帮我一下吧。

lht · 发表于 2023-11-28 16:32:34

(setq tm (rtos (getvar "CDATE") 2 6))

xyp1964 · 发表于 2023-11-28 16:33:29

(setq timestamp (rtos (getvar 'CDATE) 2 8))

wanchr · 发表于 2023-11-28 17:23:46

高明，谢谢了，问ai 还是不行。

goldwheat · 发表于 2023-11-28 19:25:07

;第一种年月日星期与小时分钟秒可以设置格式"2023年11月28日星期二 19:24:11"
(menucmd "m=$(edtime,$(getvar,date),YYYY年MO月DD日DDDD HH:MM:SS)")
;第二种就是将年月日小时分钟秒用10进制数字表示";;;生成日期：20231128.104210"表示2023年11月28日10时42分10秒
(progn (setq sj 0)
(while (>= sj -60)
(princ (strcat "\n;;;生成日期：" (rtos (getvar "cdate") 2 6)))
(COMMAND "DELAY" "1000") ;以毫秒为单位1000，就是1秒。
(setq sj (- sj 1 ))
))

wzg356 · 发表于 2023-11-29 12:23:48

(setq FILE(strcat "c:\\X"(substr(rtos(* (getvar "cdate")1e4)2 0)5)".lsp"))

账号		自动登录	找回密码
密码			注册

[提问] 为什么老是不能得到正确时间显示，我要用它生成文件名