其實(shí)這個(gè)問(wèn)題一直困擾我，以前用有一個(gè)LISP程序，后來(lái)網(wǎng)上發(fā)現(xiàn)了另一個(gè)方法，一并總結(jié)下來(lái)。

1.lisp程序

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

   (princ "請(qǐng)選擇要?dú)w零的實(shí)體")
   (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.將畫(huà)面ctrl+a全選
2.使用移動(dòng)(m_)命令,輸入第一點(diǎn)位置0,0,0 確定,然后輸入第二點(diǎn)位置  
0,0,1e99(是數(shù)字一英語(yǔ)字母E和數(shù)字九九)確定
3.將畫(huà)面ctrl+a全選
4.使用移動(dòng)(m_)命令,輸入第一點(diǎn)位置0,0,1e99 確定,然后輸入第二點(diǎn)位置0,0,-1e99確定
5.使用移動(dòng)(m_)命令,輸入第一點(diǎn)位置0,0,-1e99 確定,然后輸入第二點(diǎn)位置   0,0,0確定

這樣Z軸就歸零了,原理是將問(wèn)題的點(diǎn)全部移至正無(wú)窮,再移至負(fù)無(wú)窮,最后再移回到0坐標(biāo)

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

單位機(jī)器不行，家里的雙核沒(méi)問(wèn)題哈哈