Flatten in Autocad shorcut

;Create a text file using notepad called flatten.lsp

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

;This lisp will project or move all the Z coordinate of the objects to z =0.

; or put in icon or pull down menu.
[Flatten ]^c^cucs;;move;all;;0,0,1e99;;move;p;0,0,-1e99;;