同名的CAD文件合并（文件内有块）

杨张张

同名的CAD文件合并，
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:hhh (/ 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.   (setq i -1)
    
29.   (setq j -1)
    
30.   (setvar "cmdecho" 0)
    
31.   (while (setq dwgnamexz (nth (setq i (1+ i)) filesxz))
    
32.     (command "-insert" (strcat pathgh dwgnamexz) "0,0" "1" "1" "0")
    
33.     (command "_explode" "all" "");分解了,以免不懂的人不会修改表头
    
34.     (command "-purge" "a" "" "n")
    
35.     (command "-insert" (strcat pathxz dwgnamexz) "0,0" "1" "1" "0")
    
36.     (command "_explode" "all" "");分解了,以免不懂的人不会修改表头
    
37.     (command "-purge" "a" "" "n")
    
38.     (command "_saveas" "" (strcat pathHB dwgnamexz))
    
39.     (command "_erase" "all" "");全部删除图中内容
    
40.   )
    
41. )

;；；自定义函数，打开文件名<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:hhh (/ 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 />   (setq i -1)<br />   (setq j -1)<br />   (setvar "cmdecho" 0)<br />   (while (setq dwgnamexz (nth (setq i (1+ i)) filesxz))<br />     (command "-insert" (strcat pathgh dwgnamexz) "0,0" "1" "1" "0")<br />     (command "_explode" "all" "");分解了,以免不懂的人不会修改表头<br />     (command "-purge" "a" "" "n")<br />     (command "-insert" (strcat pathxz dwgnamexz) "0,0" "1" "1" "0")<br />     (command "_explode" "all" "");分解了,以免不懂的人不会修改表头<br />     (command "-purge" "a" "" "n")<br />     (command "_saveas" "" (strcat pathHB dwgnamexz))<br />     (command "_erase" "all" "");全部删除图中内容<br />   )<br /> )

杨张张

请坛内大神帮忙修改，谢谢。

zhangcan0515

这个需要把其中的块提前给炸开

革天明

你都不给出具体的合并规则，改代码没有意义
同名块如何处理？
同名线型、图层、文字样式如何处理？