(defun c:moveto0layer
( / ss
) (prompt "\nSelect objects to move to 0 Layer...") (command-s "_.-copytolayer" ss "" "0" "")
(vl-cmdf "_.-copytolayer" ss
"" "0" "") )
(command-s "_.erase" ss "")
)
;;; if you want to keep source layer(s) don't remove ;| and |; , but if you want them purged - erased, remove ;| and |; ...
;|
(if command-s
(command-s "_.-purge" "_la" "*" "_n")
(vl-cmdf "_.-purge" "_la" "*" "_n")
)
|;
)
)
)