浅谈浅谈 AutoCADAutoCAD 中修改高程的四种方法中修改高程的四种方法 摘摘 要：要：在使用 AutoCAD 进行数字化成图工作中，经常遇到线划的标高不为零，及高程点的值与实地不符，需要对其进行修改等情况，结合实际工作经验，简单介绍在 AutoCAD 中修改数字化地形图中的高程的四种方法 关键词：关键词：AutoCAD；修改；高程 1 1 引言引言 AutoCAD 软件包是美国 Autodesk 公司推出的 CAD 软件，从 AutoCAD 第一版诞生到现在已有二十年的时间AutoCAD 是目前最流行的工程图形处理软件由于它具有完善的绘图功能、良好的用户界面、易学易用等特点，因而被广泛应用于测绘、规划、设计、土地管理等行业 2 2 AutoCADAutoCAD 使用中遇到的一些问题使用中遇到的一些问题 现今许多数字线划地形图的绘制有相当一部分都是基于 AutoCAD 二次开发的软件来绘制完成的绘图软件读取从全站仪或 RTK 传出的数据，并展野外测点点号得到 DWG 图形，利用这些点号结合外业草图绘制数字线划地形图此时绘出的线划标高大部分不为零，而且标高大小不等。
在做高程点时，如果高程点密度不够，需复制高程点使其满足地形图对高程点的要求，复制的高程点需进行修改使用 RTK 测地形高程时，如果控制点不足，RTK 无法测的准确的实地高程，因此出现展出的测量高程与实地高程之间有一个固定常数（K）综上所述，在数字化地形图制作中，高程问题经常出现，对数字化地形图中的高程进行修改是不可避免的 3 3 在在 AutoCADAutoCAD 中修改高程的四种方法中修改高程的四种方法 通过对 AutoCAD 的使用、总结，结合实际遇到得问题，我们得出以下三种在 AutoCAD 中修改高程的方法三种方法分别为单个修改方法、批处理修改方法、线划整体修改方法其中批处理修改方法又分为利用 AutoCAD 中的命令和工具条进行手工批处理修改方法、利用在 AutoCAD 的命令行中输入命令批处理修改方法以及利用 AutoCAD 为用户提供二次开发工具进行编程进行批处理修改方法 3.13.1 单个修改方法单个修改方法 ①、打开特性窗口； ②、选择一个高程点或线划； ③、在“位置（起点、端点）Z 坐标”或“标高”栏中输入正确的高程值； ④、选择下一个高程点或线划，重复第 3 步。
3.23.2 批处理修改方法批处理修改方法 (1) 利用 AutoCAD 中的命令和工具条进行手工批处理修改方法. ①、将图幅中的其它层全部关闭或冻结，但除高程点所在的层外； ②、选择任意一个高程点（其高程为 Z），同时任意画一条 PL 线； ③、打开特性窗口； ④、将 PL 线的“标高”值改为“K+Z”； ⑤、在 AutoCAD 命令行输入“move”，选择所有的高程点，捕捉先前所选的高程点为基点，PL 线上的任意点为第二目标点进行移动操作 操作结束后，查询其它点的高程值，就会发现所有点的高程值均在原有的基础上增加了一常数 K (2) 利用在 AutoCAD 的命令行中输入命令批处理修改方法. ①、利用特性窗口的“快速选择”来选择符合条件的对象（也可以利用将图幅中的其它层全部关闭或冻结，但除高程点所在的层外）； ②、在 AutoCAD 命令行依次输入“move”、“all”、“0,0,0”、“0,0,K” 操作结束后也能达到上述的目标 (3) 利用 AutoCAD 为用户提供二次开发工具进行编程进行批处理修改方法. 本文的程序设计就是利用 AutoLISP 语言设计的假定高程点所在的层为“GCD”。
程序清单： (defun c:gcd(/k ssi pt pty ptx ptz0 ptm) (setq cmdecho(getvar “cmdecho”)) (setvar “cmdecho”0) (command “-layer”“new”“gcd03-”“set”“gcd03-” “”) (setq ssgcd(ssget“x”(list(cons0“point”)(cons8“gcd”))) (setqK(getdist“\nPlease Input K:”)) (if ssgcd (progn setq n (sslength ssgcd) n0 0 ) (repeat n (setq ssi(ssname ssgcd n0)) (setq sse(entget ssi)) (setq pt(cdr(assoc 10 sse))) (setq pty(car pt)) (setq ptx(cadr pt)) (setq pz0(caddr pt)) (setq ptz(+pz0 k)) (setq ptm(LIST pty ptx ptz)) (command“point”ptm“”) (setq n0(+n0 1)) ) ) ) ) 在 AutoCAD 加载以上的 lisp 程序后，在命令行中输入“gcd”，运行结束后删除原来的高程点即可。
3.33.3 线划整体修改方法线划整体修改方法 当线划标高不为零时，根据数字线划地形图对线划标高的要求，需要把所有线划的标高统一改为零步骤如下： ①、将图幅中高程点所在的层关闭或冻结，其它层不变； ②、在 AutoCAD 命令行输入“change”、“all”、“p”、“e”、“0” 操作结束后就能达到把所有线划的标高统一改为零的目标 3.43.4 菜单栏修改方法菜单栏修改方法 菜单栏—数据—批量修改数据 4 4 总结总结 如今，计算机科学的飞速发展和数字化测绘的日益普及，对我们测绘工作者也提出了更高的要求，如果测绘工作者能够熟练地应用 AutoCAD和多掌握一种编程语言，会对自己的工作大有裨益。