LISP routine to move items from layer to layer

Hi All, I am back again.

Now I need a way to move all items on layer "0" to layer "10". Layer names
will never change.

Thanks
Chad

 

Zat from Acad 2?
<g>

 

I'd use the Properties palette to do this. Use Qselect to filter all objects
on layer 0, then change layer in Properties palette.

I wouldn't write a lisp to do a one-time task, or one that is so easily and
quickly done by built-in methods.

If you insist, you can use a filter list to select the objects

(setq sset (ssget "x" '((8 . "0"))))

and the same method you were shown yesterday to change them:

(command "chprop" sset "" "Layer" "10" "")

 

(defun layerchange (oldlay newlay / ss)
(setq ss (ssget "x" (list (cons 8 oldlay))))
(if ss (command ".chprop" ss "" "la" newlay ""))
)
Assuming layer 10 exists:
Use: (layerchange "0" "10")

 

hey...if it works....

 

Truth there.
I still use stuff I did in '91, minor tweaks for lwpolylines only.

 

Thanks Tom,

That works. Nice and simple too.

Chad