topic Coping Data From One Drawing to Another in VBA Forum

Coping Data From One Drawing to Another

Anonymous — Thu, 02 Feb 2006 16:19:08 GMT

Hi,
I'm using this code to copy all drawing data from one drawing to another.

Public Sub CopytoDrawing(FromFilename As String, ToFilename As String)

Dim objAcadEntitys() As AcadEntity
Dim objSS As AcadSelectionSet
Dim intI As Integer
Dim objEntity As AcadEntity
Dim objMS As AcadModelSpace

Call ToggleDrawing(FromFilename)

Set objSS = Application.ActiveDocument.SelectionSets.Add("TestMike55")
objSS.Select acSelectionSetAll

ReDim objAcadEntitys(objSS.count - 1)

For Each objEntity In objSS

If objEntity Is Nothing Then
Else

Set objAcadEntitys(intI) = objEntity

End If

intI = intI + 1

Next objEntity

Set objMS = Application.Documents.Item(ToFilename).ModelSpace
Application.ActiveDocument.CopyObjects objAcadEntitys, objMS

objSS.Delete

End Sub

It works on most drawings but periodically I get a Run Time error with the message "Invalid Owner Object" and nothing is copied. Can somone please help explain why this is happening and offer ideas on what I can do to fix it.

Thanks,
Mike

Re: Coping Data From One Drawing to Another

Anonymous — Fri, 03 Feb 2006 00:23:05 GMT

I would say the drawing you get the selection set from is not being accessed
by
Application.ActiveDocument.CopyObjects objAcadEntitys, objMS

try defining a AcadDocument FDwg variable and setting it to
Set FDwg=Application.ActiveDocument
then
Set objSS = FDwg.SelectionSets.Add("TestMike55")
finally
FDwg.Activate
FDwg.CopyObjects objAcadEntitys, objMS

--------------------------------
Joe
www.Floorcad.com
wrote in message news:5075629@discussion.autodesk.com...
Hi,
I'm using this code to copy all drawing data from one drawing to another.

Public Sub CopytoDrawing(FromFilename As String, ToFilename As String)

Dim objAcadEntitys() As AcadEntity
Dim objSS As AcadSelectionSet
Dim intI As Integer
Dim objEntity As AcadEntity
Dim objMS As AcadModelSpace

Call ToggleDrawing(FromFilename)

Set objSS = Application.ActiveDocument.SelectionSets.Add("TestMike55")
objSS.Select acSelectionSetAll

ReDim objAcadEntitys(objSS.count - 1)

For Each objEntity In objSS

If objEntity Is Nothing Then
Else

Set objAcadEntitys(intI) = objEntity

End If

intI = intI + 1

Next objEntity

Set objMS = Application.Documents.Item(ToFilename).ModelSpace
Application.ActiveDocument.CopyObjects objAcadEntitys, objMS

objSS.Delete

End Sub

It works on most drawings but periodically I get a Run Time error with the
message "Invalid Owner Object" and nothing is copied. Can somone please help
explain why this is happening and offer ideas on what I can do to fix it.

Thanks,
Mike

Re: Coping Data From One Drawing to Another

Anonymous — Fri, 03 Feb 2006 16:18:28 GMT

Hi,

Thanks for the thought, but I still get an "Invalid Owner Object" error. Any other ideas?

Thanks,
Mike

Re: Coping Data From One Drawing to Another

Anonymous — Fri, 03 Feb 2006 18:00:41 GMT

Mike ,

Can you zip and post the drawings that causes your routine to crash , since you said it works with most drawings. This will make it easier for someone to find the cause of your problem.

Also is the code you posted exact.

Maximo