【Gu_xl】图纸自动备份
本帖最后由 Gu_xl 于 2019-9-17 16:22 编辑根据theisland 的提问，见帖子: 请问有没有快速备份图纸的的程序呢？,写了个反应器的图纸自动备份程序，可将程序添加到启动组或ACAD.lsp中去，保证每次打开文件可自动加载程序。然后打开菜单 工具->选项，修改自动保存时间：
程序将按自动保存时间间隔将文件备份到当前文件目录的\备份目录\ 下，备份文件名称为 "原文件名-年月日-时间.dwg"。
命令: AutoBackUp 功能: 启动自动备份命令
命令: DelAutoBackUp 功能: 停止自动备份命令
命令： DelBakFile 功能:删除备份文件，和设置自动保存文件份数，默认为10份
本帖最后由 moshouhot 于 2024-1-18 15:22 编辑
已按照网友需求修改
1、将自动备份文件夹放到别的盘符
2、屏蔽备份Drawing*文件
版权归gu版所有，如对收币冒犯，通知我删除。
一个题外话，跟这个主体没有太大关系，只是随感而发
发在这里希望gu版别介意
附件是一个office自动存盘的插件，支持word,excel和visio
可执行程序，运行后驻留内存，图标保留在托盘
一旦检测到某个文档发生改变，会有如下提示
选择Ignore则再不会提示，选择Always则自动存盘
需要的朋友可以拿走
我也正写了个,献献丑
(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)
) 哦，谢谢，大侠，这个是好东西，再也不怕cad死机了 介于牛A和牛C之间。 vvcd 发表于 2013-5-20 13:02 static/image/common/back.gif
哦，谢谢，大侠，这个是好东西，再也不怕cad死机了
这个和死机没多大关系，设置了自动保存时间，CAD会替你自动保存文件！这个程序的目的是为了备份之前各个时间段的成果！ G版的东东，顶一个 G版的东东，顶一个 自动另存，不错的想法 尚应有删除机制 岂不是要占用很大的硬盘， 岂不是很多图纸呢。。 强顶一下！