社区 › Auto Lisp › 在上合并2个或更多dwg

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

在上合并2个或更多dwg

如何使用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
 
并将所有图形文件放在要合并的文件夹中，
 
并运行以下例程，但请检查要插入的图形的图形单位并保持不变
 
(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)
)
 
享受：）

Tharwat 发表于 2022-7-5 23:07:37

@satishrajdev
 
当您需要更改任何系统变量时，最好将其重置。

satishrajdev 发表于 2022-7-5 23:10:38

亲爱的Tharwat，
 
我已经发布了相同的帖子http://www.cadtutor.net/forum/showthread.php?70158-合并多个DXF-in-a-single-drawing
 
你只提供了这个例程，非常感谢你，它让我的工作变得更加轻松：）

Tharwat 发表于 2022-7-5 23:13:26

 
我指的是系统变量“cmdecho”，而不是其他代码。
 
 
很高兴听到这个消息。

teknomatika 发表于 2022-7-5 23:18:34

可能在这个帖子里

satishrajdev 发表于 2022-7-5 23:22:27

 
哎呀。。。。忘了说，作为新手，这是在兴奋中发生的

irneb 发表于 2022-7-5 23:25:37

DWG是否已外部输入到彼此中？或者，您想简单地将它们放置在空白DWG中，而不相互重叠（如teknomatika所指的线程）？
 
如果是前者，则有很多关于绑定外部参照的内容。在这里搜索一下。
 
还有，任何图纸空间选项卡呢？这两种方法都不会带来同样的效果。为此，您需要导入布局，并且可能还需要调整视口。

查看完整版本: 在上合并2个或更多dwg