同名文件合并

杨张张

就是有2个文件夹
A文件夹（图名为1、2、3、4、5。。。）
B文件夹（图名为1、2、3、4、5。。。）；
就是将A文件夹与B文件夹中的同名图层原坐标合并，合并后的文件放在C文件夹（图名为1、2、3、4、5。。。）
以下收集的一个源码但有点不成熟，请高手帮忙修改。

1. ;；；自定义函数，打开文件名
   
2. (defun try-getFolder (msg / WinShell shFolder path catchit)
   
3. (setq winshell (vlax-create-object "Shell.Application"))
   
4. (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
   
5. (setq catchit (vl-catch-all-apply
   
6.            '(lambda ()
   
7.              (setq shFolder (vlax-get-property shFolder 'self))
   
8.              (setq path (vlax-get-property shFolder 'path))
   
9.             )
   
10.           )
    
11. )
    
12. (if (vl-catch-all-error-p catchit)
    
13.   nil
    
14.   path
    
15. )
    
16. )
    
17. ;；；；；合并
    
18. (defun c:pltmhb (/ BANBEN DBX pathXZ pathgh pathgh FILESxz filesgh  I j DWGNAMExz dwgnamegh)
    
19.   (vl-load-com)
    
20.   (setq banben (substr (getvar "acadver") 1 2))
    
21.   ;版本2004-2006返回16,2007-2009返回17,2010-2012返回18,2013返回19
    
22.   (setq dbx (Vlax-Get-Or-Create-Object (strcat "ObjectDBX.AxDbDocument." banben)))
    
23.   (setq pathXZ (strcat (try-getFolder "\n 选择现状图所在文件夹名称：") "\\"));文件夹路径  
    
24.   (setq filesxz (vl-directory-files pathXZ "*.dwg" 1)) ;获取所有文件名
    
25.   (setq pathGH (strcat (try-getFolder "\n 选择规划图所在文件夹名称：") "\\"));文件夹路径  
    
26.   (setq filesgh (vl-directory-files pathGH "*.dwg" 1)) ;获取所有文件名
    
27.   (setq pathHB (strcat (try-getFolder "\n 选择合并后所在文件夹名称：") "\\"));文件夹路径  
    
28.    
    
29.   (setq i -1)
    
30.   (while (setq dwgnamexz (nth (setq i (1+ i)) filesxz))
    
31.          (vlax-invoke-method dbx 'open (strcat pathxz dwgnamexz))
    
32.          (command-s "insert"  *(strcat pathgh dwgnamexz)"0,0" "1" "1" "0" )   
    
33.       
    
34.           (vlax-invoke-method dbx 'SaveAs (strcat pathHB dwgnameXZ))
    
35.    
    
36.   )
    
37.   (vlax-release-object dbx);释放
    
38. )

;；；自定义函数，打开文件名<br /> (defun try-getFolder (msg / WinShell shFolder path catchit)<br /> (setq winshell (vlax-create-object "Shell.Application"))<br /> (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br /> (setq catchit (vl-catch-all-apply<br />            '(lambda ()<br />              (setq shFolder (vlax-get-property shFolder 'self))<br />              (setq path (vlax-get-property shFolder 'path))<br />             )<br />           )<br /> )<br /> (if (vl-catch-all-error-p catchit)<br />   nil<br />   path<br /> )<br /> )<br /> ;；；；；合并<br /> (defun c:pltmhb (/ BANBEN DBX pathXZ pathgh pathgh FILESxz filesgh  I j DWGNAMExz dwgnamegh)<br />   (vl-load-com)<br />   (setq banben (substr (getvar "acadver") 1 2))<br />   ;版本2004-2006返回16,2007-2009返回17,2010-2012返回18,2013返回19<br />   (setq dbx (Vlax-Get-Or-Create-Object (strcat "ObjectDBX.AxDbDocument." banben)))<br />   (setq pathXZ (strcat (try-getFolder "\n 选择现状图所在文件夹名称：") "\\"));文件夹路径  <br />   (setq filesxz (vl-directory-files pathXZ "*.dwg" 1)) ;获取所有文件名<br />   (setq pathGH (strcat (try-getFolder "\n 选择规划图所在文件夹名称：") "\\"));文件夹路径  <br />   (setq filesgh (vl-directory-files pathGH "*.dwg" 1)) ;获取所有文件名<br />   (setq pathHB (strcat (try-getFolder "\n 选择合并后所在文件夹名称：") "\\"));文件夹路径  <br />     <br />   (setq i -1)<br />   (while (setq dwgnamexz (nth (setq i (1+ i)) filesxz)) <br />          (vlax-invoke-method dbx 'open (strcat pathxz dwgnamexz))<br />          (command-s "insert"  *(strcat pathgh dwgnamexz)"0,0" "1" "1" "0" )    <br />       <br />           (vlax-invoke-method dbx 'SaveAs (strcat pathHB dwgnameXZ))<br />     <br />   )<br />   (vlax-release-object dbx);释放<br /> )

杨张张

请大神帮忙修改！！1