 ; Front - move entities to the end of the database and thus to the front.
 ; Copyright 1996, 2001, 2002 by Rocket Software Ltd.
 ; Predates the similar built-in command, and is slightly less clunky.
 (DEFUN C:FRONTS (/ ss enam num)
  (prompt "Select entities to move to front: ")
  (setq ss (ssget))
  (setq num 0)
  (while (and ss (setq enam (ssname ss num)))
         (setq num (1+ num))
         (command "copy" enam "" "0,0" "0,0")
         (entdel enam)
         (redraw (entlast)))
 (princ))

 (DEFUN C:FRONT (/ enam)
  (while (setq enam (entsel))
         (setq enam (car enam))
         (command "copy" enam "" "0,0" "0,0")
         (entdel enam)
         (redraw (entlast)))
 (princ))
