(defun C:Z0 ()
(setvar "cmdecho" 0);关闭命令回显
(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "");恢复为默认坐标系
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
(setvar "cmdecho" 1)
(princ)
)
发个LISP代码给大家~!以后只要按Z0就可以啦~!是Z零~!