Old "flatten" won't flatten

I had to convert an Acad 2006 Dwg to Acad 2000 Dwg for my old "flatten.lisp" routine to work. Does a "flatten" routine for Acad 2006 exist? Thanks in advance, Larry G

One such version found here: http://tinyurl.com/9x725

Code:

---

(defun C:FLATIT ()
 (command "_.move" "_all" "" '(0 0 1e99) ""
                  "_.move" "_p" "" '(0 0 -1e99) "")
 (princ)
)

---

...or just use the built-in FLATTEN command. (make sure ET is installed)