我爱你王子呀 发表于 2015-10-8 08:13:33

如何获取系统时间？

各位大神，早安，第一天上班，预祝群里的兄弟姐妹一切顺利，美美哒！
小弟在此一问：lisp用什么函数可以获取系统时间就是当前电脑的时间？

lisperado 发表于 2018-11-27 11:09:07

本帖最后由 lisperado 于 2018-11-28 17:03 编辑

;编辑：添加此LISP函数
( time )　;返回
"4:43:43.928"

Diesel 方式：
12小时制　AM/PM

(alert (strcat "现在时间是 " (menucmd "M=$(edtime,0,HH:MM:SS.MSEC am/pm)")))
24小时制
(defun 24HR ( / time n a)
(setq time (menucmd "M=$(edtime,0,HH am/pm:MM:SS)")
      n      (vl-string-search ":" time)
      a      (substr time 1 n)
      )
(strcat      (itoa (+ (read a)
               (if (wcmatch a "*am*")
                   0
                   12
                   )
               )
            )
      (substr time (1+ n))
      " Hrs")
)





(alert (24HR))

;返回
"23:31:01 Hrs"





ZZXXQQ 发表于 2015-10-8 09:31:43

(fix (*(- (getvar"cdate") (fix(getvar"cdate"))) 1000000))

空间里是否 发表于 2015-10-8 08:25:32

cad命令date，使用command

lucas_3333 发表于 2015-10-8 08:30:22

用(getvar 'cdate)

_$ (itoa (fix (getvar 'cdate)))
"20151008"

我爱你王子呀 发表于 2015-10-9 09:11:44

3q very much 大神 早安

李钊伟2012 发表于 2018-11-26 23:45:56

ZZXXQQ 发表于 2015-10-8 09:31
(fix (*(- (getvar"cdate") (fix(getvar"cdate"))) 1000000))

y用了五个括号，不如直接截取后面分数秒数
页: [1]
查看完整版本: 如何获取系统时间？