输入"VLIDE"或"VLISP"命令,会弹出的LISP界面,按"CTRL+N"新建LISP文件,然后复制下面已写好LISP语句,粘贴到新建的LISP文件中保存,然后在CAD中输入"AP",找到你刚保存的LISP文件,LOAD将其加载.现在你输入"Z0"就将当前CAD图Z轴全部归0了.
(defun C:Z0 ()
(setvar "cmdecho" 0)
(command "_.UCS" "")
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "")
(setvar "cmdecho" 1)
(princ)
)
用贱人工具箱里面有个Z轴归0的工具!!!
放大后就可以看出来了。