使用vba合并多个图纸到一个图纸

tataki

合并多个图纸到一个图纸这个功能我在网上找了一下，很多人都说用打开再复制粘贴的方式，可是一个项目几十上百号图纸呢...
) u" r3 N% z5 C$ a也有人说通过插入dwg参照的方法，但是那样不便于编辑啊。我一张张的图纸图框都是统一的块，放到一起后可以直接用批量打印。
百度了半天发现有一个程序，可是太老了，根本不支持新版的cad，于是就有编程的想法。
- P* g" _# u: \4 |但是我手头上的关于cad vba的书压根没提到怎么批量插入图纸，判断图纸大小，插入间隔这些问题。自己感觉有点不知道从哪里入手，
拜托高手指点。谢谢！
3 i' F# i$ O6 A3 b

; n+ o" e" B2 o  o, P
8 K" H3 i: G( V

woaishuijia

可以考虑用 InsertBlock 方法把其它图形文件做为块插入到当前文档中.用插入的块参照的 GetBoundingBox 方法获取其在当前文档中占用的空间位置以便于计算下一个图形文件块参照合理的插入点.如果需要的话,还可以用块参照的 Explode 方法将其打散,并用块的 Delete 方法删除其块定义.