光谱培训 色谱培训 质谱培训 实验室培训 仪器分析培训
%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD
会展信息 更多 >
国务院关于加快推进全国一体化在...  
燃气协会访问地下管线专委会共商...  
邓中亮:让室内精准定位不再是梦  
第十一届中国智慧城市大会在北京举办  
李朋德率团出席地球观测组织第十...  
2016中国地理信息产业大会在...  
政策法规 更多 >
2018年全国测绘法宣传日  
关于加强测绘地理信息科技创新的意见  
关于印发《测绘地理信息行业信用...  
关于印发测绘资质管理规定和测绘...  
国家发展改革委 国家测绘地理信...  
关于印发《测绘地理信息科技发展...  
 您的位置:首页 - %EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD  
浅谈AutoCAD中修改高程的四种方法
编辑:网站管理员   时间:2015/12/13

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

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

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

3  在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 “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))


[打印]  [关闭
专业从事仪器分析培训、实验室培训及相关技术咨询、技术服务、技术交流的资深机构!
版权所有 北京中仪标化
电话:010-53395088  传真:010-61772363  邮箱:fxyq01@126.com;3296669693@126.com  地址:北京市昌平区北农路2号华北电力大学科技园区主楼D座6层628、630、632室
Copyright © www.fxyqpx.org 2007-2024 All Rights Reserved    京ICP备09046479号-2