（XD::Time:Now）获得当前时间

/db_自贡黄明儒_

newer 发表于 2017-7-28 20:39

感谢各位，终于查明，除去除星期几外，我的逻辑上还是有问题，更新如下
;

1. ;***************菜单更新***********************
   
2. (defun HH:updMenu (/ FILENAME FILETIME MNUFILE MNUTIME TimeCompa)
   
3.   ;;TimeCompa,返回nil，表示菜单文件是最新的，不需要更新
   
4.   ;;(2017 7 25 8 48 8 0)
   
5.   ;;(2017 7 28 20 12 49 715)
   
6.   (defun TimeCompa (MnuTime fileTime / FLAG FT MT)  
   
7.     (while (and (not Flag) (setq MT (car MnuTime)))
   
8.       (setq MnuTime (cdr MnuTime))
   
9.       (setq fT (car fileTime))
   
10.       (setq fileTime (cdr fileTime))
    
11.       (if (/= MT fT) (setq Flag T))
    
12.     )     
    
13.     (> MT fT)
    
14.   )
    
15.   (cond
    
16.     ((and (setq Mnufile (findfile "CXinZhi.mnu"))
    
17.           (setq MnuTime (VL-FILE-SYSTIME Mnufile))
    
18.           (setq MnuTime (vl-remove (caddr MnuTime) MnuTime))
    
19.           (cond        ((or
    
20.                    (setq FileName (findfile "CXinZhi.mnr"))
    
21.                    (setq FileName (findfile "CXinZhi.mnc"))
    
22.                    (setq FileName (findfile "CXinZhi.mns"))
    
23.                    (setq FileName (findfile "CXinZhi.cuix"))
    
24.                    (setq FileName (findfile "CXinZhi_light.mnr"));2016
    
25.                  )
    
26.                  (setq fileTime (VL-FILE-SYSTIME FileName))
    
27.                  (setq fileTime (vl-remove (caddr fileTime) fileTime))
    
28.                 )
    
29.           )
    
30.           (TimeCompa MnuTime fileTime)
    
31.      )
    
32.      (cond ((setq FileName (findfile "CXinZhi.mnr")) (deletefile FileName)))
    
33.      (cond ((setq FileName (findfile "CXinZhi.mnc")) (deletefile FileName)))
    
34.      (cond ((setq FileName (findfile "CXinZhi.mns")) (deletefile FileName)))
    
35.      (cond ((setq FileName (findfile "CXinZhi.cuix")) (deletefile FileName))
    
36.      )
    
37.      ;;(if (menugroup "CXinZhi")
    
38.        ;;(command "menuunload" "CXinZhi")                            ;不能带后缀
    
39. ;;;       (command "menuload" "CXinZhi")
    
40.      ;;)
    
41.     )
    
42.   )
    
43.   (princ)
    
44. )
    
45. ;;执行
    
46. (HH:updMenu)
    
47. ;;***************菜单更新***********************
    

;***************菜单更新***********************<br /> (defun HH:updMenu (/ FILENAME FILETIME MNUFILE MNUTIME TimeCompa)<br />   ;;TimeCompa,返回nil，表示菜单文件是最新的，不需要更新<br />   ;;(2017 7 25 8 48 8 0)<br />   ;;(2017 7 28 20 12 49 715)<br />   (defun TimeCompa (MnuTime fileTime / FLAG FT MT)  <br />     (while (and (not Flag) (setq MT (car MnuTime)))<br />       (setq MnuTime (cdr MnuTime))<br />       (setq fT (car fileTime))<br />       (setq fileTime (cdr fileTime))<br />       (if (/= MT fT) (setq Flag T))<br />     )     <br />     (> MT fT)<br />   )<br />   (cond<br />     ((and (setq Mnufile (findfile "CXinZhi.mnu"))<br />           (setq MnuTime (VL-FILE-SYSTIME Mnufile))<br />           (setq MnuTime (vl-remove (caddr MnuTime) MnuTime))<br />           (cond        ((or<br />                    (setq FileName (findfile "CXinZhi.mnr"))<br />                    (setq FileName (findfile "CXinZhi.mnc"))<br />                    (setq FileName (findfile "CXinZhi.mns"))<br />                    (setq FileName (findfile "CXinZhi.cuix"))<br />                    (setq FileName (findfile "CXinZhi_light.mnr"));2016<br />                  )<br />                  (setq fileTime (VL-FILE-SYSTIME FileName))<br />                  (setq fileTime (vl-remove (caddr fileTime) fileTime))<br />                 )<br />           )<br />           (TimeCompa MnuTime fileTime)<br />      )<br />      (cond ((setq FileName (findfile "CXinZhi.mnr")) (deletefile FileName)))<br />      (cond ((setq FileName (findfile "CXinZhi.mnc")) (deletefile FileName)))<br />      (cond ((setq FileName (findfile "CXinZhi.mns")) (deletefile FileName)))<br />      (cond ((setq FileName (findfile "CXinZhi.cuix")) (deletefile FileName))<br />      )<br />      ;;(if (menugroup "CXinZhi")<br />        ;;(command "menuunload" "CXinZhi")                            ;不能带后缀<br /> ;;;       (command "menuload" "CXinZhi")<br />      ;;)<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;执行<br /> (HH:updMenu)<br /> ;;***************菜单更新***********************<br />

wzjck01

学习学习了

wzjck01

学习，学习。