【Gu_xl】图纸自动备份

Gu_xl

x_s_s_1 发表于 2013-5-20 14:33
尚应有删除机制

已添加删除文件功能！

OWEN7

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

Gu_xl

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

加载后是自动启动！

OWEN7

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

Gu_xl

文件名若超长则会失败！

669423907

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

669423907

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

maiko

我也正写了个,献献丑
(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)
)

龙吟小调

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

张和平

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

这个想法不错