Z轴归0试述 （含源码）

一直有网友想找到 Z轴归0的方法，现把本人所知大概总结下，更希望大家来补充！
方法1：
Express Tools 工具 Modify 中 的 FLATTEN objects 命令


方法2：
lisp工具 Flat，分享源码



方法3：
据说晓东工具箱里也有这工具，没试过！
方法4：
其它一些简易源码
-----------------------------------------------------------------------
^C^C_move;_all;;0,0,0;0,0,1e99;_move;_p;;0,0,0;0,0,-1e99;
-----------------------------------------------------------------------
^C^C_select;all;;_move;p;;0,0,0;0,0,1e99;_move;_p; ;0,0,0;0,0,-1e99;^M;
-----------------------------------------------------------------------
(defun c:z0 ()
(command “moe” (ssget) “” ‘(0 0) “@0,0,1e99″)
(command “moe” “p” “” ‘(0 0) “@0,0,-1e99″)
)
-----------------------------------------------------------------------
(command "._move" "p" "" "0,0,1e99" "")
(command "._move" "p" "" "0,0,-1e99" "")
-----------------------------------------------------------------------
有心朋友请测试下！