EXCEL进行中桩坐标、高程计算

道路中边桩坐标计算EXCEL程
道路中边桩坐标计算EXCEL程是一种用于快速计算道路中边桩的相对位置及其坐标的Excel程序。

它使用一个小工具来帮助用户将边桩定义在数学坐标系（X-Y坐标系）中。

EXCEL程是一个Excel表格，用户可以在表格中输入边桩数据，并根据输入的边桩数据计算出边桩的位置和坐标。

具体而言，用户需要首先输入各个边桩的起始位置（X0, Y0）、方向（角度）和距离（L），然后点击Excel 程中的计算按钮，Excel程就会按照输入的数据计算出边桩的位置和坐标，并显示在Excel表格中。

用户可以通过Excel程来计算出边桩的位置和坐标，这有助于道路工程的施工计划等的制定。

此外，用户可以根据施工计划进行边桩安装，确保道路的安全性和可靠性。

Excel程的使用非常简单，可以帮助用户更快更准确的计算出边桩的位置和坐标。

因此，Excel程可以大大提高道路施工的效率。

Excel程还提供了一些其他的功能，比如用户可以将边桩位置和坐标可视化，以便更好的理解边桩的位置。

此
外，用户还可以利用Excel程对边桩的位置和坐标进行校验，以确保边桩的准确性。

总之，道路中边桩坐标计算EXCEL程是一款十分有用的小工具，可以大大提高道路施工的效率，保证边桩的准确性，并且可视化边桩的位置和坐标，有助于更好的理解边桩的位置。

Excel函数进⾏测量坐标批量计算的编程应⽤Excel函数进⾏测量坐标批量计算的编程应⽤陈兵何红玲（中国⼀冶集团有限公司，湖北武汉430080）关键词Excel函数测量坐标坐标计算1前⾔提起Excel电⼦表格，我们往往想起它在办公管理、统计财经、⾦融等众多领域的应⽤,可以进⾏各种数据的处理、统计分析和辅助决策操作，然⽽Excel中函数对于测量⾏业也能发挥不⼩的作⽤，⽐如在⾼速公路项⽬中，要花费⼤量时间对线路放样坐标进⾏逐桩计算和校核，采⽤传统的⽅法去计算这些坐标，很是费时费⼒，⽽且效率不⾼，⽽运⽤Excel电⼦表格中的函数功能编缉公式，实现逐桩坐标批量计算，可⼤⼤提⾼⼯作效率，减少计算错误，实现便捷化⼯作模式。

2测量坐标计算依据2.1 ⽅位⾓与象限⾓的关系由坐标纵轴的北端或南量⾄直线的锐⾓，称为该直线的象限⾓，⽤R表⽰，其⾓值范围为0?～90?。

如图1所⽰，直线01、02、03和04的象限⾓分别为北东R01、南东R02、南西R03和北西R04，则直线⽅位⾓和象限⾓的位置关系如图2，坐标⽅位⾓与象限⾓的换算关系如表1：图1 象限⾓表1 ⽅位⾓与象限⾓的换算关系象限坐标增量由象限⾓求⽅位⾓由⽅位⾓求象限⾓Ⅰ北东△x ＞0,△y ＞0 α01=R 01 R 01=α01 Ⅱ南东△x ＜0,△y ＞0 α02=180-R 02 R 02=180-α02 Ⅲ南西△x ＜0,△y ＜0 α03=180+R 03 R 03=α03-180 Ⅳ北西△x ＞0,△y ＜0α04=360-R 04R 04=360-α042.2 坐标正算和反算 2.2.1.坐标正算根据已知点的坐标，已知边长及该边的坐标⽅位⾓，计算未知点的坐标的⽅法，称为坐标正算。

如图3所⽰，A 点为已知点，坐标为X A 、Y A ，已知AB 边长D AB ，坐标⽅位⾓为αAB ，要求B点坐标X B 、Y B 。

由图3可知 X B =X A +△X AB Y B =Y A +△Y AB 其中△X AB = D AB cos αAB△Y AB = D AB sin αAB上⾯式中sin 和cos 的函数值随着α所在象限的不同有正、负之分，因此，坐标增量同样具有正、负号。

Excel表格制作标高计算程序新建一个Excel文件，把Sheet1表重命名为“竖曲线”，把Sheet2表重命名为“设计标高”。

（1）在竖曲线表中的A1-E1（合并）单元格输入线路名称，在A2-E2单元格中分别输入“变坡点编号”、“变坡点里程”、“变坡点标高”、“曲线半径”和“切线长”,从第三行开始输入对应数据，（2）打开VB编辑器（Alt+F11），双击工程资源管理器中“设计标高”表图标，复制以下程序到界面上，保存后返回Excel窗口，在“设计标高”表中的第一列，从第二行开始输入要计算的里程桩号，完成后，在任一单元格中双击单元格，即可看见输入结果（在第二列），本程序默认遇到桩号列空单元格时不再向下计算。

Dim K As DoubleDim H As DoubleDim P1 As Double, P2 As Double, P3 As DoubleDim H1 As Double, H2 As DoubleDim R1 As Double, R2 As DoubleDim T1 As Double, T2 As DoubleDim D1 As Double, D2 As DoubleDim G1 As Long, G2 As LongPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume NextDim i As LongDim hang As LongDim celln = 0For Each cell In Sheets("竖曲线").Range("a3:a65536")If cell.Value <> "" Thenn = n + 1ElseExit ForEnd IfNexti = 2flag:P2 = 0P3 = 0hang = 3If Sheets("设计标高").Cells(i, 1) <> "" ThenK = Val(Cells(i, 1))canshu:P1 = P2D1 = Val(Sheets("竖曲线").Cells(hang + 1, 2))D2 = Val(Sheets("竖曲线").Cells(hang + 2, 2))H1 = Val(Sheets("竖曲线").Cells(hang + 1, 3))H2 = Val(Sheets("竖曲线").Cells(hang + 2, 3))P3 = (H2 - H1) / (D2 - D1)D1 = Val(Sheets("竖曲线").Cells(hang, 2))D2 = Val(Sheets("竖曲线").Cells(hang + 1, 2))H1 = Val(Sheets("竖曲线").Cells(hang, 3))H2 = Val(Sheets("竖曲线").Cells(hang + 1, 3))R1 = Val(Sheets("竖曲线").Cells(hang, 4))R2 = Val(Sheets("竖曲线").Cells(hang + 1, 4))T1 = Val(Sheets("竖曲线").Cells(hang, 5))T2 = Val(Sheets("竖曲线").Cells(hang + 1, 5))P2 = (H2 - H1) / (D2 - D1)If K < D1 Then Sheets("设计标高").Cells(i, 3) = "超出": i = i + 1: GoTo flag If K > D2 And hang < n + 3 Thenhang = hang + 1GoTo canshuElseCall biaogaoSheets("设计标高").Cells(i, 2) = Round(H, 3)End IfElseEndEnd Ifi = i + 1GoTo flagEnd SubFunction biaogao() As DoubleOn Error Resume NextG1 = -1If P2 - P1 > 0 Then G1 = 1G2 = -1If P3 - P2 > 0 Then G2 = 1H = 0If K < D1 + T1 ThenH = H1 + (K - D1) * P2 + G1 * (D1 + T1 - K) ^ 2 / (2 * R1)ElseIf K <= D2 - T2 ThenH = H1 + (K - D1) * P2ElseIf R2 <> 0 ThenH = H2 - (D2 - K) * P2 + G2 * (K - (D2 - T2)) ^ 2 / (2 * R2)ElseH = H2 - (D2 - K) * P2End IfEnd IfEnd Function本程序只计算单一线路的中桩标高，若想把多个线路的参数放在同一个表中时，只需对以上程序稍加改动即可。

新建一个Excel表，按ALT+F11进入Excel VB编辑器。

依次点击——插入——模块，将下面的内容全部复制到右边的空白窗口里面（曲线元素请自行修改，下面有说明）。

保存后就可以在这个新建的Excel表里用了（如果出现#NAME？请百度“Excel启用宏”）。

中桩X =XPS(DKI,1)中桩Y =XPS(DKI,2)中桩方位角=XPS(DKI,3)中桩高程=SHU(DKI)坐标反算桩号=ZHUANG(X,Y,1)坐标反算距中桩距离=ZHUANG(X,Y,2)从下面开始复制到结束***************************Function XPS(DKI, Z)'辛普森公式，5800程序改编Dim QX As VariantDim A, B, C, D, E, F, G As DoubleDim P, Q, I, J, M, N, K As Double'曲线元素，请自行更改'ElseIf DKI<终点桩号THEN' QX=Array(起点桩号，终点桩号，起点X，起点Y，起点方位角（弧度），起点半径，终点半径）If DKI < 20058.839 ThenQX = Array(0, 0, 0, 0, 0, 0, 0)ElseIf DKI < 20238.839 ThenQX = Array(20058.839, 20238.839, 4201152.834, 465521.276, 5.65395484192746, 0, 1500)ElseIf DKI < 20816.464 ThenQX = Array(20238.839, 20816.464, 4201300.426, 465418.29, 5.71395484980653, 1500, 1500)ElseIf DKI < 20996.464 ThenQX = Array(20816.464, 20996.464, 4201834.24, 465207.124, 6.09903818731417, 1500, 0)ElseIf DKI < 21116.464 ThenQX = Array(20996.464, 21116.464, 4202012.345, 465181.272, 6.15903858304419, 0, -1244.01)ElseIf DKI < 21538.232 ThenQX = Array(21116.464, 21538.232, 4202131.155, 465164.502, 6.11080747575542, -1244.01, -1244.01)ElseIf DKI < 21658.232 ThenQX = Array(21538.232, 21658.232, 4202526.61, 465023.77, 5.77176839646516, -1244.01, 0)ElseIf DKI < 21850.133 ThenQX = Array(21658.232, 21850.133, 4202629.304, 464961.713, 5.72353724069503, 0, 0) ElseIf DKI < 21970.133 ThenQX = Array(21850.133, 21970.133, 4202791.929, 464859.835, 5.72353724069503, 0, 1252.482)ElseIf DKI < 22050.81 ThenQX = Array(21970.133, 22050.81, 4202894.615, 464797.767, 5.77144211685777, 1252.482, 1252.482)ElseIf DKI < 22310.81 ThenQX = Array(22050.81, 22310.81, 4202966.18, 464760.552, 5.83585582000829, 1252.482, 2900)ElseIf DKI < 23162.892 ThenQX = Array(22310.81, 23162.892, 4203208.994, 464668.271, 5.98447753865125, 2900, 2900)ElseIf DKI < 23418.664 ThenQX = Array(23162.892, 23418.664, 4204048.252, 464539.886, 6.27829891856905, 0, 0) ElseIf DKI < 23843.077 ThenQX = Array(23418.664, 23843.077, 4204304.021, 464538.637, 6.27829887008768, -3000, -3000)ElseIf DKI < 24987.311 ThenQX = Array(23843.077, 24987.311, 4204726.868, 464506.599, 6.13682786235288, 0, 0) ElseIf DKI < 25107.311 ThenQX = Array(24987.311, 25107.311, 4205858.869, 464339.73, 6.1368282986852, 0, -1000)ElseIf DKI < 25597.197 ThenQX = Array(25107.311, 25597.197, 4205977.194, 464319.862, 6.07682829080613, -1000, -1000)ElseIf DKI < 25717.197 ThenQX = Array(25597.197, 25717.197, 4206413.637, 464108.336, 5.58694229503935, -1000, 0)ElseIf DKI < 26198.491 ThenQX = Array(25717.197, 26198.491, 4206502.543, 464027.767, 5.52694228716029, 0, 0) ElseIf DKI < 26318.491 ThenQX = Array(26198.491, 26318.491, 4206852.646, 463697.506, 5.5269428689367, 0, -1250)ElseIf DKI < 26668.593 ThenQX = Array(26318.491, 26668.593, 4206938.599, 463613.786, 5.47894287232972, -1250, -1250)ElseIf DKI < 26788.593 ThenQX = Array(26668.593, 26788.593, 4207143.201, 463331.103, 5.19886125757867, -1250, 0)ElseIf DKI < 27337.747 ThenQX = Array(26788.593, 27337.747, 4207195.875, 463223.295, 5.15086126097169, 0, 0) ElseIf DKI < 27487.747 ThenQX = Array(27337.747, 27487.747, 4207429.022, 462726.09, 5.15086174578537, 0, 1000)Else: QX = Array(0, 0, 0, 0, 0, 0, 0)End If'以下不用更改A = QX(2)B = QX(3)C = QX(4)If QX(5) <> 0 Then D = 1 / QX(5) Else D = 0 'D = QX(5)If QX(6) <> 0 Then E = 1 / QX(6) Else E = 0 'E = QX(6)F = QX(0)G = QX(1)P = (E - D) / Abs(G - F)Q = Abs(DKI - F)I = P * QJ = C + (I + 2 * D) * Q / 2M = C + (I / 4 + 2 * D) * Q / 8N = C + 3 * (3 * I / 4 + 2 * D) * Q / 8K = C + (I / 2 + 2 * D) * Q / 4If Z = 1 Then XPS = A + Q * (Cos(C) + 4 * (Cos(M) + Cos(N)) + 2 * Cos(K) + Cos(J)) / 12If Z = 2 Then XPS = B + Q * (Sin(C) + 4 * (Sin(M) + Sin(N)) + 2 * Sin(K) + Sin(J)) / 12If Z = 3 Then XPS = JEnd FunctionFunction shu(L)Dim SQX As VariantDim A, B, C, D, R, T, E, F, H, X, Y As Double'曲线元素，请自行更改'ElseIf L<终点桩号THEN' SQX=Array(变坡点，H，R，T，E，I1，I2）If L < 20483 ThenSQX = Array(0, 0, 0, 0, 0, 0, 0)ElseIf L <= 21225 ThenSQX = Array(20740, 785.679, 12000, 129, 0.693, 0.0035, 0.025)ElseIf L <= 22009.19 ThenSQX = Array(21360, 801.179, 30000, 135, 0.304, 0.025, 0.034)ElseIf L <= 22797.109 ThenSQX = Array(22160, 828.379, 14160.563, 150.81, 0.803, 0.034, 0.0127) ElseIf L <= 23636.923 ThenSQX = Array(22980, 838.793, 7075.103, 182.891, 2.364, 0.0127, -0.039) ElseIf L <= 24692.69 ThenSQX = Array(23740, 809.153, 12884.625, 103.077, 0.412, -0.039, -0.023) ElseIf L <= 25717.197 ThenSQX = Array(24840, 783.853, 6137.917, 147.31, 1.768, -0.023, 0.025) ElseIf L <= 26467.197 ThenSQX = Array(25820, 808.353, 14686.143, 102.803, 0.36, 0.025, 0.039) ElseIf L <= 27320 ThenSQX = Array(26570, 837.603, 5860.362, 218.591, 4.077, 0.039, -0.0356) Else: SQX = Array(0, 0, 0, 0, 0, 0, 0)End If'以下不用更改A = SQX(1)B = SQX(0)C = SQX(5)D = SQX(6)R = SQX(2)T = SQX(3)E = SQX(4)If (C - D) >= 0 Then F = 1 Else F = -1 'F=ABS(C-D)/(C-D)X = B - TY = B + TIf L < X ThenH = A - (B - L) * CElseIf L < B ThenH = A - (B - L) * C - F * (L - X) ^ 2 / (2 * R)ElseIf L = B ThenH = A - F * EElseIf L < Y ThenH = A - (B - L) * C - F * (L - X) ^ 2 / (2 * R)ElseIf L > Y ThenH = A - (B - L) * DEnd Ifshu = HEnd FunctionFunction ZHUANG(X, Y, Z)Dim W, L, J, DKI As Double'坐标反算，只需更改DKI=路线起点桩号DKI = 20058.839'以下不用更改DoL = ((XPS(DKI, 1) - X) ^ 2 + (XPS(DKI, 2) - Y) ^ 2) ^ 0.5If L = 0 Then Exit DoJ = Sin(XPS(DKI, 3) - 1.5707963267949 - Application.WorksheetFunction.Atan2((XPS(DKI, 1) - X), (XPS(DKI, 2) - Y)))If Application.WorksheetFunction.IsErr(W) Then Exit DoW = L * JIf Abs(W) < 10 ^ (-8) Then Exit DoIf Application.WorksheetFunction.IsErr(W) Then Exit DoDKI = DKI + WLoopIf Z = 1 Then ZHUANG = DKI Else ZHUANG = LEnd Function。

小白自学ExcelVBA道路坐标高程计算程序流程1声明1.1 本人是个工作时间不长测量施工员。

1.2听说想轻松愉快的干好测量得学门编程，又听说ExcelVBA是个简单的可视化的常用的……1.3 本人很懒，面对厚厚的全是“昏天暗地”代码的ExcelVBA教科书籍，实在是没心没力。

其实俺还是懂点儿VB编程的（学校学过“=”是赋值，if、while、end的意思，嘿嘿，还有画窗体图框，其他的就都还给老师了）。

1.4 谷歌、度娘，是咱的好帮手。

1.5 仰望的存在，神一般的存在，无私的化身！道路中边桩坐标计算程序120424.xls（王中伟”教授”QQ：595077）曲线坐标计算程序VBA 4.6.xls（陈超”中铁”QQ：295188316）陈师傅的VBA代码乍一看感觉比王老师的让人头痛，怎么说咱们也是个有理想有目标的人，要啃就啃硬骨头！就选~~~嘿嘿~~~王老师的程序吧！1.6 道路中边桩坐标计算程序120424.xls代码获取。

王老师、陈师傅担心不懂编程的人，不小心修改代码导致程序错误，设置了vba密码（个人认为），其次我跟他们不熟，没有正大光明的要的密码，于是求助谷歌度娘，这个关于VBA 密码破解，于是很不厚道的得到了密码，为了方便本次学习，又很不厚道的把道路中边桩坐标计算程序120424.xls的密码贴出来（df750726），神人勿怪呀！2 代码理解ing…我们通过密码打开vba代码窗口，大家可以先把每个表格打开浏览一下代码，是不是感觉很短呀，感觉应该是超级链接的意思，嘿嘿，主要的代码在模块“lx”里，打开下，代码多吧，这就是咱们要肯的骨头。

现在咱们冲呀！2.1 第一段代码理解貌似第一段代码是定义的意思“定义π值”、'定义桩号点”、“'定义坡段”、“'定义基本曲线”①Public Const PI As Double = 3.14159265358979谷歌翻译：Public Const PI As Double公共常量PI 作为双精度浮点型百度百科：双精度浮点数双精度浮点数（Double）用来表示带有小数部分的实数，一般用于科学计算，用8个字节（64位）存储空间，其数值范围为1.7E-308～1.7E+308，双精度浮点数最多有15或16位十进制有效数字，双精度浮点数的指数用“D”或“d”表示。

一、名称：立交匝道中桩坐标计算EXCEL程序二、运行平台：计算机中，安装有EXCEL2003/2007软件三、程序功能：1．输入较少的匝道参数即可计算匝道全部主点参数，且易于同设计文件比照校对；2．能批量生成指定间距的中桩，避免手工输入的麻烦；3．瞬间计算完成指定桩号的中桩坐标和切线方位角，计算结果便于进一步制作报表输出；4．可生成匝道线型绘制数据，简单操作即可在AUTOCAD中生成匝道线型。

四、使用步骤：1．工程实例介绍一个立交匝道实例，并以此为例介绍程序使用步骤。

实例还是来源于《CASIO fx-5800P计算与道路坐标放样计算》中的立交匝道（见教材第6章，139页）匝道整体图：把其中的A匝道提取出来：A匝道相关的参数表也提取出来：.2．打开EXCEL计算程序，输入A匝道的相关参数图中浅绿色部分是输入的原始数据部分。

这里原始数据的输入是难点和关键，一定要准确验证，否则后面的工作全是无用功。

这里就数据输入作详细解读如下：（1）第一行，“匝道”后面的单元格可输入匝道编号，这个不参与计算，仅作提示，使界面清晰明了。

（2）数据第一列，是节点栏，“节点”是我起的名字，含义是两种不同线元交界的点，如ZH、ZY、HZ、GQ、YZ等特征点都是节点，匝道的起、终点也是节点，注意QZ不是节点。

这一栏就填节点的名称，注意不要漏了。

（3）节点桩号栏。

这个在设计文件上可以找到，需要强调的是输入时按数字输入，如输入153.194，回车后会自动显示为K0+153.194格式，千万不可按桩号格式K**+***的格式输入，否则会出错。

（4）半径1、半径2两栏。

节点除匝道起、终点外，都是对前后两个线元起承接作用的点，一般情况下，其曲率半径是连续的，但也有例外，如ZY点，节点前承直线终点，半径无穷大，后接圆曲线，半径为R。

因此，在节点处曲率半径连续的情况下，就在半径1中填写半径值，半径2中空着就行（当然填一个与半径1一样的值也没事），而当节点出曲率半径不连续的情况下，就分别在半径1和半径2中相应填写两个不同的半径值。

：Excel 公路中线坐标计算现阶段我国公路工程中已普遍使用大地坐标进行线型的控制及测设，在施工中经常要对中线坐标进行复核、加密，才能满足公路工程施工的需要。

本文是结合公路工程的实际需要，利用Exce电子表格制作的用于由直线、圆曲线、缓和曲线组成的一般公路线型中桩、边桩等计算的通用模版，用于减轻计算工作的劳动强度和提高计算结果的准确度。

一、采用公式1 直线段1.1 中桩坐标计算公式1.2 边桩坐标计算公式2 缓和曲线段2.1 中桩坐标计算公式当P点位于顺时针方向时,其方位角为αE→p=αA→B+90°；当P点位于逆时针方向时,其方位角为αE→p=αA→B-90°。

2.2 边桩坐标计算公式3 圆曲线段3.1 中桩坐标计算公式当E点位于顺时针方向时取“+”,当E点位于逆时针方向时取“-”。

3.2 边桩坐标计算公式XP、YP——未知点P的坐标X1、Y1——各线型起点的坐标（第二曲线段为终点）XA、YA、XB、YB——P点边桩A点、B点的坐标（A为左侧、B为右侧）α1→2——直线段起点的方位角αA→B——各线形起点的切线方位角（第二曲线段为终点）L——P点距各线形起点的长度LS——缓和曲线段缓和曲线长R——各曲线段的半径β——P点的切线角（曲线左转时取“-”、曲线右转时取“+”）T1、T2——P点至边桩A、B的距离（A为T1、B为T2）二、计算模板的建立步骤表1－1表1－21．新建一个工作薄，在其中输入如表1所示的内容；2. 选中工作表A列，打开格式菜单，选中“单元格”，在单元格菜单中选中“数字”栏，自定义单元格格式为“K000＋000.000”。

按此方法分别将其他列设置为如表1所示单元格格式；3. 将“4”行做为路线起点数据行，在“5”行中进行公式编辑；4．在“J5”单元格中输入“=IF(C5=4,RADIANS(IF((G5+H5/60+I5/60/60)<180,(G5+H5/60+I5/60/60)+180,(G5+H5/60+I5/60/60)-18 0)),IF(C5=5,RADIANS(IF(B5=0,G5+H5/60+I5/60/60-E5/2/D5*180/PI(),G5+H5/60+I5/60/60+E5/2/D5*180 /PI())),RADIANS(G5+H5/60+I5/60/60)))”；5．在“K5”单元格中输入“＝A5－$A$4”；6．在“L5”单元格中输入“=$L$4+IF(C5=1,K5*COS(J5),IF(C5=2,2*D5*SIN(K5/2/D5)*IF(B5=0,COS(J5-K5/2/D5),COS(J5+K5/2/D5) ),IF(C5=3,(K5-K5^5/40/D5^2/E5^2)*COS(J5)+(K5^3/6/D5/E5-K5^7/336/D5^3/E5^3)*IF(B5=0,COS(J5-90 *PI()/180),COS(J5+90*PI()/180)),IF(C5=4,(K5-K5^5/40/D5^2/E5^2)*COS(J5)+(K5^3/6/D5/E5-K5^7/33 6/D5^3/E5^3)*IF(B5=0,COS(J5-90*PI()/180),COS(J5+90*PI()/180)),2*D5*SIN(K5/2/D5)*IF(B5=0,COS( J5-K5/2/D5),COS(J5+K5/2/D5))))))”；7．在“M5”单元格中输入“=$M$4+IF(C5=1,K5*SIN(J5),IF(C5=2,2*D5*SIN(K5/2/D5)*IF(B5=0,SIN(J5-K5/2/D5),SIN(J5+K5/2/D5) ),IF(C5=3,(K5-K5^5/40/D5^2/E5^2)*SIN(J5)+(K5^3/6/D5/E5-K5^7/336/D5^3/E5^3)*IF(B5=0,SIN(J5-90 *PI()/180),SIN(J5+90*PI()/180)),IF(C5=4,(K5-K5^5/40/D5^2/E5^2)*SIN(J5)+(K5^3/6/D5/E5-K5^7/33 6/D5^3/E5^3)*IF(B5=0,SIN(J5-90*PI()/180),SIN(J5+90*PI()/180)),2*D5*SIN(K5/2/D5)*IF(B5=0,SIN( J5-K5/2/D5),SIN(J5+K5/2/D5))))))”；8．在“N5”单元格中输入“=IF(B5=0,J5-RADIANS(IF(C5=2,K5/D5*180/PI(),IF(C5=3,K5^2/2/D5/E5*180/PI(),IF(C5=4,K5^2/2/D5 /E5*180/PI(),IF(C5=5,K5/D5*180/PI()))))),J5+RADIANS(IF(C5=2,K5/D5*180/PI(),IF(C5=3,K5^2/2/D5 /E5*180/PI(),IF(C5=4,K5^2/2/D5/E5*180/PI(),IF(C5=5,K5/D5*180/PI()))))))”；9．在“P5”单元格中输入“=IF(C5=4,L5+O5*COS(N5+90*PI()/180),L5+O5*COS(N5-90*PI()/180))”；10．在“Q5”单元格中输入“=IF(C5=4,M5+O5*SIN(N5+90*PI()/180),M5+O5*SIN(N5-90*PI()/180))”；11．在“S5”单元格中输入“=IF(C5=4,L5+O5*COS(N5-90*PI()/180),L5+O5*COS(N5+90*PI()/180))”；12．在“T5”单元格中输入“=IF(C5=4,M5+O5*SIN(N5-90*PI()/180),M5+O5*SIN(N5+90*PI()/180))”；13．选定“5行”向下复制到表格最后一行；14．点击“文件”菜单中的“另存为”选项，输入文件名为“坐标计算”在文件类型中选择为“模版”并点击“保存”。

用EXCEL进行中桩坐标、高程计算（铜汤高速第一合同段）测量计算、平差软件种类繁多，但无论什么软件都不能包罗万象，无法满足众多数据处理的需要，即使某种计算软件的功能非常齐全，但此类软件一般都是针对性开发的，而像小件坐标计算，例如承台坐标，则显得非常烦琐。

本文结合本项目介绍了应用EXCEL进行测量计算的方法和思路，并提供了一些常用的计算公式。

1、 EXCEL基本计算方法打开EXCEL后显示的表格，将相关数据依次输入到相应的表格上中。

当原始数据输入完毕后，再在需要显示结果的相应单元格内输入计算公式，EXCEL则会按照公式自动计算出结果，下面以两点坐标计算距离为例，简单说明下：第一步：在相应位置输入表头、序号、坐标后，图示1所示。

第二步在显示距离格内输入计算公式=SQRT((B4-D4)^2+(C4-E4)^2)并按回车，距离的结算结果就显示出来。

2、在测量计算中，最常见的是三角函数的处理。

EXCEL中备用的三角函数很齐全，但计算中是以弧度为单位来处理的，在计算中角度（度、分、秒）需要转换成弧度后，即可进行三角函数的计算了。

3、结合本项目分别介绍了直线、圆曲线、竖曲线的计算事例铜汤高速公路第一合同段，起点里程K78+060.618,终点里程K82+825,全长4764.4米，其中包括朱家畈大桥，水桥湖一桥、二桥三座桥梁。

全线平面首尾为直线段，中间由三段圆曲线连接，（后附全线平面图），计算原始数据取自设计文件第一册《直线、曲线及转角表》(图号为S3-4);全线包括6段竖曲线，其中凹、凸曲线各3段，计算原始数据采用设计文件第一册《路线纵断面图》（图号为S3-3）。

在表格中，桩号栏中的ZJF8、SQA7、SQB6分别代表朱家畈大桥8号墩中心，水桥湖一桥7号墩中心和水桥湖二桥6号墩中心。

坐标和高程的单位均为m，角度单位为弧度。

一、坐标计算方法：a、直线段：坐标增量法例如：第一段直线范围K78+060.618~K78+773.787坐标计算已知：BP点里程为K78+060.618，坐标（3412768.816，484851.623）起始方位角a＝140°45′46.1″＝2.456774421（弧度）计算直线范围内的K78+200坐标如下：在EXCEL表格中输入相应的表头和需要计算的里程后在C36格内输入公式=3412768.816+（B21-78060.618）* COS（2.456774421）在D36格内输入公式=484851.623+（B21-78060.618）* SIN（2.456774421）X=3412768.816+(78200-78060.618)×COS2.456774421＝3412660.860Y=484851.623+(78200-78060.618)×SIN2.456774421＝484939.787 图示：b、曲线段：偏角法第一段圆曲线K78+773.787～K79+524.582上坐标计算：起点（即ZY点）里程为K78+773.787，同时位于第一段直线上，可通过坐标增量法算出ZY点坐标为（3412216.442，485302.725）；始方位角a＝140°45′46.1″＝2.456774421（弧度）；曲线圆心在线路右侧，曲线半径R＝4500m。

EXCEL从桩号直接计算里程方法大全在市政、公路、水利工程的计量计算中，经常会遇到对已经获得的桩号进行里程计算的问题，当出现了建筑物或特殊地貌时候，往往桩号是不等距的，此时进行桩号之间里程的计算是一件非常麻烦的事情，如下图1。

图1作者在多年的工作实践中，发现EXCEL函数的功能真是强大，稍加组合，便可方便地解决这个难题。

方法一若是桩号还没有录入，则可以采用本方法，可使里程计算变得非常方便，如同普通计算一样。

具体操作如下：1、首先在输入桩号时首先对输入桩号列（本例中是A列和B例相应的单元格），如图1所示。

图22、进行单元格格式设置，先选择自定义格式中的“0”在格式，如图3所示。

图33、把“0”格式改成“K0+000.00”格式，然后点“确定”即可。

4、通过这样设置，就把A列和B列的需要输入桩号的单元格设置成了“K0+000.00”格式了。

这样我们在输入桩号时就可以直接输入桩号的里程数，EXCEL会自动转换，如在A3中输入“321.26”，则会自动变成“K0+321.26”。

如图5、图6所示，快捷又方便。

5、由于在桩号的单元格中实际输入的是里程数，看到是“K0+000.00”的格式，所以两个桩号间的里程计算公式就变得非常简单了。

只要在C列相应单元格中（C3单元格）写入”=ABS（A3-B3）”这一切OK了，是不简单！见图7。

图5图6图7方法二方法一虽然方便快捷，但有时已输入了桩号，如图8所示那又怎么快捷地计算两桩号间的里程呢？！别着急，这就要用到EXCEL强大的函数功能了。

我们只要在计算里程的C列相应单元格中（如C3单元格）写入“=ABS(REPLACE(SUBSTITUTE(A3,"+",""),1,1,"")-REPLACE(SUBSTITUTE(B3,"+",""),1,1,""))”，一切就OK了。

标高计算系统刘炳仓标高计算是在公路工程中属于测量方面的工作，这个工作并不难，但是比较麻烦，计算某一个里程的标高，只要查出相关参数，计算标高就不会出现什么问题，但是每次要去查出相关参数在工作程序上是比较烦人的，时间久了出现问题是不可避免的。

在公路施工过程中，测量工作在标高方面出现的问题并不少见，这对工程进度和成本都造成损失，为了减少这一错误，本人编写了《标高计算》表进行处理工作上的问题。

使用标高计算之前，首先把图纸中的相关竖曲线参数输入到《竖曲线参数》表中，检查无误后保存，在以后的工作中，要计算某一个里程的标高，只在《标高计算》表中输入计算里程，中桩的设计标高自动计算出来，当然这个标高是设计的路面高程。

知道了这个高程，同一点的其它高程那就是简单的加减工作了。

要说明的是本计算表不能对设计中出现的长短链进行自动处理，这需要在计算的时候手工处理。

设计这个表格之前，让我们先看看竖曲线的两个计算公式：直线段计算公式：H=i∗l1−lq+ℎ1；抛物线的计算公式：H=−l1−lq22R+l1−lq∗i+ℎ1；注：H为需要计算点的高程；i为坡度；l1为计算点里程；lq为竖曲线（直线）起点里程；h1为起点高程；R为竖线参数。

2.1、竖曲线参数（标签名：竖曲线参数）本表为竖曲线参数输入表，计算一个线段的标高之前，首先要输入这一段的参数，参数输入好之后，在《标高计算》表中就可以进行标高计算。

这个表中从A列到G列的参数是用户输入的，输入时要注意参数的输入格式：1、【曲线起点坡度】栏：上坡为正，下坡为负。

2、【切线长或直线长度】栏：起始点必需为直线，起始单元格数据是从起点到抛物线起点的直线长度。

3、【切线长或直线长度】栏：起始点以后的单元格填写的内容为抛物线的切线长度，直线对应的单元格不填数据。

4、在曲线类型栏内输入参数时，必需是“直线→抛物线→直线→抛物线→……”这种循环方式填写，即使是两条抛物线相接，它们中间也要插入直线段，插入的这条直线的长度为“0”，如果是两条不同坡度的直线相接，中间也要插入一条抛物线，抛物线的长度也为“0”；5、线型结束点的曲线半径填写值为“1”，切线长或直线长度栏填写值为“0”。

EXCEL辅助计算公路中桩与边桩参数的应用- 水利施工简介：在现今的道路桥梁建设中，全站仪以其高精度、高效率的特点，在测量放样中得到广泛的应用，它将传统的二维测量提升到了三维测量的高度。

但大量的坐标计算加重了测量人员的工作强度，也影响了全站仪的使用效率。

本人根据《公路工程施工测量》提供的FX-4500程序，利用EXCEL函数与逻辑循环语来计算公路中桩及边桩参数，大大提高了计算的可靠性和速度。

关键字：EXCEL 计算公路中桩公路边桩一、前言在当前的高速公路施工中，全站仪以其高精度、使用简便的特点在施工测量放样中得到广泛的应用。

它的使用还有一个意义，它将测量从传统的二维测量提升到三维测量的高度，使测量效率大为提高。

全站仪使用时需计算大量的坐标，坐标的正确和精度直接关系到测量结果的准确度；另外，对于现场计算的坐标，能否迅速的得出结果也会影响全站仪的使用效率，所以准确、快速的坐标计算也是全站仪使用中的关键一环。

坐标的计算涉及到大量的数据和公式，计算时极易出错。

测量中使用最多、计算最为复杂的是公路中桩、边桩坐标和方位角，其他的施工测量都是以此作为参照，经过简单运算即可得结果。

现测量员普遍采用可编程计算器帮助计算，使用前需根据不同的计算器特性输入程序，计算时根据不同的路段选择不同的程序输入参数，逐个得到坐标或方位角，还得反复校核。

这对于大批量计算来说是一个不小的工程。

现在，电脑在施工单位已得到使用普及，在工程量及数测量数据处理过程中，Office中EXCEL 经常是测量技术人员利用的工具。

本人根据本人从2002年至2005年的利用电脑处理测量资料的经验结合EXCEL的强大功能，总结出了用电脑计算公路中桩、左侧、右侧坐标的可行方法，并利用EXCEL 的逻辑语句编制了一个小的应用程序。

希望能把测量人员从重复性的劳动中解脱出来。

二、工作原理1.应用程序的目标上文已讲到施工测量中使用最多、计算最为复杂的是公路中线逐点坐标和切线方位角，既中桩的X值、Y值。

EXCEL在桩基工程测量内业计算工作中的应用[摘要] 城际铁路工程设计标准高，桥梁多，线下工程测量任务重，需计算大量的坐标资料，计算过程具有统一、复杂、单纯性。

对此，结合现场工程实际，利用Excel的强大处理数据功能来计算坐标，即节省了工作时间，又提高了工作质量。

[关键词] 工程计算坐标城际铁路的发展，大多使用了高速铁路的标准，设计时速高，施工质量要求高，平顺性要求高，因此，测量工作显得尤为重要，而在施工伊始，桩基工程为先行工程，这就需要工程技术人员放样测量，计算出桩基坐标。

坐标的计算速度和质量决定了施工现场的进度和质量。

计算坐标方法有很多，手算的工作量大且容易出错；CASIO计算器有局限性，一次只能计算几个点，不能快速、大规模的计算；AutoCAD可以量取坐标，但需要事先画图且需要一定专业水平。

下面以青荣城际铁路一处跨既有线主桥的桩基坐标计算为例，介绍利用EXCEL 在桩基坐标中的计算应用。

一、实例情况本桥基础与正线斜交，与既有铁路平行，44号墩如下图所示二、计算与应用1.输入曲线要素在上表粉红色区域中填入相关数据，以上数据设计资料中均已给出，角度以十进制输入。

2.计算四大桩ZH点桩号D6=$D$2+$L$3；HY点桩号D7=$D$6+$H$4；YH点桩号D8=$D$7+($D$4-$H$4*2)；HZ点桩号D9=$D$8+$H$4；ZH点X坐标H6=$H$2+$L$3*COS(($P$2+180)/180*PI())；HY点X坐标H7=$H$6+($H$4-$H$4 /(90*$H$3 *$H$4 ))*COS(ABS(($P$2+30*$H$4 /(PI()*$H$3*$H$4))/18 0*PI()))；YH点X坐标H8=$H$7+(SIN(90*($D$8-$D$7)/PI()/$H$3/180*PI())*(2*$H$3)*COS(ABS(($P$7+90*($D$8-$D$7)/PI ()/$ H$3)/180*PI())))；HZ点坐标H9=$H$2+$L$3* COS(($P$2+$D$3)/180*PI())；ZH点Y坐标L6=$L$2+$L$3*SIN(($P$2+180)/180*PI())；HY点Y坐标L7=$L$6+($H$4-$H$4 /(90*$H$3 *$H$4 ))*SIN(ABS(($P$2+30*$H$4 /(PI()*$H$3*$H$ 4))/180*PI()))；YH点Y坐标L8= $L$7+(SIN(90*($D$8-$D$7)/PI()/$H$3/180*PI()) *(2*$H$3)*SIN(ABS(($P$7+90*($D$8-$D$7)/PI()/$H$3)/180*PI())))；HZ点坐标L9=$L$2+$L$3*SIN(($P$2+$D$3)/180*PI())；ZH点方位角P6=$P$2；HY点方位角P7=$P$6+90*$H$4 /PI()/$H$3/$H$4；YH点方位角P8=$P$7+ 180*($D$8-$D$7)/PI()/$H$3；HZ点方位角P9=$P$2+$D$3。

利用EXCE L 进行道路中边线逐桩坐标计算张宝利1,薛志勤2(1.西北农林科技大学资源与环境学院,陕西杨凌　712100;2.华南农业大学信息与软件学院,广州　510642)摘要:利用坐标增量的基本思想,将道路曲线坐标的计算归结为3种最基本的形式———直线段、圆曲线段、缓和曲线段,直接计算出中、边线的测量坐标,省去了切线支距法坐标向测量坐标的转换过程,简化了计算思路,节约了计算量。

并利用办公软件Excel 的强大计算功能进行实例计算。

关键词:Excel;道路边线;道路中线;逐桩坐标;圆曲线;缓和曲线中图分类号:U452.1文献标志码:B文章编号:1672-741X (2008)03-0302-03Calcul ati on of Coordi n ates of St akes on Centerli n e and Si deli n e Usi n g ExcelZHANG Baoli 1,XUE Zhiqin2(1.College of R esou rces and Environm en t,N orthw est A &F U niversity,Yangling 712100,Shanxi,Ch ina;2.College of Infor m ation and S oft w are,S outh China A gricultural U n iversity,Guangzhou 510642,China )Abstract:The coordinate calculati on of the high way curves is divided int o three basic types,i .e .,straight secti on,cir 2cular curve and transiti on curve,on basis of the coordinate incre ment p rinci p le .W ithout coordinate transf or mati on,the survey coordinates of the stakes on the alignment of the centerline and sideline are directly worked out,which si m p lifies the calculati on p rinci p le and reduces the calculati on quantity .Further more,coordinate calculati on is made f or p r oject cases by using the str ong calculati on functi ons of Excel .Key words:Excel;high way sideline;highway centerline;coordinates of stakes;circular curve;transiti on curve不论是在铁路还是公路的设计和建设中都不可避免地遇到大量的曲线计算。