Select copy and delete lisp routine

[goonkt]

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

[MSasu]

Why don't just use Cut (<Ctrl> + <X>) instead of Copy (<Ctrl> + <C>) to Clipboard?

[goonkt]

yea that would remove a step

[goonkt]

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

[BlackBox]

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