• Cehui8.com 测绘地理信息领域专业门户
  • 首页 > 测绘论文 > 其他

    浅谈AutoCAD中修改高程的四种方法

    2014-04-01 17:57:27 来源:  作者:
    聊聊

      引言

    AutoCAD软件包是美国Autodesk公司推出的CAD软件,从AutoCAD第一版诞生到现在已有二十年的时间。AutoCAD是目前最流行的工程图形处理软件。由于它具有完善的绘图功能、良好的用户界面、易学易用等特点,因而被广泛应用于测绘、规划、设计、土地管理等行业。

    2   AutoCAD使用中遇到的一些问题

        现今许多数字线划地形图的绘制有相当一部分都是基于AutoCAD二次开发的软件来绘制完成的。绘图软件读取从全站仪或RTK传出的数据,并展野外测点点号得到DWG图形,利用这些点号结合外业草图绘制数字线划地形图。此时绘出的线划标高大部分不为零,而且标高大小不等。在做高程点时,如果高程点密度不够,需复制高程点使其满足地形图对高程点的要求,复制的高程点需进行修改。使用RTK测地形高程时,如果控制点不足,RTK无法测的准确的实地高程,因此出现展出的测量高程与实地高程之间有一个固定常数(K)。综上所述,在数字化地形图制作中,高程问题经常出现,对数字化地形图中的高程进行修改是不可避免的。

    AutoCAD中修改高程的四种方法

    通过对AutoCAD的使用、总结,结合实际遇到得问题,我们得出以下三种在AutoCAD修改高程的方法。三种方法分别为单个修改方法、批处理修改方法、线划整体修改方法。其中批处理修改方法又分为利用AutoCAD中的命令和工具条进行手工批处理修改方法、利用在AutoCAD的命令行中输入命令批处理修改方法以及利用AutoCAD为用户提供二次开发工具进行编程进行批处理修改方法。

    3.1 单个修改方法

    ①、打开特性窗口;

    ②、选择一个高程点或线划;

    ③、在“位置(起点、端点)Z坐标”或“标高”栏中输入正确的高程值;

    ④、选择下一个高程点或线划,重复第3步。

    3.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 cmdecho0)

       (command -layer”“new”“gcd03-”“set”“gcd03-” “”)

    (setq ssgcd(ssgetx(list(cons0point)(cons8gcd)))

       (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))

    (commandpointptm“”)

    (setq n0(+n0 1))

     

    全文参见:pan.baidu.com/s/1o6O7LNG 

      声明①:文章部分内容来源互联网,如有侵权请联系删除,邮箱 cehui8@qq.com

      声明②:中测网登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,文章内容仅供参考。

      加群提示:我们创建了全国32个省份的地方测绘群,旨在打造本地测绘同行交流圈,有需要请联系管理员测小量(微信 cexiaoliang)进群,一人最多只能进入一个省份群,中介人员勿扰

    返回顶部