[求助]：z坐标归0的工具！

qjdeng

我用面积查询的时候，总提示“Z坐标不为0”，因此面积总算不出来。好心人推荐到这里来找，我没找到，现在求助各位大虾了！谢谢！

蔡钰林

本论坛里就有呀，你搜索一下会找到很多这样的贴子。

;;标高(Z坐标)归零实用程序
(defun C:Z=0 ()
(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)
);end (defun C:Z=0 ()

将上面的内容在记事本里存为“Z=0.lsp”后，在CAD中加载，命令行键入Z=0即可。