topic Re: How to select all objects on a particular layer in AutoCAD Forum

How to select all objects on a particular layer

Anonymous — Wed, 11 Feb 2015 19:54:14 GMT

I want to move all objects from one layer to another.

How do I go about that?

Re: How to select all objects on a particular layer

Kent1Cooper — Wed, 11 Feb 2015 20:03:09 GMT

@Anonymous wrote:

I want to move all objects from one layer to another.

How do I go about that?

One simple way [among many possibilities]:

(command

"_.chprop"

(ssget "_X" (list (cons 8 "YourSourceLayerName"))); find everything on the Layer

"" ; complete selection

"_layer"

"YourTargetLayerName"

"" ; end Chprop command

); command

That assumes the source Layer is not locked. And it does only things in the current space, but if you want things in all spaces [Model and all Paper-space Layouts], that is also possible.

If you don't need it automated, QSELECT and the Properties box will do the same for you with no routine, and hardly any more effort on the User's part.

Or, if you want to completely remove the source Layer from the drawing, use LAYMRG.

Re: How to select all objects on a particular layer

3wood — Thu, 12 Feb 2015 05:10:53 GMT

Use QSELECT to select all object in a layer, then use pull-down layer toolbar to change their layer in one go.

Re: How to select all objects on a particular layer

Anonymous — Fri, 13 Feb 2015 02:10:15 GMT

Thank you to you both. "qselect" was exactly what I was looking for.

Re: How to select all objects on a particular layer

Anonymous — Mon, 12 Dec 2016 21:32:27 GMT

Hi, could you translate this code to vba please? Thanks in advance. I hope you could.

Re: How to select all objects on a particular layer

Kent1Cooper — Mon, 12 Dec 2016 22:04:48 GMT

@Anonymous wrote:

Hi, could you translate this code to vba please? ....

I can't. Maybe someone who knows VBA will see this and pitch in.

Re: How to select all objects on a particular layer

Alfred.NESWADBA — Mon, 12 Dec 2016 23:52:40 GMT

Hi,

>> could you translate this code to vba please

Here it is, without testing and without warrenty 😉

Const FromLayer As String = "Layer1"         'layer from which the entities have to be selected
Const DestLayer As String = "Layer2"         'new/destination layer for that entities

Const pSelSetName As String = "mySelSet"

Public Sub chLay()
   Dim tCounter As Integer

   Dim tSelSet As AcadSelectionSet
   Dim tDxfCodes(0) As Integer
   Dim tDxfValues(0) As Variant
   
   'create SelectionSet
   On Error Resume Next
   Set tSelSet = ThisDrawing.SelectionSets.Item(pSelSetName)
   If (Not (tSelSet Is Nothing)) Then
      tSelSet.Clear
   Else
      Err.Clear
      Set tSelSet = ThisDrawing.SelectionSets.Add(pSelSetName)
   End If
   
   'create selection filter
   tDxfCodes(0) = 8
   tDxfValues(0) = FromLayer
      
   'create selection
   Call tSelSet.Select(acSelectionSetAll, , , tDxfCodes, tDxfValues)
   If (Err.Number = 0) And (tSelSet.Count > 0) Then
   
      'Create Layer, just make sure it exists
      Dim tLayer As AcadLayer
      Set tLayer = ThisDrawing.Layers.Add(DestLayer)
      
      'now go through the selectionset and change the layer of the objects
      Dim tEnt As AcadEntity
      For Each tEnt In tSelSet
         tEnt.Layer = DestLayer
         tCounter = tCounter + 1
      Next
      
      Call MsgBox("Entities modified: " & CStr(tCounter))
      
   Else
      Call MsgBox("Error selecting objects." & vbCrLf & Err.Description)
   End If
End Sub

- alfred -

Re: How to select all objects on a particular layer

Anonymous — Tue, 13 Dec 2016 16:04:03 GMT

Thank you, Alfred. Thanks a lot

Re: How to select all objects on a particular layer

bobbyrubyii — Mon, 30 Jul 2018 00:50:21 GMT

How can I select things in all places?

Re: How to select all objects on a particular layer

RobDraw — Mon, 30 Jul 2018 11:13:54 GMT

@bobbyrubyii wrote:
How can I select things in all places?

Thaw and unlock all layers then hit Ctrl+A.

Re: How to select all objects on a particular layer

RobDraw — Mon, 30 Jul 2018 11:15:56 GMT

@Anonymous wrote:
I want to move all objects from one layer to another.
How do I go about that?

You don't have to select the objects. Merge the layer to the desired one. There are a couple of ways to do this.

Re: How to select all objects on a particular layer

Kent1Cooper — Mon, 30 Jul 2018 15:07:31 GMT

@bobbyrubyii wrote:

How can I select things in all places?

The (ssget "_X") thing will find all of them, but if you want to change their Layer, it will be necessary to either step through them and use (vla) or (subst)/(entmod) methods to change it for things not in the current space, or to change the current space to where each one is, and change its Layer there.

You can use LAYMRG [see end of Message 2, and Message 11], as long as you're aware of the differences:

LAYMRG will remove the source Layer from the drawing, whereas other methods won't [a disadvantage if you want to keep that Layer around].

LAYMRG will also change the Layer of nested objects, i.e. pieces of Block definitions, which the other methods won't [a definite advantage if you need that].