其實這個問題一直困擾我，以前用有一個LISP程序，后來網上發現了另一個方法，一并總結下來。

1.lisp程序

程序代碼：(defun c:z0()
   (setvar "cmdecho" 0)
   (setvar "blipmode" 0)
   (graphscr)
   (prompt "Z向歸零:") (terpri)

   (princ "請選擇要歸零的實體")
   (setq s (ssget))
   (setq len (sslength s))
   (setq index 0)

   (repeat len
      (setq a (entget (ssname s index)))

      (setq b10 (assoc 10 a))
      (setq b11 (assoc 11 a))

      (setq x10 (cadr b10))
      (setq y10 (caddr b10))

      (setq x11 (cadr b11))
      (setq y11 (caddr b11))

      (setq b101 (cons 10 (list x10 y10 0)))
      (setq b111 (cons 11 (list x11 y11 0)))

      (setq a (subst b101 b10 a))
      (entmod a)
      (setq a (subst b111 b11 a))
      (entmod a)

      (setq index (+ index 1))
   )
   (princ "成功")
   (princ)
)

2.程序代碼：

(defun c:z0()
          (setq cm0(getvar "cmdecho"))
          (setvar "cmdecho" 0)
          (princ "n n n")
          (setq ss(ssget))
          (while ss
               (command "move" ss "" "0,0,0" "0,0,1e99")
               (command "move" ss "" "0,0,1e99" "0,0,0")
               (setq ss(ssget))
          )
          (setvar "cmdecho" cm0)
)

3.

1.將畫面ctrl+a全選
2.使用移動(m_)命令,輸入第一點位置0,0,0 確定,然后輸入第二點位置  
0,0,1e99(是數字一英語字母E和數字九九)確定
3.將畫面ctrl+a全選
4.使用移動(m_)命令,輸入第一點位置0,0,1e99 確定,然后輸入第二點位置0,0,-1e99確定
5.使用移動(m_)命令,輸入第一點位置0,0,-1e99 確定,然后輸入第二點位置   0,0,0確定

這樣Z軸就歸零了,原理是將問題的點全部移至正無窮,再移至負無窮,最后再移回到0坐標

一般用第一種，一般均能解決，只是地形圖往往很大，需要對計算機的要求較高～～

單位機器不行，家里的雙核沒問題哈哈