; Super-simple little routine to force
; all z-coordinants in a drawing to zero
; (with thanks to Randy Richardson and
; the Autodesk NG's).
;
; From Tee Square Graphics - 01/28/2000
; mod.by CAD Studio 27.4.2000

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