如何获取系统时间？

我爱你王子呀

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

lisperado

;编辑：添加此LISP函数

1. ( time )　

( time )　

;返回
"4:43:43.928"

Diesel 方式：
12小时制　AM/PM

1. (alert (strcat "现在时间是 " (menucmd "M=$(edtime,0,HH:MM:SS.MSEC am/pm)")))

(alert (strcat "现在时间是 " (menucmd "M=$(edtime,0,HH:MM:SS.MSEC am/pm)")))

24小时制

1. (defun 24HR ( / time n a)
   
2. (setq time (menucmd "M=$(edtime,0,HH am/pm:MM:SS)")
   
3.       n        (vl-string-search ":" time)
   
4.       a        (substr time 1 n)
   
5.       )
   
6. (strcat        (itoa (+ (read a)
   
7.                  (if (wcmatch a "*am*")
   
8.                    0
   
9.                    12
   
10.                    )
    
11.                  )
    
12.               )
    
13.         (substr time (1+ n))
    
14.         " Hrs")
    
15. )
    
16. 
    
17. 
    
18. 
    

(defun 24HR ( / time n a)<br /> (setq time (menucmd "M=$(edtime,0,HH am/pm:MM:SS)")<br />       n        (vl-string-search ":" time)<br />       a        (substr time 1 n)<br />       )<br /> (strcat        (itoa (+ (read a)<br />                  (if (wcmatch a "*am*")<br />                    0<br />                    12<br />                    )<br />                  )<br />               )<br />         (substr time (1+ n))<br />         " Hrs")<br /> )<br /> <br /> <br /> <br />

(alert (24HR))

;返回
"23:31:01 Hrs"

ZZXXQQ

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

空间里是否

cad命令date，使用command

lucas_3333

用(getvar 'cdate)

1. _$ (itoa (fix (getvar 'cdate)))
   
2. "20151008"

_$ (itoa (fix (getvar 'cdate)))<br /> "20151008"

我爱你王子呀

3q very much 大神 早安

李钊伟2012

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

y用了五个括号，不如直接截取后面分数秒数