读取当前dwg文档上一次的修改时间

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

本帖最后由 tryhi 于 2021-9-15 23:41 编辑

vl-file-systime函数无法读取当前文档，换了另类的方式实现

(defun tt (file / a ff file2 line name)
      (setvar "CMDECHO" 0)
      (setq file2(vl-filename-mktemp "time.txt")
            name(strcat(vl-filename-base file)(vl-filename-extension file))
      )
      (setq a (strcat "cd /d \""(vl-filename-directory file) "\"&for /f \"delims=\" %a in ('dir /b/a-d \"" name "\"') do echo,%~ta>"file2""))
      (command "SHELL" a)
      (command "DELAY" 300)
      (setq ff(open file2 "r"))
      (setq line(read-line ff))
      (close ff)
      (vl-file-delete file2)
      line
)

(setq time(tt (strcat(getvar "DWGPREFIX")(getvar "DWGNAME"))))
(princ(strcat"上次修改时间为："time))
(princ)

mokson · 发表于 2021-11-27 08:28:36

原理是：让CAD读入由批处理命令 dir 生成的文件日期属性的文本文件，并显示。

xj6019 · 发表于 2021-11-27 08:02:12

字段里有可以读取时间的方式吧，不知道那些东西能获取到了不

yanshengjiang · 发表于 2021-11-26 22:10:30

Wanda 发表于 2021-9-17 08:03
这个蒸牛批

这个什么味？

iamhuangjinming · 发表于 2021-9-15 21:11:21

good ~~~~!

xj6019 · 发表于 2021-9-15 21:49:49

good ~~~~! 感谢分享，备下了

lxl217114 · 发表于 2021-9-16 09:28:59

厉害了，留个脚印。

dasha321 · 发表于 2021-9-16 09:44:36

弱弱问一下这个实现的目的是什么呢

magicheno · 发表于 2021-9-16 18:55:44

感谢海哥分享

Bao_lai · 发表于 2021-9-16 22:02:04

不知用途何在？

Wanda · 发表于 2021-9-17 08:03:07

这个蒸牛批

nijiea123 · 发表于 2021-9-18 13:16:17

这个很不错留下一个脚印

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

[函数] 读取当前dwg文档上一次的修改时间

评分

评分

点评