wipeout as rectangle

[jithumon_s_ext]

hi , usually we use wipeout as polyline right, i want it as a rectangle like we use in revcloud. i.e; revcloud>draw rectangle>obj>select rectangle>changes to revcloud. so like this want wipeout> draw rec>select rect>changes that space to wipeout. does anyone can help me with this? 

[ВeekeeCZ]

Possibly very simply like this

(defun c:WipeoutDraw ()
  (command "_.rectang")
  (while (> (getvar 'cmdactive) 0) (command pause))
  (command "_.wipeout" "_p" (entlast) "_y")
  (princ)
  )