Here is an example... that copies from docOrig to
DocDest
Hope this helps.
size=2> Set sSet =
ThisDrawing.PickfirstSelectionSet
sSet.Select acSelectionSetAll, , , ft, fd
If sSet.count > 0
Then
ReDim
colObj(sSet.count -
1)
'Add
the object to the array of
objects
'On Error Resume
Next
For i
= 0 To sSet.count -
1
Set colObj(i) =
sSet.Item(i)
Next i
size=2> 'Check
how many object return "Nothing"
size=2> For i
= 0 To
UBound(colObj)
Set obj =
colObj(i)
objType =
TypeName(obj)
If TypeName(obj) <> "Nothing"
Then
k = k +
1
End If
Next i
ReDim colObj2(k -
1)
k =
0
size=2> 'Add
the object to the array of
objects
'Check how many object return
"Nothing"
For i = 0 To
UBound(colObj)
Set obj =
colObj(i)
' objtype =
TypeName(Obj)
If TypeName(obj) <> "Nothing"
Then
Set colObj2(k) =
obj
k = k +
1
End If
Next i
Application.ActiveDocument =
docDest
'Copy from docOrig to
docDest
docOrig.CopyObjects colObj2, docDest.ModelSpace
size=2>
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
How
do you copy a set of objects that I have collected into a selection set, from
one CAD drawing into another? And then assign those objects to a new selection
set name?
