[求助]：如何批量修改外部参照路径（救命！！）

sosilitoo

几个人做的文件，引用的都是同一文件名的图框，但是因为设计人不同（设计人名字填写在外部参照的图框中），在汇总到同一文件夹后，不能分别正确引用。
现想把图框分别修改为 ：图框A 图框B 图框C（原来为 图框），如何修改原有文件的外部参照路径，使它们分别引用这三个图框。
由于文件量很大，需要各位大虾提供批量修改的办法。。。。
谢谢

看起来问题很简单，但是困扰我很长时间，支援一下！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

carrot1983

重新参照。。。

取得当然的块参照的特性。。。

重新插入。

sosilitoo

打开每张图然后重新修改参照路径当然可以解决问题，但是上千张图纸，修改起来相当麻烦

aeo

命令: -XREF

输入选项 [?/绑定(B)/拆离(D)/路径(P)/卸载(U)/重载(R)/覆盖(O)/附着(A)] <附着>: p

输入要编辑路径的外部参照名: tk2

外部参照名: tk2
原路径: D:\work\tk8\tk2.dwg
输入新路径: d:\work\tk8\1\tk2.dwg

重载 外部参照 "tk2": D:\work\tk8\1\tk2.dwg
“tk2”已加载。

=================================================
按上面的方法写一个批处理：

2. 
   
3. (defun $$$$$test()
   
4.   (setq path "d:\\work\\tk8\") ;;这个可以自己改为要的目录
   
5.   (if (tblsearch"block""图框A")(command "-xref""p""图框A"(strcat path "图框A.dwg")))
   
6.   (if (tblsearch"block""图框B")(command "-xref""p""图框B"(strcat path "图框B.dwg")))
   
7.   (if (tblsearch"block""图框C")(command "-xref""p""图框C"(strcat path "图框C.dwg")))
   
8.   ;;如还有,下面依次类推
   
9. )
   
10. 
    
11. ($$$$$test)
    
12. 
    

<br /> (defun $$$$$test()<br />   (setq path "d:\\work\\tk8\") ;;这个可以自己改为要的目录<br />   (if (tblsearch"block""图框A")(command "-xref""p""图框A"(strcat path "图框A.dwg")))<br />   (if (tblsearch"block""图框B")(command "-xref""p""图框B"(strcat path "图框B.dwg")))<br />   (if (tblsearch"block""图框C")(command "-xref""p""图框C"(strcat path "图框C.dwg")))<br />   ;;如还有,下面依次类推<br /> )<br /> <br /> ($$$$$test)<br /> <br />

把上面的代码存成 acaddoc.lsp 到dwg文件的目录,有个不好就是有的软件可能会冲突。但会自动执行.

或者把 ($$$$$test) 改为(defun c:test()($$$$$test)(princ))
每个文件均要加载并执行test