在工程平面中绘制图形的时候，经常要使一条线高程为0，很多CAD图块图形线条可能不在一个平面上，导致CAD操作不便，如倒角、修剪等常用命令。

　　1、新建txt文档。

　　2、输入下面的代码：

　　复制内容到剪贴板

　　(defun C:Z=0 ( / SS1)

　　(setvar "cmdecho" 0)

　　( if (setq SS1 (ssget))

　　(progn

　　(command ".undo" "be" )

　　(princ "\n正在处理图形数据，请稍候..." )

　　(terpri)

　　(command ".ucs" "w" )

　　(command ".move" SS1 "" '(0 0 1e99) "" ".move" "p" "" ' (0 0 -1e99) "" )

　　(princ "\nOK，已将所选图元Z坐标值全部归零。" )

　　(command ".undo" "e" )

　　);end progn

　　);end ( if (/= SS1 nil)

　　(princ)

　　);end (defun C:Z=0 ( / SS1)

　　3、保存文档，并将 后缀名改为.lsp。

　　看不见后缀名的，请打开任意一个文件夹，到菜单里的“工具”-“文件夹选项”里，点击“查看”标签，把“隐藏已知文件类型的扩展名”前面的勾取消，这样你打开任何文件夹都可以看到扩展名。当然，如果只是想知道某个文件的扩展名如何，就右键点击该文件，选择“属性”，就可看到

　　4、在CAD中的工具——加载应用程序 里面加载好这个lsp程序后。在 命令栏输入z=0 即可运行这个程序，选中所要变换的图形或线完成即可将选中的图形设置成 z=0高程 。