Gu_xl 发表于 2013-5-20 15:19:08

x_s_s_1 发表于 2013-5-20 14:33 static/image/common/back.gif
尚应有删除机制

已添加删除文件功能！

OWEN7 发表于 2013-5-20 15:28:20

加载程序后是不是自动启动，还需要自己输入命令吗， 能不能加载了自动启动， 需要停止的时候再输入命令。

Gu_xl 发表于 2013-5-20 15:30:31

OWEN7 发表于 2013-5-20 15:28 static/image/common/back.gif
加载程序后是不是自动启动，还需要自己输入命令吗， 能不能加载了自动启动， 需要停止的时候再输入命令。

加载后是自动启动！

OWEN7 发表于 2013-5-20 17:03:40

“文件已经备份……备份目录\14#厂房结构-20130520-160233.dwg”去查看的时候没有看到这个文件，需要等吗，

Gu_xl 发表于 2013-5-20 17:18:04

文件名若超长则会失败！

669423907 发表于 2013-5-20 19:42:54

G版真是神人，这都行！
让它只保留5份，然后自动删除最早的那份

669423907 发表于 2013-5-20 19:47:23

那岂不是连 Drawingl1 也备份了？？？？？

maiko 发表于 2013-5-20 19:59:36

我也正写了个,献献丑
(vlax-put-property (vlax-get (vlax-get (vlax-get-acad-object) 'Preferences) 'OpenSave) 'AutoSaveInterval 30)
(if (not (equal (type dwg_reactor_Gohome) 'VLR-DWG-Reactor))
(setq dwg_reactor_Gohome (vlr-dwg-reactor nil '((:vlr-beginsave . GotoHome))))
)
(defun GotoHome (/ time)
(setq time (read (substr (rtos (getvar "cdate") 2 12) 10 4)))
(if (> time 1720)
(cond
   ((= 1 (getvar 'DWGTITLED))
    (vl-mkdir (strcat (getvar 'DWGPREFIX) "图纸备份"))
    (vl-file-copy (strcat (getvar 'DWGPREFIX) (getvar 'DWGNAME))
   (strcat (getvar 'DWGPREFIX) "图纸备份\\" (cadr (fnsplitl (getvar 'DWGNAME))) (menucmd "m=$(edtime,$(getvar,DATE), YYYY-MO-DD HH-MM)")".dwg"))
    (princ "\n-->备份完成")
   )
   ((princ "\n-->没有保存"))
)
)(princ)
)

龙吟小调 发表于 2013-5-20 20:01:09

G版手里出来的永远是好东西，我喜欢

张和平 发表于 2013-5-20 20:20:55

669423907 发表于 2013-5-20 19:42 static/image/common/back.gif
G版真是神人，这都行！
让它只保留5份，然后自动删除最早的那份

这个想法不错
页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: 【Gu_xl】图纸自动备份