Copying Layers in Same Drawing 4

[Rockjoint]

I want to learn how to copy an existing Layer (Layer1) in a drawing (LT2000i) into the same drawing as Layer2. I am not able to do this no matter what I try.

Example: Existing layer with contours and data for 1999, to be saved as a different layer ("copy", different name for 2000) so I can keep the 1999 contours and data intact, and then using a copy of the 1999 layer to edit with 2000 contours and data. Result: both the original 1999 layer and a 2000 layer.

Problem is that when I attempt this using the DesignCenter instructions, I loose the old layer information. I can not make a successful copy and keep the original layer as well.

Please help with any information. It will be appreciated by this beginner.

Sincerely,
Rockjoint


Rockjoint
rockjoint@yahoo.com

 

[IFRs]

This is a work-around, not a solution:
Put all entities on layer 0 (zero).
In a new drawing, create both layers.
Set each layer as the current layer and insert the drawing with all the entities on layer 0.

 

[chicopee]

If I understand you correctly, you want to copy a layer of an existing drawing to a layer of a new drawing. If that is the case about freezing all layers except the one you want to copy, then do a "copy to" and "paste from clipboard" into the new drawing.

 

[exit]

Hi,
I think rockjoint wants to make a duplicate copy(?).
Copy all objects 1000 units to the left->change the layer->move them 1000 back to the right...It's like IFRs idea with only one *.dwg...

bye, Lothar

Win NT4.0 (SP6),
ACAD 2000i (SP2), ADT 3.0 (SP3),
ACAD 2002, ADT 3.3,
OCÈ 5200

 

[CADaver]

You have to copy the elements twice, once for each layer.

Or here's two functions that may help. CPY2L, Prompts for the layer, then copies selected elements on top of themselves to that layer. CPY2CL, makes the copies to the current layer.



(defun C:CPY2L ( / SS1 NLAYER PT1 PT2)
(setq PT1 '(0.0 0.0 0.0))
(setq PT2 '(0.0 0.0 0.0))
(setvar "cmdecho" 0)
(prompt "Objects to Copy:&quot
(setq SS1(ssget))
(setq NLAYER(getstring "Copy Objects to What Layer?&quot)
(command "copy" SS1 "" PT1 "" PT2)
(command "change" SS1 "" "P" "LAYER" NLAYER "&quot
(princ)
)
(defun C:CPY2CL ( / SS1 PT1 PT2)
(setq PT1 '(0.0 0.0 0.0))
(setq PT2 '(0.0 0.0 0.0))
(setvar "cmdecho" 0)
(prompt "Objects to Copy:&quot
(setq SS1(ssget))
(command "copy" SS1 "" PT1 "" PT2)
(command "chprop" SS1 "" "LA" (GETVAR "CLAYER&quot "&quot
(princ)
)

 

[Rockjoint]

Thanks so much to all who replied to my question. I hope to use these tips and I appreciate all the responses.



Rockjoint
rockjoint@yahoo.com