想用vl-file-systime看文件上次保存的日期，可是总是返回nil怎么搞呢?

iamhuangjinming · 发表于 2021-9-12 22:32:51

(setq fmodify (vl-file-systime (strcat(getvar "DWGPREFIX")(getvar "DWGNAME"))))
(if (= fmodify nil)(Princ "■文件修改未知■")
(princ fmodify)
)

shenhung · 发表于 2021-9-12 22:59:26

;;圖檔被打開狀態下..FILE-SYSTIME 會回傳NIL
(defun DwgForm_file_date (strFile / lstDate)
  (if (vl-file-systime strFile)
   (progn
   (setq a strfile)
   (setq lstDate (mapcar 'DwgForm_check_digit (mapcar 'itoa (vl-file-systime strFile))))
                                    ; 年                月                日                時                分
   (setq file-date (strcat (nth 0 lstDate) "-" (nth 1 lstDate) "-" (nth 3 lstDate) " " (nth 4 lstDate) ":" (nth 5 lstDate)))

   )
   (setq file-date "目前圖檔編輯中")
)
(if file-date file-date)
)

iamhuangjinming · 发表于 2021-9-14 22:38:11

shenhung 发表于 2021-9-12 22:59
;;圖檔被打開狀態下..FILE-SYSTIME 會回傳NIL
(defun DwgForm_file_date (strFile / lstDate)
(if (vl- ...

可以给一个defun c:的可以执行的么，把日期的princ出来就好

tryhi · 发表于 2021-9-15 18:04:24

读取当前dwg文档上一次的修改时间
http://bbs.mjtd.com/thread-184136-1-1.html

iamhuangjinming · 发表于 2021-9-15 21:10:36

tryhi 发表于 2021-9-15 18:04
读取当前dwg文档上一次的修改时间
http://bbs.mjtd.com/thread-184136-1-1.html

消失的天空 · 发表于 2022-8-22 23:39:50

本帖最后由消失的天空于 2022-8-22 23:41 编辑

shenhung 发表于 2021-9-12 22:59
;;圖檔被打開狀態下..FILE-SYSTIME 會回傳NIL
(defun DwgForm_file_date (strFile / lstDate)
(if (vl- ...

可以在DCL上显示修改时间了。原版的跑不动，自己修改了一下用得起了
;;当被打开状态下..FILE-SYSTIME 返回NIL
(defun DwgForm_file_date (strFile / lstDate file-date)
  (if (vl-file-systime strFile)
   (progn
   (setq lstDate (mapcar 'itoa (vl-file-systime strFile))); 年-月-日-时-分
   (setq file-date (strcat "修改日期："(nth 0 lstDate) "-" (nth 1 lstDate) "-" (nth 3 lstDate) " " (nth 4 lstDate) ":" (nth 5 lstDate))))
   (setq file-date "目前文件编辑中")
)
file-date
)
;;如果地址里面有杠杠换一下
;;地址转换"/" "\\"
(defun driss(string)
(while (vl-string-search "\\" string)
(setq string (vl-string-subst "/" "\\" string)))
  )

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

[提问] 想用vl-file-systime看文件上次保存的日期，可是总是返回nil怎么搞呢?

本帖子中包含更多资源