EXCEL进行中桩坐标、高程计算
Excel在道路中线逐桩坐标计算中的应用
：；：竺匕¨） ，，ｉ＝Ｒ（１一ｃ０８币‘）Ｊ
（１）
式中：咖；＝ｆｆ／Ｒ
（２）
Ｚ；一桩点到ｚＹ点的曲线长，即桩点与ｚＹ点的里
ቤተ መጻሕፍቲ ባይዱ
程之差；Ｒ为圆曲线半径。
然后通过坐标变换将其转换为测量坐标五、ｙｉ，
坐标变换公式为：
：２：一＂＿儿８ｉ她ｌ
（３）
、‘
Ｅ＝ｙｚＹ＋茁ｉ ｓｉｎ仅一，，ｉ ｃｏｓ仪Ｊ
％ｌｅ４ Ｃ００ｒｄｉＩ域ｅ８ ｏｆ ｓｔａｋｅ８∞∞ｎｔｅｒＨ∞０ｆ止印脱ｎｔ ｂｅｔ’佗ｅｎ ＨＹ阻ｄ ＹＨ
ｍ
注：１．此段为带缓和曲线的圜曲线段计算（Ｋ０＋２１４．８ｌ—Ｋｏ＋２４５．７８）
２．Ｒ＝３０．００，ｆ．＝２０．００。ｑ＝３５１。１９’０１．０６。
表５ Ⅷ点至Ｈｚ点之间的中桩坐标计算
Ｔａｂｌｅ５ ＣＯＤＩｄｉ舶ｔ∞ｏｆ ８址∞鲫ｃ朗ｔｅ小ｎｅ ｏｆ ａｌｉ印ｍ即ｔ ｂｃ伽ｅ朗ＹＨ肋ｄ ＨＺ
，
牙１
一一叶 ４０尺２ｌ：Ｉ
此段为圆曲线，先按下式计算出切线支距坐标
（６）
置、Ｋ：
里程簇嚣器㈣盎裟嚣要ｏｏ 扎＝露／６她 Ｊ
式中：２ｉ为桩点到ｚＨ点的曲线长，即桩点与ｚＨ点的 然后通过坐标变换将其转换为测量坐标五、Ｋ。
‰＝凤￡呻ｉ＋ｚ．／２一Ｅ／２４０群１
ｙ；＝Ｒ（１一ｃｏｓ西；）＋ｆ２仫Ｒ Ｊ
式风１中’：．％¨一Ｒ鲁１。＋Ｐ风０一邛卜～¨”ｕ√尼～“Ｒ
第２６卷第ｌ期 ２００６年２月
艇鹭建督 ＴｈＩＩｒＩｄ Ｃｏｎｓｈｕｃｔｉ佣
２６（１）：３２—３４ Ｆｂｂ．２００６
Ｅｘｃｅｌ在道路中线逐桩坐标计算中的应用
张宝利１，薛志勤２，杨舒诚１
道路中边桩坐标计算EXCEL程
道路中边桩坐标计算EXCEL程
道路中边桩坐标计算EXCEL程是一种用于快速计算道路中边桩的相对位置及其坐标的Excel程序。
它使用一个小工具来帮助用户将边桩定义在数学坐标系（X-Y坐标系）中。
EXCEL程是一个Excel表格，用户可以在表格中输入边桩数据，并根据输入的边桩数据计算出边桩的位置和坐标。
具体而言，用户需要首先输入各个边桩的起始位置（X0, Y0）、方向（角度）和距离（L），然后点击Excel 程中的计算按钮，Excel程就会按照输入的数据计算出边桩的位置和坐标，并显示在Excel表格中。
用户可以通过Excel程来计算出边桩的位置和坐标，这有助于道路工程的施工计划等的制定。
此外，用户可以根据施工计划进行边桩安装，确保道路的安全性和可靠性。
Excel程的使用非常简单，可以帮助用户更快更准确的计算出边桩的位置和坐标。
因此，Excel程可以大大提高道路施工的效率。
Excel程还提供了一些其他的功能，比如用户可以将边桩位置和坐标可视化，以便更好的理解边桩的位置。
此
外，用户还可以利用Excel程对边桩的位置和坐标进行校验，以确保边桩的准确性。
总之，道路中边桩坐标计算EXCEL程是一款十分有用的小工具，可以大大提高道路施工的效率，保证边桩的准确性，并且可视化边桩的位置和坐标，有助于更好的理解边桩的位置。
如何利用excell进行桩号里程计算
在进行渠道纵断面设计时候，经常会遇到对已经获得的桩号进行里程计算的问题，当出现了建筑物或特殊地貌时候，往往桩号是不等距的，此时进行桩号之间里程的计算是一件非常麻烦的事情，自己也是在偶然之间发现了解决该问题的简便方法，同大家分享。
如进行纵断面设计时，F3=F2-(D3-D2)*J3，此时往往不能直接对D3和D2进行计算，如果直接计算，会显示如图2所示。
图4
图5
此时，将里程列的单元格格式设置成为数值格式，如下图所示
图6
设置之前显示格式为“0+012”，设置后就会变成“数值格式“12”，如下图所示。
图7
依次类推即可进行桩号之间里程的计算。最后归纳的主要步骤如下：
1)在输入桩号前，首先将要输入列的单元格格式设置成自定义格式中的“0+000”
2)然后直接输入数字格式的桩号即可。
图1
图2
如何设置后，就能够对桩号进行直接计算呢，可以采用如下步骤：
1)首先在输入桩号时首先对输入桩号列进行单元格格式设置，（设置成自定义“0+000”型），如图3所示，同时点击确定。
பைடு நூலகம்2)
图3
此时，输入数字后，数字格式就会自动显示为0+000的格式，接下来就可以对桩号之间进行直接计算，得到任意两个桩号之间的里程，数字显示格式为数字。如图5所示。
3)将计算列的单元格格式设置成为数值型即可。
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表格制作标高计算程序新建一个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批量反算桩号
新建一个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。
Excel电子表格在高速公路曲线坐标计算中的应用
以上采用左偏曲线进行公式推导 ， 在计算右偏曲线时只需将单 ｙ） （Ｊ ） 。故通过 坐标 平移 与旋转 曲线上 任一点 坐标 （ 元格中的“ ＝ ｏ １ｏ 一 变为“ ＝ ｏ １ｏ ＋ ， ０／ 一 。 ） ， ｏ Ｏ ＋ ８ 。 ” ｏ Ｏ ＋ ８ 。 ”其他参数不变。 ｙ为： ＋ ） ＝ ０ Ｐ木ｃｓ ＝ ｏ ｏ０ ＋２术Ｒ木ｓ ａ幸ｃｓ ， Ｙ Ｐ木ｓ ０＝ ｉ ｎ ｏ０ Ｙ＝ ０＋ ｉ ｎ
Ｐ （ ／８ 。 。 Ｉ ） １ｏ ）
ｌ ， ， 其垂线为 轴建 立 右手 坐标 系 ， ： 轴 则 曲线上 任一 点 坐标 为 ２ ３ 统 一计算格 式的 形成 ． （）， ，） 任一点到曲头曲线长为 己 其弦长为 ｐ 弦切角为 ｄ 根据平 ， ， ， ， 圆曲线半径 ， 其极坐标为 （ ｏ 。 ｐ， ） ｔ
《 民防火公约》 向居 民家庭发放 消防宣 传材料 ， 家挨户 对居 ［ ］ 张治节 ， 居 ， 挨 ３ 同天成． 洛川县金 苹果 小区消防设计 浅议 ［ ］ 山西 Ｊ． 民电器设备 的使用 ， 炉灶 的安装 使用进 行 防火 检查 和安全 提示 ， 建 筑 ，０ ９ ３ （ ） １７１８ ２０ ，５ ２ ：９ — ． ９
Ｐ（／８ 。。 Ｉ ） １０ ）
为统一 的极坐标系 。
１２ 平 曲线 坐标 系的建立 ．
建立 以曲头为原点坐标 （ ， ） ， 头到 交点连 线正方 向为 ０Ｏ 点 曲
（ ） ＝ ＋ ｓ （ Ｐ （ ／８ 。 ： 户￥ ｉ ０ ／ ） １０ ）＝ 霈Ｄ第２＋ ｉ ｓ （ ｎ ，｝ ｉ ｎ
ｔ ｅ ｆｒ — ｇ ｔｎｇ ｓ ｆｔ ｆｕ ｂ ｎ ｒｓｄｅ ｔａ ｕ ｉ ｇ ｅ ｔｔｓ， ａ ａｙ ｅ ｈ ｒ ｂ ｅ ｎｔ ｅ ｆ ｅ ｆ ｈ ｉ ｇ ｓ ｆｔ ｎ ｇ ｍｅ ｔ ｎ ｔ ｅ ｅ ｔｔｓ ｎ ｏ ｎｓ ｈ ｅｆ ｈ ｉ ａｅｙ ｏ ｒ ａ ｅ ｉ ｎ ｉｌｈｏ ｓｎ ｓａ ｅ ｉ ｉ ｎ ｌｚ ｓ ｅ ｐ ｏ ｌ ｍｓｉ ｈ ｒ — ｇ ｔ ａｅｙ ｍａ ａ ｅ ｎ ｈ ｓ ｅ ，ａ ｄ ｐ ｉ ｔ ｔ ｉ ｉ ｎ ｉ ａ
小白自学ExcelVBA道路坐标高程计算程序流程
小白自学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”表示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
用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.860
Y=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。
计算本曲线范围内的朱家畈大桥18#墩（ZJF18）中心坐标，里程K79+101，
在EXCEL表格中输入相应的表头和里程后。
其中该点对应的偏角Δ：
在G21格内输入公式：=（B21-773.787）/4500/2
Δ＝ψ/2＝0.5×L/R =0.5×(79101-78773.787)/4500 =0.036357rad
该点对应的坐标方位角β：
β＝α+Δ＝2.456774421+0.036357＝2.49313142 rad
该点对应的弦长C：
在H21格内输入公式：=2*4500*SIN（G21）
C=2RSINΔ＝2×4500×SIN0.036357=327.141m
故该点坐标为：
在C21格内输入公式=3412216.442+H21* COS（2.456774421+G21）
在D21格内输入公式=485302.725+H21* SIN（2.456774421+G21）
X=3412216.442+327.141×COS2.49313142＝3411955.706
Y=485302.725+327.141×SIN2.49313142＝485500.306 如图示：
二、竖曲线计算方法：
以第一段竖曲线（K78+190~K78+710），本段为凹曲线，半径 R＝10000m，
T=260,E=3.38,起点K78+190至交点K78+450坡度i1＝－2.95％，交点K78+450至终点K78+710坡度i2＝+2.25％；通过内差法分别求得起点、交点、终点高程为：28.345、20.675、26.525。
计算K78+560设计高程。
在EXCEL表格中输入相应的表头、坡度、里程桩号和起算点桩号、高程后
按坡度所对应高程＝20.675+（78560-78450）×（+0.0225％）＝23.150m
即：H105格内中输入公式=G105+（B105-78450）*J105
对应标高修正数＝（78710-78560）×（78710-78560）/2/10000＝1.125m
即：在I105格内输入公式=（78710-B105）^2/10000/2
所得设计高程＝23.150+1.125＝24.275m
即：在C105格内输入公式=H105+I105
其他竖曲线计算方法与算例相同。
后附计算成果书（部分）
4、结束语
在工程实际操作中，对于系统地计算各个构造物的坐标、高程尤为重要，本合同段为此专门成立了计算小组，多人结算，相互复核，并将计算结果形成成果书，保证了计算资料的系统性，正确性。