wenyuan 发表于 2003-10-16 14:22:00

求助:关于图层的操作

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

mccad 发表于 2003-10-16 19:11:00

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

wenyuan 发表于 2003-10-16 19:49:00

具体说一下吧

有没有例子?

mccad 发表于 2003-10-16 20:06:00

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

Dim ss As AcadSelectionSet, doc As AcadDocument

Set doc = ThisDrawing.Application.Documents("Drawing1.dwg")

Set ss = CreateSelectionSet

ss.SelectOnScreen

ThisDrawing.CopyObjects ssArray(ss), doc.ModelSpace

doc.Regen acAllViewports

wenyuan 发表于 2003-10-17 14:29:00

我试试看吧
页: [1]
查看完整版本: 求助:关于图层的操作