[VBA]：AutoCAD 文件自动备份工具（VBA部分代码）
本帖最后由 作者 于 2003-10-14 18:52:35 编辑本程序是在VBA环境中运行的，需要R2000及以上版本才支持。
本程序是以组件的方式封装的，运行之前请先注册EFBackup.dll，在“运行”中键入：Regsvr32 "路径\EFBackup.dll"。
1、程序加载后，自动在C盘根目录下创建一个ACADBackFile.Dat的文件，用于存放备份的文件。
2、对于ACAD运行时的创建的临时文件、或者手工保存的文件将进行备份，且记录每一次的备份文件，因而如果自动保存的时间设置很小或者打开的文件过多，请及时清除不用的备份文件。
3、对于其它的文件，可以手工添加备份。相当于一个小型的文件管理的功能。
程序附后：查看密码：backup。需要在R2004中才能打开VBA环境。
好！2002里面也能成功打开VBA环境！不过我对软件功能以及程序还不大懂。 函数的主要功能介绍：
1、NewBackup 新建一个备份文件，后面的参数Name代表文件名称。
2、OpenBackup 打开一个备份文件，后面的参数Name代表文件名称。
3、DeleteBackup 删除当前打开的备份文件。
4、AddFile 在当前打开的备份文件中增加一个文件记录，后面的参数Name代表文件名称。
5、DeleteFile 在当前打开的备份文件中删除一个文件记录，后面的参数Index代表备份文件中的编号。
6、EditFile 在当前打开的备份文件中替代一个文件记录，后面的参数Index代表备份文件中的编号，Name代表要替代的文件名称。
7、SaveFile 从当前打开的备份文件中导出一个文件记录，后面的参数Index代表备份文件中的编号，Name代表要保存的文件名称。
8、GetRows 获取当前打开的备份文件中的所有记录，保存到一个二维数据组，主要用于列表显示。
9、CompactBackup 压缩当前打开的备份文件，主要用于操作一段时间后文件会自动增大。
10、ShowOpen 显示打开的对话框，用于获取一个文件的名称。
11、ShowSave 显示保存的对话框，用于获取一个文件的名称。
好东东! 2000 不能打开啊 重新上载了，可以自己新建一个DVB工程。然后将源程序导入，最后引用efbackup.dll文件即可。 <P>好东东！真是佩服至极！顶</P> efan2000 发表于 2003-10-14 18:54 static/image/common/back.gif
重新上载了，可以自己新建一个DVB工程。然后将源程序导入，最后引用efbackup.dll文件即可。
我按照你说的方法（CAD2007版本）：
运行: regsvr32 "D\CADTolls\efbackup.dll"注册了组建；
加载：D\CADTolls\EFBackup.dvb
ALT+F8运行该dvb文件，窗口能出来，可是内容始终为空白（我设置1分钟自动保存，且在这一分钟内修改了图形）。
还有几处疑问，这是在cad打开状态下运行宏打开那个窗口，若是cad死机或断电了，它还能保存吗！
谢谢版主！
页:
[1]