获得文件日期，时间的函数

aicr317

(defun c:systime(/ n y r s f m yy rr ff mm cfile timetable)
(setq timetable (vl-file-systime "d:\\1.log"))
(setq n (itoa (nth 0 timetable)))
(setq y (nth 1 timetable)) (if (< y 10) (setq yy (strcat "0" (itoa (nth 1 timetable)))) (setq yy (itoa (nth 1 timetable))))
(setq r (nth 3 timetable)) (if (< r 10) (setq rr (strcat "0" (itoa (nth 3 timetable)))) (setq rr (itoa (nth 3 timetable))))
(setq s (itoa (nth 4 timetable)))
(setq f (nth 5 timetable)) (if (< f 10) (setq ff (strcat "0" (itoa (nth 5 timetable)))) (setq ff (itoa (nth 5 timetable))))
(setq m (nth 6 timetable)) (if (< m 10) (setq mm (strcat "0" (itoa (nth 6 timetable)))) (setq mm (itoa (nth 6 timetable))))
(setq cfile (strcat n yy rr s ff mm))

)

jack093

请问楼主：能否获得并设置当前打开的dwg文件的日期

chlh_jd

2. (defun get-file-date(f)
   
3.   (if (setq f (findfile f))
   
4.     (setq f (vl-file-systime f)
   
5.    f (mapcar (function (lambda (x) (rtos x 2 0))) f)
   
6.    f (strcat (car f)"-"(cadr f)"-"(cadddr f)" "(car(cddddr f))":"(cadr(cddddr f))":"(caddr(cddddr f))))))

(defun get-file-date(f)<br />   (if (setq f (findfile f))<br />     (setq f (vl-file-systime f)<br />    f (mapcar (function (lambda (x) (rtos x 2 0))) f)<br />    f (strcat (car f)"-"(cadr f)"-"(cadddr f)" "(car(cddddr f))":"(cadr(cddddr f))":"(caddr(cddddr f))))))

确实 vl-file-systime