[LISP函数]：关于Z坐标归零

zjb27

有没有将所有图纸内容的Z向坐标都改为0的.lsp
高手赐教！！！

lxch

转贴:

;;标高(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即可。