参考文件批量修改程序

mikewolf2k

使用说明：
打开一个Excel，根据实际情况输入A-E列，遇到A列第一个空单元格结束。然后在AutoCAD中输入VBARUN，选择RefPathRevise运行。不会使用或者未安装VBA的，请自行在网上搜索如何使用宏。
Excel格式说明:
A: 原参考名，支持通配符*?。
B：预修改的参考文件的文件名。可以是完整路径，也可以是相对路径(.\表示主文件同级路径，..\表示主文件上级目录，..\..\表示上两级目录，以此类推)，或者仅文件名。
C：新的参考名。
空：新参考的文件名。
No Change：保持原来的参考名不变。
其余：新的参考名，可以是任意，与原来或者新的文件名无关。
D：路径类型。
空：与B列保持一致。
Absolute:改为绝对路径。
Relative：改为相对路径。
Remove：去除路径信息，仅保留文件名。
E：文件名过滤器。仅当文件名包含此列字符时才生效，空表示任意文件均生效。
应用举例：
1. 原有参考的ref1.dwg改为refA.dwg，新的参考名依旧为原来的ref1。
A B   C  D  E
-----------------------------------------------------------------
ref1 c:\reffiles\refA.dwg No Change
2. 原有参考的ref1.dwg改为refA.dwg,新的参考名为新参考文件的文件名。
A B   C  D  E
-----------------------------------------------------------------
ref1 c:\reffiles\refA.dwg  
3. 原有参考的ref1.dwg改为refA.dwg,新的参考名为NewRefA。
A B   C  D  E
-----------------------------------------------------------------
ref1 c:\reffiles\refA.dwg NewRefA
4. 原有参考的ref1.dwg改为上级目录下的refA.dwg,保存为绝对路径。
A B   C  D  E
-----------------------------------------------------------------
ref1 ..\refA.dwg    Absolute
5. 将原来所有的参考路径批量改为相对路径。
A B   C  D  E
-----------------------------------------------------------------
*      Relative
6. File1中的参考ref1改为refA.dwg,File2中的参考ref1改为refB.dwg,其余文件中的参考ref1改为refC.dwg
A B   C  D  E
-----------------------------------------------------------------
ref1 c:\reffiles\refA.dwg     file1
ref1 c:\reffiles\refB.dwg     file2
ref1 c:\reffiles\refC.dwg     

mikewolf2k

格式说明下面的举例部分，网页不支持tab，错位了，具体请看附件内的readme.txt吧

longer1000

批量修改文件名？

yaokui25

楼主能否传一份EXCEL文件上来看看

mikewolf2k

批量修改参考的文件。excel格式见附件内readme.txt