寻求相关插件

zhouzhiy

将2个或多个DWG文件进行合并，使其合并后图的坐标位置保持不变，相同图层也进行合并。或者将一个dwg文件里某个图层合并到其它dwg文件中坐标位置保持不变。

Lisphk

INSERT，原点插入，炸开

newer

你是要拼地形图吧？

1. (defun c:XDTB_BlkBatIns (/ fns i len msg my_err x)
   
2.   (defun my_err (msg)
   
3.     (princ msg)
   
4.     (xdrx_sysvar_pop)
   
5.     (xdrx_end)
   
6.     (setq *error* nil)
   
7.     (princ)
   
8.   )
   
9.   (if (setq fns (xdrx_system_selectfile "*.dwg" ""))
   
10.     (progn
    
11.       (xdrx_begin)
    
12.       (setq *error* my_err)
    
13.       (xdrx_sysvar_push '("NOMUTT" 1))
    
14.       (setq i 0
    
15.             len (length fns)
    
16.       )
    
17.       (mapcar
    
18.         '(lambda (x)
    
19.            (xdrx_prompt "\r正在插入 " (setq i (1+ i))
    
20.                         " of " len
    
21.            )
    
22.            (princ)
    
23.            (xdrx_insert_make x '(0 0 0))
    
24.          )
    
25.         fns
    
26.       )
    
27.       (xdrx_prompt "\n成功按原点插入了 " len " 张DWG图纸.")
    
28.       (xdrx_sysvar_pop)
    
29.       (setq *error* nil)
    
30.       (xdrx_end)
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )
    
35. 
    

(defun c:XDTB_BlkBatIns (/ fns i len msg my_err x)<br />   (defun my_err (msg)<br />     (princ msg)<br />     (xdrx_sysvar_pop)<br />     (xdrx_end)<br />     (setq *error* nil)<br />     (princ)<br />   )<br />   (if (setq fns (xdrx_system_selectfile "*.dwg" ""))<br />     (progn<br />       (xdrx_begin)<br />       (setq *error* my_err)<br />       (xdrx_sysvar_push '("NOMUTT" 1))<br />       (setq i 0<br />             len (length fns)<br />       )<br />       (mapcar<br />         '(lambda (x)<br />            (xdrx_prompt "\r正在插入 " (setq i (1+ i))<br />                         " of " len<br />            )<br />            (princ)<br />            (xdrx_insert_make x '(0 0 0))<br />          )<br />         fns<br />       )<br />       (xdrx_prompt "\n成功按原点插入了 " len " 张DWG图纸.")<br />       (xdrx_sysvar_pop)<br />       (setq *error* nil)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

zhouzhiy

不用晓东可以吗？

sicky111

插图？        

spacevalue

带基点的复制是否可以？

zhouzhiy

很大的地形图，上传不了，如果图形不大我就用带基点复制啦，每次总是把电脑搞死机，所以想用插件

/db_自贡黄明儒_

zhouzhiy 发表于 2018-6-13 07:42
很大的地形图，上传不了，如果图形不大我就用带基点复制啦，每次总是把电脑搞死机，所以想用插件

这个要换电脑才能解决的。