visual lisp代码求教

1. 因为你没有选择对象，所以不能够归零。

2. 这个归零有个缺点，如果对象已经无穷远，就无法归零。有Z坐标加强版，Z归零，代码如下：

;;;;;;Z坐标归零;;
(defun c:z0 ( / block c10 c38 e&