设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 开源函数库 › （XD::Time:Now）获得当前时间
12下一页
返回列表 发新帖
查看: 2217|回复: 17

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

[复制链接]
newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2017-7-28 15:40:17 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Time:Now
调用格式: (XD::Time:Now)
参数说明: 无
返回值: 字符串表 （年 月 日 时 分 秒 毫秒）
函数简介: 获得当前时间
函数来源: 原创
函数作者: newer
适用版本: 不限 
最后更新时间: 2017-07-28
备注: -
演示图片: -

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
  1. (defun XD::Time:Now ( / date hour minu mouth msec sec time1 year)
  2.   (setq time1 (rtos (getvar "cdate") 2 20)
  3.         year (substr time1 1 4)
  4.         mouth (substr time1 5 2)
  5.         date (substr time1 7 2)
  6.         hour (substr time1 10 2)
  7.         minu (substr time1 12 2)
  8.         sec (substr time1 14 2)
  9.         msec (substr time1 16 2)
  10.   )
  11.   (list year mouth date hour minu sec msec)
  12. )



命令: (XD::Time:Now)
("2017" "07" "28" "15" "38" "14" "83")

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2017-7-28 15:50:07 | 显示全部楼层
我每次开启cad,都把自定义菜单比较时间一下，希望自定义菜单更新后，就自动更新。结果总是失望，N版要不来一个？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
 楼主| 发表于 2017-7-28 15:56:06 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2017-7-28 15:50

还判断啥啊，总是更新呗，也没多少时间
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
 楼主| 发表于 2017-7-28 15:57:23 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2017-7-28 15:50

你是怎么定义的呢？ 菜单什么名？ 哪个文件名和哪个文件名比较？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2017-7-28 16:08:43 | 显示全部楼层
newer 发表于 2017-7-28 15:57

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

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
 楼主| 发表于 2017-7-28 16:25:59 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2017-7-28 16:08

http://bbs.xdcad.net/thread-711296-1-1.html

用这个获得下文件最后修改时间，然后比较下。

写好后，贴上来啊。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2017-7-28 16:34:15 | 显示全部楼层
newer 发表于 2017-7-28 16:25

为什么(VL-FILE-SYSTIME FileName)这个函数这么难使用？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2017-7-28 16:49:53 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2017-7-28 16:34

黄总，是不是理会错了返回值啊

命令: (vl-file-systime "d:\\autorun.inf")
(2015 5 4 28 13 52 13 876)


表示的是文件最后修改日期为：2015年5月28日周四 13点52分13秒876毫秒
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2017-7-28 17:02:54 | 显示全部楼层
Lisphk 发表于 2017-7-28 16:49

不是理解错了。是没有处理好
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2017-7-28 17:46:25 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2017-7-28 17:02

你把 星期 的去掉， 然后组合成字符串，比较下大小就行了

  1. (defun _isnew (fn1 fn2)
  2.   (and (setq fn1 (findfile fn1))
  3.        (setq fn2 (findfile fn2))
  4.        (setq d1        (vl-file-systime fn1)
  5.              d1        (append (xd::list:nth-- d1 2 nil) (xd::list:nth++ d1 3 nil))
  6.              d1 (apply 'strcat (mapcar 'itoa d1))
  7.              d2        (vl-file-systime fn2)
  8.              d2        (append (xd::list:nth-- d2 2 nil) (xd::list:nth++ d2 3 nil))
  9.              d2 (apply 'strcat (mapcar 'itoa d2))
  10.        )
  11.        (> d1 d2)
  12.   )
  13. )



或者用N版发的得到儒略日期的最后文件修改时间，比较下时间

  1. (defun _isnew (fn1 fn2)
  2.   (and (setq fn1 (findfile fn1))
  3.        (setq fn2 (findfile fn2))
  4.        (setq d1        (XD::File:GetLastModified fn1)
  5.              d2        (XD::File:GetLastModified fn2)
  6.        )
  7.        (> d1 d2)
  8.   )
  9. )


评分

参与人数 1D豆 +5 收起 理由
/db_自贡黄明儒_ + 5 你的办法好！

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2017-7-28 18:28:05 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2017-7-28 16:08

不管如何变化，只要启动加载 mns，剩下的交给 ACAD
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2017-7-28 20:05:24 | 显示全部楼层
st788796 发表于 2017-7-28 18:28

但我只修改.mnu。这个也方便改
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2017-7-28 20:28:06 | 显示全部楼层
本帖最后由 /db_自贡黄明儒_ 于 2017-7-28 20:31 编辑
marting 发表于 2017-7-28 17:46

我就是想知道我那个问题在什么地方，应该你说的对，去掉多少周
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
 楼主| 发表于 2017-7-28 20:32:02 | 显示全部楼层
本帖最后由 newer 于 2017-7-28 20:34 编辑
/db_自贡黄明儒_ 发表于 2017-7-28 20:28

带 星期 可不一定正确， 新文件可能是周一的，老文件可能是周六的。
你把星期去掉后的时间，还用你原来的代码判断，看如何？

另外，秒，毫秒那些，都不能去比较，新文件的秒和毫秒可能都比老文件小。

如果你是每个位去比较的话。

所以，你还是组合成时间字符串去比较最靠谱。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
 楼主| 发表于 2017-7-28 20:39:13 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2017-7-28 20:28

(2015 5 3 12 13 52 13 876)   2015年5月12日星期三13点52分13秒
(2015 5 1 29 13 52 13 876)   2015年5月29日星期一13点52分13秒


明显第二个时间是新的，但是你要带星期，组合的数是第一个大（新）
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-22 01:12 , Processed in 0.222478 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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