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