在上合并2个或更多dwg

hosyn · 发表于 2022-7-5 22:47:42

如何使用lisp或简单的方法将2个或更多dwg合并到一起：cry：。

alanjt · 发表于 2022-7-5 22:53:55

将图纸B插入图纸A；分解新插入的块；去洗手间休息一下。

hosyn · 发表于 2022-7-5 22:59:27

谢谢
我的问题是我们如何用lisp或简单的方式将2个或更多的dwg合并在一起：哭泣：不打开它们

satishrajdev · 发表于 2022-7-5 23:01:30

这里有一个方法，

在驱动器中创建一个名为Merge DWG的文件夹，其目录为C:\Merge DWG

并将所有图形文件放在要合并的文件夹中，

并运行以下例程，但请检查要插入的图形的图形单位并保持不变

copy

(defun c:MDWG (/ directory files)
(setvar "cmdecho" 0)
(alert "\n Please put your DWG files in ''C:\\Merge DWG'' Directory")
 (setq directory "C:\\Merge DWG")
 (if (setq files (vl-directory-files directory "*.dwg" 1))
   (foreach dwg files
     (command "_.-insert"
              (strcat directory "\" dwg)
              '(0. 0. 0.)
              ""
              ""
              ""
     )
   )
   (princ "\n No DWG files found into that folder !")
 )
(alert (strcat "\n ''DWG files has merged together''  ")
      )
(setvar "cmdecho" 1)
)