topic Copy a Layer and its entities to another dwg in VBA Forum

Copy a Layer and its entities to another dwg

Anonymous — Mon, 27 Nov 2000 13:18:04 GMT

Can you copy a layer and all its entities to another drawing? Is there an
example that you can point me to?

Thanks,

Brent

Re: Copy a Layer and its entities to another dwg

Anonymous — Mon, 27 Nov 2000 13:48:57 GMT

Yes you can do this, but first I would have to ask you
if you want to include objects inside of blocks, that
reside on the layer you want to copy, before suggesting
a way of doing that.

"Brent B." wrote:
>
> Can you copy a layer and all its entities to another drawing? Is there an
> example that you can point me to?
>
> Thanks,
>
> Brent

--
Copyright ©2000 Tony Tanzillo all rights reserved
All use of the contents of this article is subject to the
terms and conditions at http://www.caddzone.com/license.htm

Check out DWGInfoTip at http://www.caddzone.com/dwginfo.htm

/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* tony.tanzillo@worldnet.att.net */
/* http://www.caddzone.com */
/*********************************************************/

Re:

Anonymous — Mon, 27 Nov 2000 15:56:06 GMT

As it currently stands, I do not need to include objects in blocks that
might reside on the layer being copied.
Thanks,

"Tony Tanzillo" wrote in message
news:3A22D6C9.C9892993@worldnet.att.net...
> Yes you can do this, but first I would have to ask you
> if you want to include objects inside of blocks, that
> reside on the layer you want to copy, before suggesting
> a way of doing that.
>
> "Brent B." wrote:
> >
> > Can you copy a layer and all its entities to another drawing? Is there
an
> > example that you can point me to?
> >
> > Thanks,
> >
> > Brent
>
> --
> Copyright ©2000 Tony Tanzillo all rights reserved
> All use of the contents of this article is subject to the
> terms and conditions at http://www.caddzone.com/license.htm
>
> Check out DWGInfoTip at http://www.caddzone.com/dwginfo.htm
>
> /*********************************************************/
> /* Tony Tanzillo Design Automation Consulting */
> /* Programming & Customization for AutoCAD & Compatibles */
> /* ----------------------------------------------------- */
> /* tony.tanzillo@worldnet.att.net */
> /* http://www.caddzone.com */
> /*********************************************************/

Re:

Anonymous — Mon, 27 Nov 2000 18:11:35 GMT

You'll need to test this yourself. It accepts a Layer
object and either a block, Modelspace or PaperSpace
object, and copies all paper/modelspace entities on
the specified layer, to the specified block, paper
or model space (of any document).

To copy the objects to the model space of another
document, specify the layer in the source document,
and the Modelspace property of the target document.

Public Sub CopyLayer(Layer As AcadLayer, Target As AcadBlock)
Dim SS As AcadSelectionSet
Dim SrcDoc As AcadDocument
Set SrcDoc = Layer.Document
On Error Resume Next
Set SS = SrcDoc.SelectionSets.Add("$COPYTOLAYER$")
If Err Then
Err.Clear
Set SS = SrcDoc.SelectionSets("$COPYTOLAYER$")
SS.Clear
End If
Dim vaType(0 To 0) As Integer
Dim vaData(0 To 0) As Variant
vaType(0) = 8
vaData(0) = Layer.Name
SS.Select acSelectionSetAll, , , vaType, vaData
If SS.Count = 0 Then
SS.Delete
Exit Sub
End If
Dim i As Integer
Dim objArray() As AcadEntity
ReDim objArray(0 To SS.Count - 1)
For i = 0 To SS.Count - 1
Set objArray(i) = SS(i)
Next i
SrcDoc.CopyObjects objArray, Target
SS.Delete
End Sub

"Brent B." wrote:
>
> As it currently stands, I do not need to include objects in blocks that
> might reside on the layer being copied.
> Thanks,
>
> "Tony Tanzillo" wrote in message
> news:3A22D6C9.C9892993@worldnet.att.net...
> > Yes you can do this, but first I would have to ask you
> > if you want to include objects inside of blocks, that
> > reside on the layer you want to copy, before suggesting
> > a way of doing that.
> >
> > "Brent B." wrote:
> > >
> > > Can you copy a layer and all its entities to another drawing? Is there
> an
> > > example that you can point me to?
> > >
> > > Thanks,
> > >
> > > Brent
> >
> > --
> > Copyright ©2000 Tony Tanzillo all rights reserved
> > All use of the contents of this article is subject to the
> > terms and conditions at http://www.caddzone.com/license.htm
> >
> > Check out DWGInfoTip at http://www.caddzone.com/dwginfo.htm
> >
> > /*********************************************************/
> > /* Tony Tanzillo Design Automation Consulting */
> > /* Programming & Customization for AutoCAD & Compatibles */
> > /* ----------------------------------------------------- */
> > /* tony.tanzillo@worldnet.att.net */
> > /* http://www.caddzone.com */
> > /*********************************************************/

--
Copyright ©2000 Tony Tanzillo all rights reserved
All use of the contents of this article is subject to the
terms and conditions at http://www.caddzone.com/license.htm

Check out DWGInfoTip at http://www.caddzone.com/dwginfo.htm

/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* tony.tanzillo@worldnet.att.net */
/* http://www.caddzone.com */
/*********************************************************/

Re:

Anonymous — Tue, 28 Nov 2000 01:47:36 GMT

Thank you for your response.

Is there significance to the selection set name that is used
("$COPYTOLAYER$")? Does the "$" symbol at the begining and end have a
particular purpose or function?