VBA - Copy Selectionset entities to other layer
VBA - Copy Selectionset entities to other layer
(OP)
Hello,
I need to create a Visual Basic Routine to copy entities to other layer, using acselectionsetall.
Thank´s
I need to create a Visual Basic Routine to copy entities to other layer, using acselectionsetall.
Thank´s





RE: VBA - Copy Selectionset entities to other layer
Are you copying any block references and do you want every single entity to "be" on this target layer (including the ones inside the block)?
BU
RE: VBA - Copy Selectionset entities to other layer
Many thank's for your fast response
I need to copy everithing on a layer to another layer, using the VBA (selectionset).
At the momment I'm able to work whith selectionsets, but I don't know how to move or copy that information to other new layer (or not new).
I would be very gratfull if you could help me, PPPPlllleeeeaaaasssssseeeeee.
Best regard,
António Miranda
RE: VBA - Copy Selectionset entities to other layer
Dim acEnt as AcadObject
If acSelSet.Count = 0 Then 'didn't find any
Exit Function
Else
For Each acEnt In acSelSet 'each item in selection set
acEnt.Layer = yourNewLayer
acEnt.Update
Next acEnt
End If
RE: VBA - Copy Selectionset entities to other layer
RE: VBA - Copy Selectionset entities to other layer