多张图纸按原坐标合到一个文件

yrgui

怎么把200张CAD图纸按原坐标自动合并到一张图里面呢？要是一张张打开，复制到一个CAD里边，那费劲死了

mandala

1. (defun c:dwgins(/ folder dwglist  n )
   
2. (command "._undo" "_be")
   
3. (setq folder (GetFolder "选择文件夹"))
   
4. (setq dwglist (VL-DIRECTORY-FILES folder "*.dwg" 1))
   
5. (while (= (length dwglist) 0)
   
6. (setq folder (GetFolder "你选中的文件夹里没有DWG文件，重选！"))
   
7. (setq dwglist (VL-DIRECTORY-FILES folder "*.dwg" 1))
   
8. )
   
9. (setq n 0)
   
10. (repeat (length dwglist)
    
11. (command "insert" (strcat folder "\\" (nth n dwglist)) "0,0" "1" "1" "0"  )
    
12. (setq n (1+ n))
    
13. )
    
14. (command "._zoom" "e")
    
15. (command "._undo" "_e")
    
16. (princ "\n搞定！")
    
17. (princ "\n共插入")(princ (length dwglist))(princ "个DWG文件。")
    
18. (princ)
    
19. )
    
20. 
    
21. ;; 子函数：(GetFolder "选择文件夹:") 返回值：字符串，文件夹路径，如果点了cancel, 返回nil
    
22. 
    
23. (defun GetFolder (msg / WinShell shFolder path catchit)
    
24.   (setq winshell (vlax-create-object "Shell.Application"))
    
25.   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
    
26.   (setq
    
27.     catchit (vl-catch-all-apply
    
28.         '(lambda ()
    
29.      (setq shFolder (vlax-get-property shFolder 'self))
    
30.      (setq path (vlax-get-property shFolder 'path))
    
31.          )
    
32.       )
    
33.   )
    
34.   (if (vl-catch-all-error-p catchit)
    
35.     nil
    
36.     path
    
37.   )
    
38. )

(defun c:dwgins(/ folder dwglist  n )<br /> (command "._undo" "_be")<br /> (setq folder (GetFolder "选择文件夹"))<br /> (setq dwglist (VL-DIRECTORY-FILES folder "*.dwg" 1))<br /> (while (= (length dwglist) 0)<br /> (setq folder (GetFolder "你选中的文件夹里没有DWG文件，重选！"))<br /> (setq dwglist (VL-DIRECTORY-FILES folder "*.dwg" 1))<br /> )<br /> (setq n 0)<br /> (repeat (length dwglist)<br /> (command "insert" (strcat folder "\\" (nth n dwglist)) "0,0" "1" "1" "0"  )<br /> (setq n (1+ n))<br /> )<br /> (command "._zoom" "e")<br /> (command "._undo" "_e")<br /> (princ "\n搞定！")<br /> (princ "\n共插入")(princ (length dwglist))(princ "个DWG文件。")<br /> (princ)<br /> )<br /> <br /> ;; 子函数：(GetFolder "选择文件夹:") 返回值：字符串，文件夹路径，如果点了cancel, 返回nil<br /> <br /> (defun 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<br />     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 /> )

mandala

200张图纸？那合并的速度绝对会让你爽到极点

香田里浪人

合并的速度绝对快，不知精度如何？

llsheng_73

1. (defun C:PT(/ fname path fns)
   
2.    (gc)(setq fname(getfiled "建立总图文件" "C:" "dwg" 1))
   
3.    (setq path (strcat (vl-filename-directory fname)))
   
4.    (setq fns (vl-directory-files path "*.dwg" 1))
   
5.    (setvar"CMDECHO"0)
   
6.    (setvar"OSMODE"(+(getvar"OSMODE")16384))
   
7.    (foreach fn fns
   
8.      (command "INSERT" (strcat "*" path "\\" fn) (list 0 0 0) "1" "0")(gc))
   
9.    (command "ZOOM" "E")
   
10.    (command "-wblock" fname "*")
    
11.    (setvar"OSMODE"(-(getvar"OSMODE")16384))
    
12. )

(defun C:PT(/ fname path fns)<br />    (gc)(setq fname(getfiled "建立总图文件" "C:" "dwg" 1))<br />    (setq path (strcat (vl-filename-directory fname)))<br />    (setq fns (vl-directory-files path "*.dwg" 1))<br />    (setvar"CMDECHO"0)<br />    (setvar"OSMODE"(+(getvar"OSMODE")16384))<br />    (foreach fn fns<br />      (command "INSERT" (strcat "*" path "\\" fn) (list 0 0 0) "1" "0")(gc))<br />    (command "ZOOM" "E")<br />    (command "-wblock" fname "*")<br />    (setvar"OSMODE"(-(getvar"OSMODE")16384))<br /> )

很久很久以前的;在空图上运行，选定一个文件夹，给总图起个图名

araise

好东西，赞一个

byghbcx

用dbx方法试试

落雪___

llsheng_73 发表于 2013-11-22 09:06
很久很久以前的;在空图上运行，选定一个文件夹，给总图起个图名

合并的图纸都重叠在一起了，有没有办法分开啊，不要重叠的

llsheng_73

落雪___ 发表于 2015-11-2 11:58
合并的图纸都重叠在一起了，有没有办法分开啊，不要重叠的

合并到一起了可能是你的图不是每个图都是不同坐标的
如果是这样，插入进行的时候不要散开图形，让它们保持为块，就比较容易人为移开了

落雪___

llsheng_73 发表于 2015-11-2 14:52
合并到一起了可能是你的图不是每个图都是不同坐标的
如果是这样，插入进行的时候不要散开图形，让它们保 ...

数量蛮多的，有时候上千张呢，有办法改进吗。我每一个图纸的特点是：都是在同一个原点上