求助：关于图层的操作

wenyuan

如何用vb将一个dwg文件中某个图层的图放到另一个dwg文件中？？？？实现叠加的功能

mccad

你两个图都是打开着吗？
如果都是打开的，则可以使用CopyObjects方法在两个图形间复制对象。

wenyuan

具体说一下吧

有没有例子？

mccad

CopyObjects方法是一个非常有用的工具。这里我们看看它是怎样在图形间复制对象。首先准备两个文档。在一个文档中，创建一些对象。如果另一个文档的名称不是Drawing1.dwg，可修改以下程序中的文档名称为你的图形名称。最后，确定激活包含有要复制对象的图形并运行以下宏，这样可以将本文档中的对象复制到名称为Drawing1.dwg的另一个文档中。

2. Dim ss As AcadSelectionSet, doc As AcadDocument
   
3. 
   
4. Set doc = ThisDrawing.Application.Documents("Drawing1.dwg")
   
5. 
   
6. Set ss = CreateSelectionSet
   
7. 
   
8. ss.SelectOnScreen
   
9. 
   
10. ThisDrawing.CopyObjects ssArray(ss), doc.ModelSpace
    
11. 
    
12. doc.Regen acAllViewports
    

Dim ss As AcadSelectionSet, doc As AcadDocument<br /> <br /> Set doc = ThisDrawing.Application.Documents("Drawing1.dwg")<br /> <br /> Set ss = CreateSelectionSet<br /> <br /> ss.SelectOnScreen<br /> <br /> ThisDrawing.CopyObjects ssArray(ss), doc.ModelSpace<br /> <br /> doc.Regen acAllViewports<br />

wenyuan

我试试看吧