在工程平面中绘制图形时,往往需要使一条线的标高为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高程。