freshairfly 发表于 2003-2-28 17:09:00

AutoCAD文件的备份问题


我想在对文件处理前做一个备份,代码如下(在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 发表于 2003-2-28 19:18:00

Re: AutoCAD文件的备份问题

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

freshairfly 发表于 2003-2-28 20:40:00

谢谢,我现试试看

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

freshairfly 发表于 2003-3-1 20:18:00

搞定了

OK,谢谢喽!!
页: [1]
查看完整版本: AutoCAD文件的备份问题