【Gu_xl】图纸自动备份

Gu_xl

根据theisland 的提问，见帖子: 请问有没有快速备份图纸的的程序呢？,写了个反应器的图纸自动备份程序，可将程序添加到启动组或ACAD.lsp中去，保证每次打开文件可自动加载程序。然后打开菜单 工具->选项，修改自动保存时间：

程序将按自动保存时间间隔将文件备份到当前文件目录的\备份目录\ 下，备份文件名称为 "原文件名-年月日-时间.dwg"。
命令: AutoBackUp 功能: 启动自动备份命令
命令: DelAutoBackUp 功能: 停止自动备份命令
命令： DelBakFile 功能:删除备份文件，和设置自动保存文件份数，默认为10份

moshouhot

已按照网友需求修改
1、将自动备份文件夹放到别的盘符
2、屏蔽备份Drawing*文件
版权归gu版所有，如对收币冒犯，通知我删除。

xiaxiang

一个题外话，跟这个主体没有太大关系，只是随感而发
发在这里希望gu版别介意
附件是一个office自动存盘的插件，支持word,excel和visio
可执行程序，运行后驻留内存，图标保留在托盘
一旦检测到某个文档发生改变，会有如下提示

选择Ignore则再不会提示，选择Always则自动存盘
需要的朋友可以拿走

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)
)

vvcd

哦，谢谢，大侠，这个是好东西，再也不怕cad死机了

wowan1314

介于牛A和牛C之间。

Gu_xl

vvcd 发表于 2013-5-20 13:02
哦，谢谢，大侠，这个是好东西，再也不怕cad死机了

这个和死机没多大关系，设置了自动保存时间，CAD会替你自动保存文件！这个程序的目的是为了备份之前各个时间段的成果！

hao3ren

G版的东东，顶一个

pimgu

G版的东东，顶一个

仲文玉

自动另存，不错的想法

x_s_s_1

尚应有删除机制

OWEN7

岂不是要占用很大的硬盘， 岂不是很多图纸呢。。

haoryh

强顶一下！