excel在测量中的应用解析

  • 格式:doc
  • 大小:72.00 KB
  • 文档页数:13

Excel2003在道路工程测量中的应用

王汉雄

(1.黄淮学院,河南 驻马店 463000;2.武汉大学)

摘 要:Excel是office办公软件中的一个组件,而VisualBasic继承了其先辈Basic所具 有的程序设计语言简单易学的特点,二者均有广泛的应用基础。该文对Excel2003的数据处 理功能进行分析,重点论述运用Excel2003的“宏”功能实现数据处理的新方法;结合道路工 程中桩坐标及其放样数据计算实例,说明Excel2003处理数据的特点和优点,给出了一种进行测量数据处理的便捷和直观的方法。

关键词:道路工程;测量;Excel2003;VisualBasic

高等级道路施工,不仅要求道路中线、大型构筑物 据,可以采用数据导入法,该方法在保证数据记录正确

和中小型结构物控制点的测设准确无误,而且构筑物、 的情况下,不存在任何输入错误。

路基、路面及轨道施工也要做大量的细部施工测量。

测量工作是保证施工顺利进行的基本条件,直接关系 2 Excel2003进行数据处理的特点和

到工程建设的速度和质量。测量数据处理是测量工作 优点

中最重要、最耗时耗力的内容之一。提高测量数据处

理的效率和精度,向来都是测量人员十分关心的问题。 利用 Excel2003的“宏”功能可以很好地进行数

随着计算机技术的发展,各种测量数据处理的专业软 据处理。“宏”是一系列的命令和函数,存储于Visual

件应运而生,大大提高了数据处理的精度和效率。但 Basic模块中,这些命令和函数组合在一起,形成了一

是,高昂的价格和专业的使用方法是运用这些软件的 个单独的命令,以实现任务执行的自动化。可以用宏

最大障碍,而且一些软件在使用上很不方便。因此,需 录制器和VB编辑器两种方法创建宏。用 “宏”功能比

要一种能被广大测量人员接受,并且易学易懂便于操 用函数功能更便捷,其特点和优点如下:

作的测量数据处理平台。根据测量数据处理的特点和 (1)Excel是office办公软件中的一个组件,适应

道路工程测量工作实践,笔者认为Excel2003完全能 范围广,有良好的应用基础,工程技术人员一般都熟悉

满足道路工程测量数据处理的要求。 其使用方法和规则,测量人员只需掌握基本的VB语

言和编程方法就可以按照计算内容、要求和目的进行

1 Excel2003数据输入方法 编程。

(2)Excel是天然的 “可见的二维数组”。相对于

数据输入主要有键盘输入、语音输入和数据导入 专业软件看不见的内部数组来说,Excel的单元格就

3种方法。键盘输入是过去最常用的方法,劳动量大; 是一个二维数组中的一个元素.直观易懂,便于数据的

语音输入是Excel2003新增的功能,它大大减少了劳 调用和表示,而且,这种二维数组的数据格式灵活多

动量,但是,由于很难保证语音一致,所以难免会出现 变,它没有统一的格式限制.可以定义任一单元格为字

输入错误,仍离不开鼠标和键盘的操作;对于电子数 符型或数值型。

收稿日期:2006—1O一2O

基金项目:河南驻马店市科技局科技攻关计划项目(编号:042002)

作者简介:王汉雄,男,硕士研究生,工程师.E—mail:hxwang2000@126.Com

22 中 外 公 路

27卷

(3)操作简单。Excel在创建宏时.会提示创建快 :Cells(11,5)一”左偏角d一”:KG=0

捷键,一旦创建快捷键后,以后使用宏按对应的快捷键

IfRJ

就可以完成数据的处理,而不必再往单元格里输入 :Cells(11,5)一”右偏角d一”:KG=1

函数。 HD—PJ:PPJJ— EDG(HD):Cells(1l,6)一

(4)适应性强。对于用函数制作的表格,当改变 PP】】

数据时,经常需要动手更新表格,而运用宏功能则自动 P1一Int((LS1^2/24/R— LS1A 4/(2384*

完成表格的更新。 R ^3))* 1000000)/1000000

P2一Int((LS2^2/24/R—LS2A4/(2384*

3 Exce12003在道路工程测量中的 ^3))*1000ooo)/1000000

应用 Q1一Int((LS1/2一LS1A3/(240*R

*R))*

1000ooo)/1000000

以上Excel2003数据处理的特点和优点为道路 Q2一Int((LS2/2一LS2A3/(240*R *R))*

工程测量数据处理提供了优越的条件,可以进行测量 1000000)/1000000

中的各种算术和矩阵运算、解算各类方程;可以实现水 B1一LS1/2/R:B2一LS2/2/R

准网、导线网、边角网、三角网等各类控制网的近似平 IfB1十 B2> P

Then

差和严密平差;可以进行道路中边桩坐标及放样数据 AAA=MsgBox(”不符合构成缓和曲线条件,请检查

计算、道路高程及超高和加宽计算、路基填土高度以及 数据!”,vbExclamation+ vbOKOnly,”提示”)

土石方量计算等。 ExitSub

以下是通过VB编辑器的方法创建宏,编写的“道 EndIf

路中桩坐标及放样数据”计算程序示例。 丁1一Int(((R+P2一(R+P1)*COS(P ))/sin

DimX1,y1,X2,y2,F 1,F 2,HD AsDouble (P )+Q1)*10ooo)/lO000:Cells(12,2)一 丁1

Dim KG AsInteger T2一 Int(((R+P1一 (R+P2)*cos(P ))/sin

ConstpiAsDouble一 3.14159265358979 (P )+Q2)*lOooo)/lO000:Cells(12,4)一T2

Sub道路中桩坐标及放样数据计算() LY— Int((P — B1一B2)*R *10000)/10000

XA—Cells(3,2):yA—Cells(3,4) LH— Int((Ly+LS1+LS2)*10ooo)/lOooo

XB—Cells(4,2):yB—Cells(4,4) Cells(12,6)一 LH

XC—Cells(5,2):yC—Cells(5,4) ZH — k— T1:K3一 Int(ZH /1000):K4一 Int

R—Cells(6,2):志一Cells(6,4) ((ZH— K3*1ooo)*lOooo+ o.5)/10000

LS1一Cells(7,2):LS2一Cells(7,4) Cells(13,2)一 ”K”&K3& ”+”&K4

X0=Cells(8,2):Y0=Cells(8,4)若计算放样数据, HY— Int((ZH +LS1)*10000)/10000

X0,Y0为测站点坐标 K3一 Int(HY/1000)

DD—Cells(9,2)输入桩间距 K4一 Int((Hy— K3* 1000)*10000+

0.5)/

X1一XA:y1一YA:X2一XB:Y2一yB 10000

DAB—pdd(X1,y1,X2,y2) Cells(13,4)一 ”K”&K3& ”+”&K4

FW1一F ¨(X1,y1,X2,y2) yH — Int((Hy+ L * 10000)/10000

X1一XB:Y1一YB:X2一XC:Y2一yC K3一 Int(YH 71000)

DBC—pdd(X1,y1,X2,y2) K4一 Int((yH —K3*1000)*10000+0.5)/

FW2一F (X1,y1,X2,y2) 10000

Cells(1l,2)一DAB:Cells(1l,4)一DBC Cells(14,2)一 ”K”&K3& ”+”&K4

RJ=FW1+p—F耽 计算偏角 QZ— Int((Hy十Ly/2)*10000)/lO000