在工程平面中绘制图形时，往往需要使一条线的标高为0。CAD块的很多图形线可能不在一个平面上，导致CAD操作不便，比如倒角、修剪等常用命令。
1.创建一个新的txt文档。
2.输入以下代码：
将内容复制到剪贴板
(defun C:Z=0 (/SS1)
(setvar 'cmdecho' 0)
(if (setq SS1 (ssget))
(程序
(命令’。撤消' ' be ')
(PRINCH ' \正在处理图形数据，请稍候.')
(特尔普里)
(命令’。ucs' 'w ')
(命令’。移动“SS1”(0 0 1e 99)“”。移动“p”(0 0-1e 99)“”)
(princ '\nOK，所选图元的所有Z坐标值都已归零。')
(命令’。撤消“e”)
);结束程序
);结束(如果(/=SS1零)
(princ)
);end (defun C:Z=0 (/SS1)
3.保存文档并将后缀名称更改为。lsp。
如果您看不到扩展名，请打开任何文件夹，在菜单中进入工具-文件夹选项，单击查看选项卡，取消选中“隐藏已知文件类型的扩展名”前面的框，这样当您打开任何文件夹时都可以看到扩展名。当然，如果你只是想知道一个文件的扩展名，只要右击文件，选择“属性”，就可以看到了。
4.在工具3354中加载lsp程序后，在CAD中加载应用程序。在命令栏中输入z=0以运行此程序，并选择要转换的图形或线以将所选图形设置为z=0高程。
