明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 217|回复: 9

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

  [复制链接]
发表于 2021-9-15 18:04 | 显示全部楼层 |阅读模式
本帖最后由 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)

评分

参与人数 2明经币 +2 收起 理由
fyw12345 + 1 很给力!
USER2128 + 1 很给力!

查看全部评分

发表于 2021-9-15 21:49 | 显示全部楼层

good ~~~~!  感谢分享,备下了
发表于 2021-9-16 09:28 | 显示全部楼层
厉害了,留个脚印。
发表于 2021-9-16 09:44 | 显示全部楼层
弱弱问一下这个实现的目的是什么呢

点评

不晓得,看到有人在问  发表于 2021-9-16 15:29
发表于 2021-9-16 18:55 | 显示全部楼层
感谢海哥分享
发表于 2021-9-16 22:02 来自手机 | 显示全部楼层
不知用途何在?
发表于 2021-9-17 08:03 | 显示全部楼层
这个蒸牛批
发表于 2021-9-18 13:16 | 显示全部楼层
这个很不错 留下一个脚印
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2021-10-25 13:15 , Processed in 0.529484 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表