Old "flatten" won't flatten

[laratoola85973]

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

[rkmcswain]

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

(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)