AutoCAD文件的备份问题

freshairfly

我想在对文件处理前做一个备份，代码如下(在vb中)：

Dim docsObj As AcadDocuments
Dim docTemp As AcadDocument
Dim docObj As AcadDocument
Dim spaceObj As AcadBlock
Dim returnObj As Acad3DSolid
Dim temp3Dsolid As Acad3DSolid
''''''''''''''''''''''''''
'docObj是当前文档对象，returnObj是docObj中的一个3D对象
'set spaceObj = docObj
'对象的赋值对没问题，只是下面的代码不能得到我想要的结果
''''''''''''''''''''''''''
Set docTemp = docsObj.Add
Set temp3Dsolid = spaceObj.CopyObjects(returnObj, docTemp.ModelSpace)
'我想应该在新建的文档里有returnObj对象，可结果什么也没有
'各位高手给我看看，先谢谢了！！！

efan2000

问题在这一句：Set temp3Dsolid = spaceObj.CopyObjects(returnObj, docTemp.ModelSpace)。
首先CopyObjects应该是文档对象的方法，spaceObj应是AcadDocument对象，然后看看它的传递参数，第一个参数Objects应该是对象的数组，应而returnObj应该声明为Dim returnObj(0) As Acad3DSolid，然后对其赋值。最后，看看返回值RetVal，它也是对象的数组，故应声明为Dim temp3Dsolid As Variant。

freshairfly

我是第一次来这里
也是第一次用AutoCAD和vb
有问题我再来麻烦你

freshairfly

OK，谢谢喽！！