CAD将地形图中非零高程对象转换为零高程对象.docx

CAD技巧001.将地形图中非零高程对象转换为零高程对象[ZT] 本帖地址: /showthreadm.asp?boardid=316id=514815　　如果你从测绘院拷贝来的地形图上有一些图元（如直线和圆等）的Z坐标不为零，那么有可能产生交点不易捕捉、使用dist命令量取的两点间距离值与实际不合等等问题，下面我介绍两种解决这个难题的方法。 　　(1)命令法（中文为注释）：在命令行键入change Command：CHANGE 选择对象 Select objects： all 键入p选择修改特性 Properties/Change point： p 键入e修改标高 Change what property (Color/Elev/LAyer/LType/ltScale/Thickness)　e 输入新的Z坐标 New elevation varies： 0 选择修改特性，回车结束。 Change what property (Color/Elev/LAyer/LType/ltScale/Thickness) Commnd： 　　(2)移动法：很简单，键入移动命令“move”，将所有实体移至点1,0,1E99，然后再重复“move”命令，将所有实体移至点0,0,-1E99即可。 该方法利用AutoLISP语言编程如下： ;;标高(Z坐标)归零实用程序 (defun C:Z=0 () (setvar cmdecho 0) (princ \n正在处理图形数据,请稍候...) (command _.UCS ) (command _.move _all (0 0 1e99) _.move _p (0 0 -1e99) ) (princ \nOK,已将所有图元的标高值即Z坐标归零.) (setvar cmdecho 1) (princ) )end (defun C:Z=0 () 002.消除dwg文件中多余的图层和图块 　　对于绘制CAD图纸后残留的一些多余的图层、文字样式、线型和图块等，可以通过以下方法将它们清除： 　　(1)利用CAD文件菜单下的“输出”命令，填写输出图形文件名称，选择形式为block(*.dwg)，图块名称不填，选择基本点为（0,0），然后选择要输出的图形内容，图形经过如此处理后不会再有多余的信息。 　　(2)利用CAD文件菜单下的“清理”命令，当命令行提示“Verify each name to be purged Y(验证每个要清理的名称)”时：，键入“n”不用验证是否清理，可加快清理速度。多重复几次PURGE命令后也不会再有多余的图形信息了。 　　(3)编制一个小巧的AutoLISP程序，可以减少手工操作。 (defun C:QHTX () (setvar cmdecho 0);关闭命令回显 (repeat 10 (command purge a n) );重复执行purge命令10次 (princ) );end defun C:QHTX () 　　将以上代码复制在新文本文件中，另存为QHTX.lsp，然后在“工具”菜单下加载运行，便能清除图形中的残余信息。 003.字体打印问题 　　有时我们用实心字体绘制的图形，打印时字体却全变成了空心字，这时只要在命令行键入“TEXTFILL”，按系统提示 New value for TEXTFILL 1: 键入数字1后就能恢复实心字体的打印了。TEXTFILL是CAD中的一个不太常用的系统变量，其参数说明如下： TEXTFILL 类型：整数型 保存位置：注册表 初始值：1 控制打印、渲染以及使用 PSOUT 命令输出时 TrueType 字体的填充方式。 0 以轮廓线形式输出文字 1 以填充图像形式输出文字 004.一个被遗忘的CAD命令 　　命令“hatch”可用于图案填充时指定边界的区域。它创建一个非关联的填充，可以填充由一个对象或能够完全封闭一块区域的多个对象组成的边界。如果边界是由多个对象组成的，那么它们的端点必须符合创建图案填充的条件。用户也可以用直接填充的选项为没有封闭边界的区域定义一个多段线填充边界，然后进行填充。 命令行：hatch 输入图案名称或 [/实体(S)/用户定义(U)] 当前值： 输入预定义或自定义的图案名、输入 s、输入 u、输入　或按 ENTER 键 005.测量直线、弧线和曲线的简易方法 　　利用“拉长对象”命令（lengthen）可以测量直线、弧线和曲线的长度值。在命令行键入“len”或“lengthen”，按提示选择所需测量的直线、弧线和曲线即可得到它们的当前长度值。 00