Copy Pasting object from one drawing file to another
Accepted solution
AcadDocument.CopyObjects() method can be used to copy an array of entities to the same drawing, or another drawing that is opened in AutoCAD.
Here is a brief sample VBA code to do what you want:
Option Explicit
Public Sub CopyEntities()
''Set the source drawing
Dim curDwg As AcadDocument
Dim d As AcadDocument
For Each d In Application.Documents
If UCase(d.Name) = "DRAWING1.DWG" Then
Set curDwg = d
Exit For
End If
Next
If curDwg Is Nothing Then
MsgBox "Cannot find source drawing ""Drawing1.dwg"""
Exit Sub
End If
''Draw something in the source drawing
Dim entities() As Object
entities = DrawSomethings(curDwg)
MsgBox "Entities count=" & UBound(entities) + 1
''Open a new drawing
Dim newDwg As AcadDocument
Set newDwg = Application.Documents.Add()
''Copy entities from source drawing to new drawing
curDwg.CopyObjects entities, newDwg.ModelSpace
End Sub
Private Function DrawSomethings(dwg As AcadDocument) As Object()
Dim ents() As Object
ReDim ents(4)
Dim ent As AcadEntity
Dim i As Integer
For i = 1 To 5
Set ent = DrawCircle(dwg, i)
ent.Update
Set ents(i - 1) = ent
Next
DrawSomethings = ents
End Function
Private Function DrawCircle(dwg As AcadDocument, i As Integer) As AcadEntity
Dim centre(0 To 2) As Double
centre(0) = CDbl(i + i): centre(1) = CDbl(i + i): centre(2) = 0#
Dim radius As Double
radius = CDbl(i * 5)
Set DrawCircle = dwg.ModelSpace.AddCircle(centre, radius)
End Function
Don't let the names curDwg and newDwg confuse you. Think of it as SourceDwg and DestinationDwg. The CopyFrom method is always from the perspective of the Destination dwg. You run the method from the Destination and tell it what Source to CopyFrom.
''Copy entities from source drawing to new drawing
DestinationDwg.CopyObjects entities, SourceDwg.ModelSpace
You just have to set DestinationDwg equal to the other dwg to want to copy to, and the SourceDwg equal to ThisDrawing.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
If you've made changes, show your code.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Yes, "AutoCAD 20## Type Library" should be marked, but vba does that by default. You might have a typo in your code. Norman's works fine for me.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Accepted solution
It's possible that your project may have an ambiguity on "application". Try changing the following line to:
For Each d In AcadApplication.Documents
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@Anonymous wrote:
assuming upama333 is coding from within AutoCAD, he could also simply go:
For Each d In Documentssince Documents is a property of Application object, which would be implicitly resolved
@Anonymous The problem seems to be implicit resolution. Norman's original code should have worked also. But its not working for the OP. What may be happening is that his project references more than one library which has a "application" object and the other library's application object doesn't have a Documents collection. Explicitly specifying AcadApplication should resolve the ambiguity.
@Anonymous Can you post a screen capture of what your References dialog looks like?
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@Anonymous wrote:
Being in AutoCAD VBA and should there be another reference to a class with another Application object, wouldn't it be taken AutoCAD one for implicit resolution ?
Apparently their system is not able to resolve the reference properly. Implicit references only work when there's no ambiguity. If there is a problem with scope, etc. you need to be explicit. Normally, there wouldn't be another conflicting reference, but its possible. Who knows what they did. That's why I asked for a screen shot. I tested Norman's code as is and it works, so they've done something out of the ordinary to break it.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Yes you can select all. Look in the help under SelectionSet.Select. Use the acselectionsetAll mode.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
I have tried using/editing the code from above to help with what I am trying to do, where I am trying to open up another document, copy all of its entities into the document I am currently working in and then close the other document. However, I keep getting a runtime error (438) saying that "object doesn't support this property or method". It keeps on getting stuck in the "copied" line. I know I have not closed the document being copied yet. That will come after this works.
Any thoughts?
You can't use the CopyObjects method that way. You have to pay attention to the method's signature and what type of argument it expects. The Select method doesn't return anything. It just fills a selectionset object (look at the help topic I gave you) and look at help for what arguments the CopyObjects method takes. They have to match.
The Selectionsets object doesn't have a Select method. Dim and instantiate a selectionset, use its Select method. Iterate the selectionset's items and copy them to an object array and then use that as an argument to the CopyObjects method. Use the samples in Help for guidance.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.