(defun c:DXFCleanup (/ ss1 e1 e2 e3)
(setq ss1 (ssget "X"))
(setq e1 (entnext))
(setq e2 (entnext e1))
(setq e3 (entnext e2))
(ssdel e2 e3 ss1)
(command ".erase" ss1 "")
(command "setvar" "mirrtext" "0")
(command "select" "all" "mirror" "0,0" "60,0" "y" "")
)
Thanks so much for your quick and to-the-point answers.
By the way, your website is fantastic; it has been on my favorites bar for two years. I just wish I had more time to study!!