[分享]：AutoCAD 文件自动备份工具（VBA部分代码）

efan2000

本程序是在VBA环境中运行的，需要R2000及以上版本才支持。
本程序是以组件的方式封装的，运行之前请先注册EFBackup.dll，在“运行”中键入：Regsvr32 "路径\EFBackup.dll"。

1、程序加载后，自动在C盘根目录下创建一个ACADBackFile.Dat的文件，用于存放备份的文件。
2、对于ACAD运行时的创建的临时文件、或者手工保存的文件将进行备份，且记录每一次的备份文件，因而如果自动保存的时间设置很小或者打开的文件过多，请及时清除不用的备份文件。
3、对于其它的文件，可以手工添加备份。相当于一个小型的文件管理的功能。  

程序附后：查看密码：backup。需要在R2004中才能打开VBA环境。

efan2000

组件的主要功能介绍如下：

1. 
   
2.   [FONT=courier new]
   
3. 1、NewBackup 新建一个备份文件，后面的参数Name代表文件名称。
   
4. 2、OpenBackup 打开一个备份文件，后面的参数Name代表文件名称。
   
5. 3、DeleteBackup 删除当前打开的备份文件。
   
6. 4、AddFile 在当前打开的备份文件中增加一个文件记录，后面的参数Name代表文件名称。
   
7. 5、DeleteFile 在当前打开的备份文件中删除一个文件记录，后面的参数Index代表备份文件中的编号。
   
8. 6、EditFile 在当前打开的备份文件中替代一个文件记录，后面的参数Index代表备份文件中的编号，Name代表要替代的文件名称。
   
9. 7、SaveFile 从当前打开的备份文件中导出一个文件记录，后面的参数Index代表备份文件中的编号，Name代表要保存的文件名称。
   
10. 8、GetRows 获取当前打开的备份文件中的所有记录，保存到一个二维数据组，主要用于列表显示。
    
11. 9、CompactBackup 压缩当前打开的备份文件，主要用于操作一段时间后文件会自动增大。
    
12. 10、ShowOpen 显示打开的对话框，用于获取一个文件的名称。
    
13. 11、ShowSave 显示保存的对话框，用于获取一个文件的名称。
    
14.   [/FONT]
    

复制代码

lqxuyan

是不是能每一次保存都能自动生成一个备份并且原来的备份都不被替换?

efan2000

对，如果设置了自动保存，那么当时间到时当前的一份文件备份将保存到系统中。还有如果手动保存时也会保存一份到系统中。如果需要恢复，可以从系统中导出一份即可恢复原来的图纸。如果系统中的备份不需要了，可以清除掉。