回复：关于CAD软件中Z轴坐标归零问题的解决办法!

谢谢。行了。

太感谢楼主了，我都要急死了~~看此贴，问题解决了~~

感谢LZ

希望你能讲解一下这个LISP,供大家学习。

谢谢，33楼的方法很好用

我有另外外的方法 也跟大家分享以下：
把下列代码复制到记事本，命名“Z0”，然后把后缀名“.txt”改为“.lsp”，保存后，打开CAD，在菜单栏的“工具”里，选择“加载应用程序”在弹出的对话框中选择“文件”，找到你刚保存的AutolSP文件,点左下角的“加载”，在最下面的命令行输入：Z0，然后回车，然后选中所有物体，最后再回车就可以了。
这个方法稍微有点烦，跟楼主的原理貌似有点相同，但好处就是不用炸开块。。。
(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)

照着楼主的做，结果直线都捕抓不了！晕！得提前备份。

谢谢楼主了。非常不错的想法

哈哈，直接复制么~

太感谢了 、、11

谢谢楼主......跪谢！！！1

感觉好麻烦