自动批量生成公路道路测量资料EXCELWPS表格水准测量平面放线

合集下载

excel在测量中的应用

excel在测量中的应用

Excel2003在道路工程测量中的应用王汉雄(1.黄淮学院,河南驻马店463000;2.武汉大学)摘要:Excel是office办公软件中的一个组件,而VisualBasic继承了其先辈Basic所具有的程序设计语言简单易学的特点,二者均有广泛的应用基础。

该文对Excel2003的数据处理功能进行分析,重点论述运用Excel2003的“宏”功能实现数据处理的新方法;结合道路工程中桩坐标及其放样数据计算实例,说明Excel2003处理数据的特点和优点,给出了一种进行测量数据处理的便捷和直观的方法。

关键词:道路工程;测量;Excel2003;VisualBasic高等级道路施工,不仅要求道路中线、大型构筑物据,可以采用数据导入法,该方法在保证数据记录正确和中小型结构物控制点的测设准确无误,而且构筑物、的情况下,不存在任何输入错误。

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

测量工作是保证施工顺利进行的基本条件,直接关系 2 Excel2003进行数据处理的特点和到工程建设的速度和质量。

测量数据处理是测量工作优点中最重要、最耗时耗力的内容之一。

提高测量数据处理的效率和精度,向来都是测量人员十分关心的问题。

利用Excel2003的“宏”功能可以很好地进行数随着计算机技术的发展,各种测量数据处理的专业软据处理。

“宏”是一系列的命令和函数,存储于Visual件应运而生,大大提高了数据处理的精度和效率。

但Basic模块中,这些命令和函数组合在一起,形成了一是,高昂的价格和专业的使用方法是运用这些软件的个单独的命令,以实现任务执行的自动化。

可以用宏最大障碍,而且一些软件在使用上很不方便。

因此,需录制器和VB编辑器两种方法创建宏。

用“宏”功能比要一种能被广大测量人员接受,并且易学易懂便于操用函数功能更便捷,其特点和优点如下:作的测量数据处理平台。

根据测量数据处理的特点和(1)Excel是office 办公软件中的一个组件,适应道路工程测量工作实践,笔者认为Excel2003完全能范围广,有良好的应用基础,工程技术人员一般都熟悉满足道路工程测量数据处理的要求。

用excel快速制作cad断面图示例(绝对有用)

用excel快速制作cad断面图示例(绝对有用)

利用EXCEL表格快速在CAD中画横断面图在高速公路项目中,施工单位前期进场都会对原地面进行复测,测量人员要快速地用复测数据绘图并算出土方的填挖量,对项目组织相应的工作策划及部署至关重要。

这也就对测量人员提出了出图效率问题,本文以横断面为例进行说明。

1 数据获取现在施工单位都普及了全站仪,我们只需要将根据地貌特征点选取好断面来测量,在土方的数据量上来说是不会有很大的出入,目前我们大多使用的是CASIO和SHARP-E500计算器,我们最好编写的程序能用坐标计算出此点所对应的桩号、边距(顺路线前进方向左侧边距为负,右侧为正),只需要记录断面桩号、边距、高程就可以顺利出断面图了。

2 Excel上处理数据将现场测量数据录入Excel中,数据格式如下表一,其中D列的100,300,500的等差数组,是为了在CAD上能按断面里程从左至右依次画多个断面图。

使它们不会出现上一断面的右部与下一断面的左部相交。

在E3、F3中先分别输入E2、F2数据并回车后再点击E3、F3,表格亮显后按住右下角的“十”字拖动成了点位数据列。

表一3 绘制图形3.1 绘制路线标准图形绘制标准图形时按照1:1的比例进行绘制,这样在后面填写断面面积、填挖高度时直接将查询数据输入就完事。

根据纵曲线数据计算出K126+270、K126+290、K126+305断面的中桩高程为分别为690.000、690.800、691.400。

K126+270断面的标准图形根据点位坐标(100,690.000)在CAD 中按照路面横坡往两侧绘制路基线,然后在两侧将边坡线连接在路基的两边。

如果后面的断面与本断面也是相同的话,使用CAD中的Copy命令进行复制。

方法是在文本窗口中:选择所有线形,回车确认后在“指定基点或位移”时我们将基点选择在(100,690.000),对于后面的“指定位移的第二点或 <用第一点作位移>:”时输入(300,690.800)回车后继续输入(500,691.400)。

EXCEL快速计算任何难度的道路中线、边线坐标

EXCEL快速计算任何难度的道路中线、边线坐标

EXCEL快速计算任何难度的道路中线、边线坐标主程序Public i As IntegerPublic pi As DoubleSub TP()Dim ii As IntegerDim k(1000) As DoubleDim xzq, yzq, kq, xzh, yzh, kzh, xjd, yjd, kjd, khy, kyh As Double'直线区域pi = 3.14159265358979xzq = 71862.642yzq = 63474.651kq = 0 '因为直线连接终点为ZH点,与圆曲线起点为同一点,所以在直线区域不定义ZH点参数'直线区域'曲线区域xzh = 71858.3267yzh = 63375.2684kzh = 99.4763xhz = 71909.3687yhz = 63283.8076 '曲线区域定义内容有:ZH(坐标、里程)、HZ(坐标、里程)、JD(坐标、里程)khz = 212.3392 'R(半径)、LS(缓和曲线长度)、HY(里程)、YH(里程)xjd = 71855.658yjd = 63313.806kjd = 160.9966ls = 30r = 75khy = 129.4763kyh = 182.3385'曲线区域i = 2 '从第二格开始读取数据所以定义I=2ii = 1 '桩号从第一个开始启用,所以定义II=2Dok(ii) = Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 1) '定义桩号等于读取数据If Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 1) = "" Then Exit Do '当没有数据读取时退出循环If k(ii) < kq Then '若计算点超过计算起点给予提示并退出程序MsgBox ("猪啊!!你的输入的桩号居然超过计算起点桩号")Exit SubElseIf k(ii) <= kzh Then '若计算点在ZH点前,则进入直线程序Call zx(xzq, yzq, kq, xzh, yzh, kzh, k(ii))ElseIf kzh < k(ii) And k(ii) <= khy Then '若计算点在ZH和HY之间则调入前段缓和曲线程序Call qhhqx(xzh, yzh, kzh, xhz, yhz, khz, xjd, yjd, kjd, ls, r, k(ii))ElseIf khy < k(ii) And k(ii) <= kyh Then '若计算点在HY和YH之间则调入圆曲线程序Call yqx(xzh, yzh, kzh, xhz, yhz, khz, xjd, yjd, kjd, ls, r, k(ii))ElseIf kyh < k(ii) And k(ii) <= khz Then '若计算点在YH和HZ之间则调入后段缓和曲线程序Call hhhqx(xzh, yzh, kzh, xhz, yhz, khz, xjd, yjd, kjd, ls, r, k(ii))ElseMsgBox ("笨啊!!数据已超出计算范围了") '若出现超出范围的桩号则给与提示并退出程序Exit SubEnd Ifi = i + 1ii = ii + 1LoopEnd Sub直线模块Sub zx(ByV al xzq As Double, ByV al yzq As Double, ByV al kq As Double, ByV al xzh As Double, ByV al yzh As Double, ByV al kzh As Double, ParamArray k())fw = fwj(xzh, xzq, yzh, yzq) '首先调入方位角程序计算直线方位角x = xzq + (k(ii) - kq) * Cos(fw) '然后根据桩号和长度计算出坐标值y = yzq + (k(ii) - kq) * Sin(fw)zdfm = dfm(fw) '将弧度形式的前进方位角转换度分秒形式'输出坐标值以弧度和度分秒形式的前进方位角Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 2) = xWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 3) = yWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 4) = fwWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 5) = zdfmEnd Sub圆曲线模块Sub yqx(ByV al xzh As Double, ByV al yzh As Double, ByV al kzh As Double, ByV al xhz As Double, ByV al yhz As Double, ByV al khz As Double, ByV al xjd As Double, ByV al yjd As Double, ByV al kjd As Double, ByV al ls As Double, ByV al r As Double, ParamArray k())l = Abs(k(ii) - kzh) '计算ZH点(因为以直缓点起算)到待求桩号的弧度长度ly = l - ls / 2 '计算圆弧长度p = ls ^ 2 / 24 / r - ls ^ 4 / 2688 / r ^ 3 '曲线内移值m = ls / 2 - ls ^ 3 / 240 / r ^ 2 '曲线切线长增量u = r * Sin(ly / r) + m '偏量坐标计算v = r * (1 - Cos(ly / r)) + p'调入方位角fwq = fwj(xjd, xzh, yjd, yzh) '计算ZH点方位角fwh = fwj(xhz, xjd, yhz, yjd) '计算HZ点方位角(此角作用是用来推算曲线是左偏还是右偏)'调入偏角判定nq = n(fwq, fwh) '计算偏角方向,左偏为-1右偏为1'计算坐标x = u * Cos(fwq) - nq * v * Sin(fwq) + xzhy = u * Sin(fwq) + nq * v * Cos(fwq) + yzhd = (90 * (2 * l - ls) / pi / r) * pi / 180 '计算圆曲线上的偏角(此句要点为角度必须转换为弧度即:pi/180)fw = fwq + d * nq '计算前进方位角zdfm = dfm(fw) '将弧度形式的前进方位角转换度分秒形式'输出坐标值以弧度和度分秒形式的前进方位角Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 2) = xWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 3) = yWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 4) = fwWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 5) = zdfmEnd Sub前缓和段Sub qhhqx(ByV al xzh As Double, ByV al yzh As Double, ByV al kzh As Double, ByV al xhz As Double, ByV al yhz As Double, ByV al khz As Double, ByV al xjd As Double, ByV al yjd As Double, ByV al kjd As Double, ByV al ls As Double, ByV al r As Double, ParamArray k())l = Abs(k(ii) - kzh) '计算测点到ZH点的距离u = l - l ^ 5 / 40 / r ^ 2 / ls ^ 2 + l ^ 9 / r ^ 4 / ls ^ 4 / 3456 '计算偏量v = l ^ 3 / 6 / r / ls - l ^ 7 / 336 / r ^ 3 / ls ^ 3'用公式二则以下两计算可省略(圆曲线和后缓和曲线也同理)Rem t = Atn(v / u)Rem s = Sqr(u ^ 2 + v ^ 2)'调入方位角计算fwq = fwj(xjd, xzh, yjd, yzh) '计算ZH点方位角fwh = fwj(xhz, xjd, yhz, yjd) '计算HZ点方位角(此角作用是用来推算曲线是左偏还是右偏)'调入偏角判定nq = n(fwq, fwh) '计算偏角方向,左偏为-1右偏为1'结果计算Rem x = xzh + s * Cos(fwq + nq * t)Rem y = yzh + s * Sin(fwq + nq * t)x = u * Cos(fwq) - nq * v * Sin(fwq) + xzh '经过测试,计算结果中的两种公式计算结果是一样的y = u * Sin(fwq) + nq * v * Cos(fwq) + yzhd = (90 * l * l / pi / r / ls) * pi / 180 '计算缓和曲线上的偏角(此句要点为角度必须转换为弧度即:pi/180)fw = fwq + d * nq '计算前进方位角zdfm = dfm(fw) '将弧度形式的前进方位角转换度分秒形式'输出坐标值以弧度和度分秒形式的前进方位角Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 2) = xWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 3) = yWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 4) = fwWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 5) = zdfmEnd Sub后缓和段模块Sub hhhqx(ByV al xzh As Double, ByV al yzh As Double, ByV al kzh As Double, ByV al xhz As Double, ByV al yhz As Double, ByV al khz As Double, ByV al xjd As Double, ByV al yjd As Double, ByV al kjd As Double, ByV al ls As Double, ByV al r As Double, ParamArray k())l = Abs(k(ii) - khz) '计算测点到HZ点的距离(后缓和曲线是以HZ点为起点)u = l - l ^ 5 / 40 / r ^ 2 / ls ^ 2 + l ^ 9 / r ^ 4 / ls ^ 4 / 3456 '计算偏量v = l ^ 3 / 6 / r / ls - l ^ 7 / 336 / r ^ 3 / ls ^ 3Rem t = Atn(v / u)Rem s = Sqr(u ^ 2 + v ^ 2)'调入方位角计算fwq = fwj(xjd, xzh, yjd, yzh) '计算ZH点方位角fwh = fwj(xhz, xjd, yhz, yjd) '计算HZ点方位角(此角作用是用来推算曲线是左偏还是右偏)'调入偏角判定nh = n(fwh, fwq) '计算偏角方向,左偏为-1右偏为1(注意:因为是从后HZ点起算,所以必须将HZ点方位角放在前ZH放在后)'结果计算Rem x = xzh + s * Cos(fwq + nq * t)Rem y = yzh + s * Sin(fwq + nq * t)x = xhz - (u * Cos(fwh) - nh * v * Sin(fwh)) '经过测试,计算结果中的两种公式计算结果是一样的y = yhz - (u * Sin(fwh) + nh * v * Cos(fwh))d = (90 * l * l / pi / r / ls) * pi / 180 '计算缓和曲线上的偏角(此句要点为角度必须转换为弧度即:pi/180)fw = fwh + d * nh '计算前进方位角zdfm = dfm(fw) '将弧度形式的前进方位角转换度分秒形式'输出坐标值以弧度和度分秒形式的前进方位角Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 2) = xWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 3) = yWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 4) = fwWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 5) = zdfmEnd Sub偏角模块Function n(ByV al fw1 As Double, ByV al fw2 As Double) As Doublepj = fw1 + pi - fw2 '前进的右角pjIf pj - pi > 0 Then '当右角pj-pi 〉0时为左偏否则为右偏n = -1Else: n = 1End IfEnd Function方位角模块Function fwj(ByV al x1 As Double, ByV al x2 As Double, ByV al y1 As Double, ByV al y2 As Double) As Double'计算增量x0 = x1 - x2y0 = y1 - y2'由增量判断方位角所在象限,不同象限取不同的值If x0 = 0 And y0 > 0 Thenfwj = pi / 2 '当在大地坐标中偏量在X轴上的值时ElseIf x0 = 0 And y0 < 0 Thenfwj = 3 * pi / 2 '当在大地坐标中偏量在负X轴上的值时ElseIf x0 < 0 Thenfwj = Atn(y0 / x0) + pi '当在大地坐标中偏量在第二第三象限上的值时ElseIf x0 > 0 And y0 < 0 Thenfwj = Atn(y0 / x0) + 2 * pi '当在大地坐标中偏量在第四象限上的值时Elsefwj = Atn(y0 / x0) '当在大地坐标中偏量在第一象限上的值时End IfEnd Function度分秒模块Function dfm(ByV al ao As Double) As V ariantao = ao * 180 / pi '将弧度转化为度jd = Int(ao) '计算度jf = Int(ao * 60 - jd * 60) '计算分jmx = (ao - jd - jf / 60) * 3600 '计算秒jm = Left(jmx, 8) '因为拆分出来的秒数经常占到十多位,所以只取秒数的前八位dfm = jd & "°" & jf & "′" & jm & "″" '连接度分秒End Function边桩公式(此公式在电子表格中直接输入):=B2+J2*COS(D2+RADIANS(L2)+PI()) =C2+J2*SIN(D2+RADIANS(L2)+PI()) =B2+K2*COS(D2+RADIANS(M2)) =C2+K2*SIN(D2+RADIANS(M2))=B3+J3*COS(D3+RADIANS(L3)+PI()) =C3+J3*SIN(D3+RADIANS(L3)+PI()) =B3+K3*COS(D3+RADIANS(M3)) =C3+K3*SIN(D3+RADIANS(M3))=B4+J4*COS(D4+RADIANS(L4)+PI()) =C4+J4*SIN(D4+RADIANS(L4)+PI()) =B4+K4*COS(D4+RADIANS(M4)) =C4+K4*SIN(D4+RADIANS(M4))=B5+J5*COS(D5+RADIANS(L5)+PI()) =C5+J5*SIN(D5+RADIANS(L5)+PI()) =B5+K5*COS(D5+RADIANS(M5)) =C5+K5*SIN(D5+RADIANS(M5))=B6+J6*COS(D6+RADIANS(L6)+PI()) =C6+J6*SIN(D6+RADIANS(L6)+PI()) =B6+K6*COS(D6+RADIANS(M6)) =C6+K6*SIN(D6+RADIANS(M6))=B7+J7*COS(D7+RADIANS(L7)+PI()) =C7+J7*SIN(D7+RADIANS(L7)+PI()) =B7+K7*COS(D7+RADIANS(M7)) =C7+K7*SIN(D7+RADIANS(M7))=B8+J8*COS(D8+RADIANS(L8)+PI()) =C8+J8*SIN(D8+RADIANS(L8)+PI()) =B8+K8*COS(D8+RADIANS(M8)) =C8+K8*SIN(D8+RADIANS(M8))=B9+J9*COS(D9+RADIANS(L9)+PI()) =C9+J9*SIN(D9+RADIANS(L9)+PI()) =B9+K9*COS(D9+RADIANS(M9)) =C9+K9*SIN(D9+RADIANS(M9))=B10+J10*COS(D10+RADIANS(L10)+PI()) =C10+J10*SIN(D10+RADIANS(L10)+PI()) =B10+K10*COS(D10+RADIANS(M10)) =C10+K10*SIN(D10+RADIANS(M10))=B11+J11*COS(D11+RADIANS(L11)+PI()) =C11+J11*SIN(D11+RADIANS(L11)+PI()) =B11+K11*COS(D11+RADIANS(M11)) =C11+K11*SIN(D11+RADIANS(M11))=B12+J12*COS(D12+RADIANS(L12)+PI()) =C12+J12*SIN(D12+RADIANS(L12)+PI()) =B12+K12*COS(D12+RADIANS(M12)) =C12+K12*SIN(D12+RADIANS(M12))=B13+J13*COS(D13+RADIANS(L13)+PI()) =C13+J13*SIN(D13+RADIANS(L13)+PI()) =B13+K13*COS(D13+RADIANS(M13)) =C13+K13*SIN(D13+RADIANS(M13))=B14+J14*COS(D14+RADIANS(L14)+PI()) =C14+J14*SIN(D14+RADIANS(L14)+PI()) =B14+K14*COS(D14+RADIANS(M14)) =C14+K14*SIN(D14+RADIANS(M14))=B15+J15*COS(D15+RADIANS(L15)+PI()) =C15+J15*SIN(D15+RADIANS(L15)+PI()) =B15+K15*COS(D15+RADIANS(M15)) =C15+K15*SIN(D15+RADIANS(M15))=B16+J16*COS(D16+RADIANS(L16)+PI()) =C16+J16*SIN(D16+RADIANS(L16)+PI()) =B16+K16*COS(D16+RADIANS(M16)) =C16+K16*SIN(D16+RADIANS(M16))=B17+J17*COS(D17+RADIANS(L17)+PI()) =C17+J17*SIN(D17+RADIANS(L17)+PI()) =B17+K17*COS(D17+RADIANS(M17)) =C17+K17*SIN(D17+RADIANS(M17))=B18+J18*COS(D18+RADIANS(L18)+PI()) =C18+J18*SIN(D18+RADIANS(L18)+PI()) =B18+K18*COS(D18+RADIANS(M18)) =C18+K18*SIN(D18+RADIANS(M18))=B19+J19*COS(D19+RADIANS(L19)+PI()) =C19+J19*SIN(D19+RADIANS(L19)+PI()) =B19+K19*COS(D19+RADIANS(M19)) =C19+K19*SIN(D19+RADIANS(M19))=B20+J20*COS(D20+RADIANS(L20)+PI()) =C20+J20*SIN(D20+RADIANS(L20)+PI()) =B20+K20*COS(D20+RADIANS(M20)) =C20+K20*SIN(D20+RADIANS(M20))=B21+J21*COS(D21+RADIANS(L21)+PI()) =C21+J21*SIN(D21+RADIANS(L21)+PI()) =B21+K21*COS(D21+RADIANS(M21)) =C21+K21*SIN(D21+RADIANS(M21))=B22+J22*COS(D22+RADIANS(L22)+PI()) =C22+J22*SIN(D22+RADIANS(L22)+PI()) =B22+K22*COS(D22+RADIANS(M22)) =C22+K22*SIN(D22+RADIANS(M22))=B23+J23*COS(D23+RADIANS(L23)+PI()) =C23+J23*SIN(D23+RADIANS(L23)+PI()) =B23+K23*COS(D23+RADIANS(M23)) =C23+K23*SIN(D23+RADIANS(M23))呵呵,这个就是传说已久的EXCEL自动计算曲线坐标.给大家研究研究.欢迎在此基础上开发增加新模块。

公路工程三维计算程序(施工放线、水准测量、平面位置)说课材料

公路工程三维计算程序(施工放线、水准测量、平面位置)说课材料

△X△Y偏差允许值
A2
K163+491右18.45m
A3
K163+766右16.50m
△Z偏差允许值
A4
K164+099左17.43m
平面位置总页数
A5
K164+662左14.69m
施工放线总页数
A6
K165+098右17.33m
A7
K165+405左14.67m
A8
K165+617左13.92m
A9
韶关市公路工程监理有限公司
K166+522车河甫桥0#台右幅垫石
0.13
测量
0
0
计算
0
4
技术主办
3
20
里程 冠号
-20
K
1
1
印时请适当调节页边距,到满足打印要求。
AF7、AA7=AG7、AB7=AH7、AC7=AI7、AD7=AJ7、AE7=AK7
对应桩号
K166+512.57 K166+512.57 K166+512.57
A15
K167+315左14.35m
T0201
K167+353左8.99m
T0069
K167+565右4.39m
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

黄玉宏免费版表格式资料软件全自动生成常规水准测量升级版帮助文件

黄玉宏免费版表格式资料软件全自动生成常规水准测量升级版帮助文件

帮助文件一、软件打开绿色软件无须安装(只能完全安装1种版本的Excel),以管理员登录系统并确保系统必须只能完全安装一种版本的Excel后才能使用本软件,首次使用软件前请将附件中的COMDLG32.OCX复制到 C:\Windows\System32下。

XP系统用户右击“我的电脑”—“属性”—“高级”—“性能”设置—“调整为最佳性能”后再打开本软件显示效果最佳!适用于:WinXp-Win7(32位系统)+Excel1997-2010.软件主界面右击鼠标弹出相关菜单.主要功能:自动生成常规水准测量数据详细用途:用户仅需输入首尾水准点及各测量点高程软件全自动生成其它所有水准测量数据再无需用户任何处理,并且将当前数据自动保存到由用户输入表名的新建工作表中。

软件根据首尾水准点高程及各测点全自动判断转点数及仪高及提供强制分站功能(平坦地区高差不大线路较长时没有足够的转点,此参数将强制在等分测点数处增加测站),并自动标注转点名,最后给出水准闭合差。

二、“常规水准”使用方法1、Excel表格使用①、不能插入或删除列,软件不使用“备注”栏。

②、输入数据:在“数据输入”工作表K—N列中输入数据,根据输入高程是实测高程还是设计高程,M、N列只要输入其中1列,软件根据N10单元格判断当前输入高程是实测高程还是设计高程(N10单元格为空时输入为实测高程,反之其有数据时输入为设计高程)。

如输入桩号为全数字计算后软件自动输出为桩号格式“K0+000”形式。

③、使用打印版前请先在“打印版”工作表首页样表中添加工程名称、日期、签名等,软件将首页样表复制到其下(即自动复制填写工程名称等杂项)。

④、如果生成转点的前.后视不合实际可修改“最小读数”及“最大读数”重新计算直到合乎实际为止。

⑤打印版的首页样表不能更改行高,“页面设置”中上下页边距都为2不能更改,其它页面都不需设置。

2、输入参数说明①、软件输入参数⑴尺最小读数:水准尺最小读数,M,范围:0.3≤X<最大读数;⑵尺最大读数:水准尺最大读数,M,范围:最小读数<X≤4.9;⑶正误差极值:高程正误差(实测高-设计高)极值,MM;⑷负误差极值:高程负误差(实测高-设计高)极值,MM;⑸后前波动值:转点后视(前视)波动值,M,范围:0.2—1.0,此参数不宜太大,宜取0.5左右;⑹最少测站数:平坦地区高差不大线路较长时没有足够的转点,此参数将强制在等分测点数处增加测站,计算方法:测点桩号全长(M)除以(每测站约)200(M),不含地形高差较大引起的转点数;⑺显示转点高-计算后显示转点高程;⑻显示闭合差:计算时显示水准闭合差;⑼生成打印版:直接生成打印版。

用Excel实现三-四等水准测量外业数据的自动检核

用Excel实现三-四等水准测量外业数据的自动检核

用Excel实现三\四等水准测量外业数据的自动检核摘要:测绘生产中,顶岗实训的学生和年轻且缺乏经验的员工在三、四等水准测量外业数据的检核与整理过程中普遍存在着效率低而出错率高。

针对此问题,笔者利用常用办公数据软件Excel自还函数结合VBA代码实现了对三、四等水准测量外业数据的检核与整理的自动化处理方案。

通过生产实践,证明该处理方案在三、四等水准测量数据的检核与整理中具有实用性与高效性,得到测绘企业与工程监理方的肯定与好评。

关键词:水准测量处业观测数据自动化实用性高效性随着国家各项工程建设在全国各地如火如荼地进行,测绘工作者做为工程先锋兵,数量上面临着极大的缺口,与此同时,国家对高级职业技术教育也提出了教、产一体化的教育方针,因此,校企合作进行工程生产是当前校、企、学生三方共赢的合作模式。

在校企合作的测绘生产任务中,笔者发现顶岗实训的学生对动辄数十公里、上千个水准测站、上万个数据量的三、四等水准测量外业数据进行检核与整理时,无论是工作效率还是正确率都相当低,严重影响后续测绘工作的质量与进度。

据生产企业反映,一些年轻缺乏经验的工作人员也面临着同样的问题。

为提高顶岗实训学生对大量的外业水准观测数据检核整理的效率与准确率,笔者利用EXCEL结合VBA分别制作了个电子三、四等水准记录本。

该电子表主要功能是通过把外业观测数据录入后,对外业观测数据的计算进行检核,并对水准线路长度、水准点间的高差数据等进行自动累积计算。

EXCEL三、四等水准记录表格分为二个工作表区域:数据录入表;数据计算检核表。

把录入区域和计算检核区域分开的目的是为了提高录入数据的速度,便于修改错误的录入数据。

依数据录入表的表头所示完成前后视上下中丝的原始观测数据录入。

根据多次录入实验,100个三、四等水准测站的观测数据大约在35分钟内录入完成,比在表二相关位置直接录入快10分钟。

数据录入完毕,可以点击录入表中的“数据录入”命令按钮(见图-3),将原始数据录入表(见图-1)中的数据录入至外业数据计算检核表(见图-2),同时完成视距差、累积差、黑红面所测高差、基辅读数差、黑红面所测高差之差以及高差中数计算,并按规范要求对各项数据进行限差检核,如有超限数据做出提示。

基于Excel VBA的道路测设计算程序设计

基于Excel VBA的道路测设计算程序设计

基于Excel VBA的道路测设计算程序设计曾剑生;王汉雄【摘要】Excel是office办公软件中的一个组件,而VBA是office应用程序共享的一种通用自动化语言,可以使常用的程序自动化,并可以创建自定义的解决方案.分析了利用Excel VBA处理数据的特点和优点,并结合道路工程测设工作实际,运用Excel VBA编程实现道路测设计算程序设计,给出了一种进行道路测设数据处理的便捷和直观方法.【期刊名称】《铁道勘察》【年(卷),期】2010(036)005【总页数】3页(P14-16)【关键词】Excel VBA;道路测设;程序设计【作者】曾剑生;王汉雄【作者单位】南宁东测科技有限公司,广西南宁,530023;黄淮学院建筑工程系,河南驻马店,463000【正文语种】中文【中图分类】P208在道路工程勘测和施工阶段,需要进行大量的数值计算。

对于专业技术人员来说,需要一种使用上方便灵活,并且易学易懂便于操作的数据处理平台。

Microsoft Office Excel 2003是Microsoft Office 2003办公套装软件的一个重要组成部分,用来帮助用户完成信息保存、数据计算处理、数据分析决策、信息动态发布等工作。

同时Excel又是一个开放的平台,允许用户使用编程语言开发出符合特定工作需要的应用程序,而VBA(Visual Basic For Application)语言就是一种非常流行、也非常成熟的开发工具。

1 Excel VBA编程进行数据处理的特点和优点利用Excel 2003的“宏”功能可以很好地进行数据处理。

“宏”是指一系列Excel能够执行的VBA语句,存储于Visual Basic模块中,这些语句和函数组合在一起,形成了一个单独的命令,以实现任务执行的自动化。

可以通过VB编辑器创建宏。

用VBA编程比用函数功能更便捷,其特点和优点如下:(1)Excel是office办公软件中的一个组件,适应范围广,有良好的群众应用基础,工程技术人员一般都熟悉其使用方法和规则。

道路测设数据录入方法

道路测设数据录入方法

第一章道路测设5-1道路测设功能及适用范围测模块具有精确计算道路全线三维坐标之功能,并提供多种形式的报表及图形输出,提供道路纵断面图、平面设计图的输出。

公路平面线形总是由直线、圆曲线及缓和曲线组合而成的,我们称直线段、圆曲线和缓和曲线为组成平面线形的单元,即线元,它是构成公路平面线形的基本元素。

一条复杂多变的公路平面线形总是由若干个线元首尾相连而构成的。

一旦各个线元确定,公路的平面线形也就随之而定。

积木法,亦称线元法或单向推进法,它是将组合复杂的公路平面线形“化整为零”,分解成若干个线形单元。

若已知路线平面曲线的起点信息如坐标、切线方向和曲率半径,则从起点处开始设置任何一单元,沿任何方向延伸,此单元终点的信息如坐标、切线方位角、曲线半径都可以计算出来,同时将其作为下一单元起点的相同信息加以利用。

如此逐个单元往下计算,似同搭积木一样,各个单元首位连接,构成一条连续完整的公路平面线形。

利用积木法进行路线坐标计算会引起误差的积累,误差主要来源是在回旋曲线计算上,一般的软件回旋曲线的坐标计算公式只取其展开式的前二、三项,在立交的平面设计中也不过四、五项。

这样做主要是为了计算上的方面,但是,目前在以曲线为主的平面设计方法中经常遇到大回转角的回旋线,近似公式难免会出现不容忽视的误差。

而本软件采用回旋线计算功能非常之强,最多可取到展开式的80项,使回旋线坐标计算误差趋近于0。

《工程测量数据处理系统》道路测设模块就是根据此原理而精心设计的。

他不仅能对“缓+圆+缓”基本型式的线形进行坐标计算,而且能对S型、C型、卵型等任何复杂型式的线形进行坐标计算。

因此可以说《工程测量数据处理系统》是一个通用的道路测量坐标计算系统。

随着高等级公路的兴建及电子全站仪的普及,路面、基层、底基层及路基的标高计算工作量逐渐增大。

为减轻广大测量工作者的工作量,《工程测量数据处理系统》道路测设模块包括了纵坡和横坡设置,改原来的二维坐标计算为三维坐标计算,可以进行任意点的标高计算。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

自动批量生成公路道路测量资料EXCELWPS表格水准测量平面放线暂无格式错误,但是第一段话中的“更高效更准确的功能操作”和“实用程序”有点重复,可以改为“提供了更高效、更准确的测量功能,让用户轻松完成各种记录表的制作。

该程序包含导线点、水准点、平曲线(线元法)、纵断面、横坡超高计算等多个功能,能够快速记录、录入和管理测量资料。

”测量资料的使用说明:1.导线点记录在导线点记录中,用户可以输入导线点的编号、坐标、高程等信息,方便后续的测量工作。

2.水准点记录水准点记录可以帮助用户记录水准点的编号、高程等信息,方便后续的测量和计算。

3.平曲线(线元法)计算平曲线计算是测量中常用的功能之一,用户可以输入起点、终点、曲线半径等信息,程序会自动计算出曲线的各项参数。

4.纵断面计算纵断面计算可以帮助用户计算出地形的高程变化情况,用户可以输入各个点的高程值,程序会自动绘制出纵断面图。

5.横坡超高计算横坡超高计算可以帮助用户计算出道路或铁路的横向高差,用户可以输入各个点的高程值和距离,程序会自动计算出横坡超高值。

总之,测量资料程序是一款功能强大、实用方便的测量工具,能够帮助用户快速记录、计算和管理测量资料,提高工作效率和准确性。

一)、功能特色该软件具有以下功能特色:1.支持多种数据格式的导入和导出,方便与其他软件进行数据交换。

2.提供了多种数据处理方法,包括平曲线、竖曲线、断链等,能够满足不同的测量需求。

3.可以自动生成水准点成果表、导线点成果表、原始数据表等多种报表,方便用户查看和使用。

4.提供了超高数据表和标准路面参数表等实用工具,方便用户进行道路设计和施工。

二)、平曲线平曲线是道路设计中常用的一种曲线类型,其特点是曲率变化平缓,适合用于大半径曲线的设计。

该软件提供了平曲线的自动计算功能,用户只需输入起点、终点和设计要求等参数,即可自动生成平曲线的坐标点和曲线参数。

为了保证计算精度,该软件还提供了多种平曲线计算方法,包括三点式、五点式、七点式等,用户可以根据实际情况选择不同的计算方法。

三)、断链断链是指道路设计中出现的两段不连续的线段,通常是由于地形、建筑物等原因造成的。

该软件提供了断链处理功能,用户只需输入断链的起点和终点坐标,即可自动生成两段线段的坐标点和长度参数。

为了方便用户进行断链处理,该软件还提供了多种断链类型的选择,包括直线断链、圆弧断链、缓和曲线断链等,用户可以根据实际情况选择不同的断链类型。

四)、竖曲线(纵断面)竖曲线是指道路设计中纵向曲线的设计,其特点是曲率变化较大,适合用于小半径曲线的设计。

该软件提供了竖曲线的自动计算功能,用户只需输入起点、终点和设计要求等参数,即可自动生成竖曲线的坐标点和曲线参数。

为了保证计算精度,该软件还提供了多种竖曲线计算方法,包括三点式、五点式、七点式等,用户可以根据实际情况选择不同的计算方法。

五)、超高数据表超高是指道路设计中车辆通过路面时的最大高度限制,是道路设计中重要的参数之一。

该软件提供了超高数据表的功能,用户只需输入道路的横断面和设计要求等参数,即可自动生成超高数据表。

为了方便用户进行超高计算,该软件还提供了多种超高计算方法,包括平均高度法、最大高度法、最小高度法等,用户可以根据实际情况选择不同的计算方法。

六)、标准路面参数表标准路面参数表是道路设计中常用的一种表格,用于记录道路的各项参数和设计要求。

该软件提供了标准路面参数表的功能,用户只需输入道路的基本信息和设计要求等参数,即可自动生成标准路面参数表。

为了方便用户进行路面设计,该软件还提供了多种路面设计方法,包括刚性路面设计、柔性路面设计、水泥混凝土路面设计等,用户可以根据实际情况选择不同的设计方法。

七)、水准点成果表水准点成果表是记录水准测量结果的一种报表,用于记录各个水准点的高程值和误差等信息。

该软件提供了水准点成果表的功能,用户只需输入水准点的基本信息和测量结果等参数,即可自动生成水准点成果表。

为了保证测量精度,该软件还提供了多种水准测量方法,包括直接水准测量、间接水准测量、高程测量等,用户可以根据实际情况选择不同的测量方法。

八)、导线点成果表导线点成果表是记录导线测量结果的一种报表,用于记录各个导线点的坐标值和误差等信息。

该软件提供了导线点成果表的功能,用户只需输入导线点的基本信息和测量结果等参数,即可自动生成导线点成果表。

为了保证测量精度,该软件还提供了多种导线测量方法,包括直接导线测量、间接导线测量、三角测量等,用户可以根据实际情况选择不同的测量方法。

九)、原始数据表原始数据表是记录测量过程中的原始数据和测量参数的一种报表,用于记录测量过程中的各个环节和数据。

该软件提供了原始数据表的功能,用户只需输入测量过程中的各个参数和数据,即可自动生成原始数据表。

为了保证测量精度,该软件还提供了多种数据处理方法,包括数据平差、数据过滤、数据校核等,用户可以根据实际情况选择不同的数据处理方法。

十)、自动计算该软件具有自动计算功能,能够根据用户输入的参数和要求,自动生成各种曲线、表格和报表等数据。

用户只需输入起点、终点和设计要求等参数,即可自动计算出所需的数据。

为了保证计算精度,该软件还提供了多种计算方法和算法,用户可以根据实际情况选择不同的计算方法和算法。

十一)、重复九、十自动生成记录表该软件具有自动生成记录表的功能,能够根据用户输入的数据和参数,自动生成各种记录表和报表。

用户只需输入相关的数据和参数,即可自动生成所需的记录表。

为了方便用户进行数据管理和使用,该软件还提供了多种数据导入和导出的方式,用户可以方便地将数据导入到其他软件中进行处理和使用。

XXX.1.In the columns "n"。

"Offset"。

"n"。

and "Engineering n"。

input the following ns:① lmgc0("n"。

"Offset") XXX;② Leave the cells below "Engineering n" blank to indicate a new n of the project.2.The "n Time" column is used to XXX a record table for this n of the project.3.The "Remarks" column is used to add nal n about the XXX.4.The "Design Coordinate X" and "Design Coordinate Y" XXX。

If these columns are not filled in。

the program will XXX.5.The "Plan n n" column is used to manually control the plann XXX。

① If a value is entered in this column。

the plan n n will beset to that value;② If no value is entered。

the program will generate a defaultn range of -5mm.6.XXX "XXX" column is used to manually control the XXX。

① If a value is entered in this column。

the XXX will be setto that value;② If no value is entered。

the program will generate a defaultn range of ±10mm.7.The "2 XXX (mm)" and "2 Planar n (mm)" columns are used to modify the default XXX Table"。

"XXX"。

and "XXX Record Table"。

For example:2 XXX (mm)15102 Planar n (mm)10① Modify the XXX -15~10;② Modify the XXX 0~10.10.XXXClicking the "Calculate" button XXX Table"。

"XXX"。

and "XXX Record Table"。

The n range for the "Leveling Instrument Measurement Record Table" is ±5√n for closed leveling points.。

相关文档
最新文档