Be sure to have the layout name Layout1 available among the layout list of your drawing otherwise no action would be taken.
(defun c:cc (/ ss)
(if (setq ss (ssget '((0 . "POLYLINE,LWPOLYLINE"))))
(progn
(vl-cmdf "_.copybase" "_none" '(0 0 0) ss "")
(vl-cmdf "layout" "S" "Layout1")
(vl-cmdf "_.pasteclip" "_none" '(0 0 0))
)
)
(princ)
)