(defun c:C2PS (/ doc space elem vobj n asatz)
  (setq doc  (vla-get-ActiveDocument (vlax-get-acad-object))
space (vla-get-paperSpace doc)
asatz (ssget "X")
n    0
  )
  (repeat (sslength asatz)
    (setq elem (ssname asatz n)
  n    (1+ n)
  vobj (vlax-ename->vla-object elem)
    )
    (vlax-invoke doc 'copyobjects (list vobj) space)
    (vlax-invoke-method vobj 'DELETE)
  )
  (command "CTAB" "Layout1")
  (command "ZOOM" "_e")
  (princ)
)