Select copy and delete lisp routine

i Want to make a command that will selectsimilar, copyclip and delete a selected 2d object.

macro SelectSimilar;_copyclip;Delete but want to make it as a lisp routine

Why don't just use Cut ( + ) instead of Copy ( + ) to Clipboard?

yea that would remove a step

My issue is really what function do i use to set an object to a variable. where i can then select similar and cut.

(defun c:FOO (/ ss)
 (if (setq ss (ssget "_:L"))
   (progn
    (command "._selectsimilar" ss "")
    (command "._cutclip")
   )
 )
 (princ)
)