读取dwg文件的修改时间

也弓

请问大家怎样用lisp实现：读取dwg文件的修改时间以及怎样用lisp修改DWG文件的修改时间？先谢了啊

byghbcx

TDUPDATE 存储最后一次更新/保存的本地时间和日期
是只读的

也弓

我主要是想修改这个时间，能用lisp实现吗？

carrot1983

byghbcx发表于2007-6-14 11:24:00TDUPDATE 存储最后一次更新/保存的本地时间和日期是只读的

我不知道能不能修改。但是既然二楼说了，只读，你说能不能修改！

carrot1983

扔一个在Autodesk网站看到的。。好像不能用的修改次数的东西

2. ;;;修改修计次数DWGPROPS
3. (defun C:REVNO ();/ reply revno xlist)
4.   ;; get Xrecord and revno
5.   (setq xlist (dictsearch (namedobjdict) "DWGPROPS")
6. xlist (if xlist
7.   xlist
8.   '((0 . "XRECORD")
9.     (100 . "AcDbXrecord")
10.     (1
11.      .
12.      "DWGPROPS COOKIE"
13.     )
14.    )
15.        )
16. revno (assoc 9 xlist)
17. revno (if revno
18.   (cdr revno)
19.   ""
20.        )
21. xlist (mapcar '(lambda (i)
22.     (if (member (car i)
23.          '(0    1  2    3    4 6
24.            7    8  100  300  301 302
25.            303  304  305  306  307 308
26.            309
27.           )
28.         )
29.       i
30.     )
31.          )
32.         xlist
33.        )
34. xlist (apply '(lambda (l / i r)
35.    (foreach i l
36.      (if i
37.        (setq r (append r (list i)))
38.      )
39.    )
40.    r
41.         )
42.        (list xlist)
43.        )
44.   )
45.   ;; get new revno
46.   (setq reply (getstring
47.   T
48.   (strcat "Enter new revision number, or . for none
49. <"   revno
50.    ">: "
51.   )
52.        )
53. reply (if (= "" reply)
54.   revno
55.   reply
56.        )
57. reply (if (= "." reply)
58.   ""
59.   reply
60.        )
61.   )
62.   ;; set Xrecord
63.   (setq xlist (append xlist
64.         (list (cons 9 reply))
65.         (list (cons 40 (getvar "TDINDWG"))
66.        (cons 41 (getvar "TDCREATE"))
67.        (cons 42 (getvar "TDUPDATE"))
68.         )
69.        )
70.   )
71.   (dictremove (namedobjdict) "DWGPROPS")
72.   (dictadd (namedobjdict) "DWGPROPS" (entmakex xlist))
73.   (princ)
74. )

;;;修改修计次数DWGPROPS (defun C:REVNO ();/ reply revno xlist)   ;; get Xrecord and revno   (setq xlist (dictsearch (namedobjdict) "DWGPROPS") xlist (if xlist   xlist   '((0 . "XRECORD")     (100 . "AcDbXrecord")     (1      .      "DWGPROPS COOKIE"     )    )        ) revno (assoc 9 xlist) revno (if revno   (cdr revno)   ""        ) xlist (mapcar '(lambda (i)     (if (member (car i)          '(0    1  2    3    4 6            7    8  100  300  301 302            303  304  305  306  307 308            309           )         )       i     )          )         xlist        ) xlist (apply '(lambda (l / i r)    (foreach i l      (if i        (setq r (append r (list i)))      )    )    r         )        (list xlist)        )   )   ;; get new revno   (setq reply (getstring   T   (strcat "Enter new revision number, or . for none <"   revno    ">: "   )        ) reply (if (= "" reply)   revno   reply        ) reply (if (= "." reply)   ""   reply        )   )   ;; set Xrecord   (setq xlist (append xlist         (list (cons 9 reply))         (list (cons 40 (getvar "TDINDWG"))        (cons 41 (getvar "TDCREATE"))        (cons 42 (getvar "TDUPDATE"))         )        )   )   (dictremove (namedobjdict) "DWGPROPS")   (dictadd (namedobjdict) "DWGPROPS" (entmakex xlist))   (princ) )

oyxx1023

一个笨办法,把系统日期调整到你需要的时间,打开图纸再保存,再把时间调回来.

或者试试FSO,创建FSO接口,用vlax-put-propties方法试试.

dwg001

几个关于时间的系统变量：

TDCREATE 存储创建图形的当地时间和日期。

TDINDWG 存储所有的编辑时间，即在保存当前图形之间占用的总时间。

TDUCREATE 存储创建图形的通用时间和日期。

TDUPDATE 存储最后一次更新/保存图形的当地时间和日期。

 TDUSRTIMER 存储用户消耗的时间计时器。

 TDUUPDATE 存储最后一次更新/保存图形的通用时间和日期。

ZZXXQQ

在空白图中插入要更改时间的图样再另存就能以当前时间和最少的用户编辑时间保存图样了（注意：可事先更改系统时间）。

也弓

我本来的目地是想选中多张图纸，自动purge，然后存盘，因为图纸大部分是原来的存档图，存盘后，修改时间就变成现在的了，我又不想图纸的修改时间变化，所以想寻求在lisp下能修改文件的修改日期的办法。有个软件SmartPurger可以实现上诉功能，主要是用起来图纸大点就出问题，所以想自己编一个，希望大家能给我提点方法，谢谢！

bmy07

（vl-file-systime filename)