(defun c:CV-ZERO ( / ss )
  (princ "\n--- CV-ZERO: Z-Elevation Flatten by CADVoid.com ---")
  (setq ss (ssget))
  (if ss
    (progn
      (command "_.move" ss "" '(0 0 1e99) "" "_.move" "p" "" '(0 0 -1e99) "")
      (princ "\nAll selected objects flattened to Z=0.")
    )
    (princ "\nNo objects selected.")
  )
  (princ "\n--- Powered by CADVoid.com ---")
  (princ)
)
(princ "\nType CV-ZERO to flatten objects to Z=0. [CADVoid.com]")
(princ)