第一步，用记事本把以下内容保存为z0.lsp文件
第二步，点击工具—AUTOLISP——加载——z0.lsp文件
第三步，命令行输入z0，回车，选ALL，回车，所有不共面的线条全部归零。
以下为记事本内容——
(defun C:Z0 ( / SS1)
(setvar ＂cmdecho＂ 0)
(if (setq SS1 (ssget))
(progn
(command ＂.undo＂ ＂be＂)
(princ ＂\n正在处理图形数据，请稍候...＂)
(terpri)
(command ＂.ucs＂ ＂w＂)
(command ＂.move＂ SS1 ＂＂ '(0 0 1e99) ＂＂ ＂.move＂ ＂p＂ ＂＂ '(0 0 -1e99) ＂＂)
(princ ＂\nOK，已将所选图元Z坐标值全部归零。＂)
(command ＂.undo＂ ＂e＂)
);end progn
);end (if (/= SS1 nil)
(princ)
);end (defun C:Z=0 ( / SS1)
