后面问题我真不知道你的意思是什么,前面是你Z轴坐标没设置为0吧,教你一个一次性清0的方法,先工具-加载运行程序-然后把这个文件加载就行了.
(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)这个是文件内容,先保存TXT格式,在改为".lsp“格式