Excel中巧用里程桩号
用autocad和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表，按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。
184191利用excel表格计算线路中边桩坐标1
青工“五小”成果申报表单位名称中铁十三局集团三公司松阳项目部申报项目名称利用EXCEL表格计算线路中边桩坐标完成时间2003.5基本情况说明利用EXCEL表格函数功能，大批量的计算线路中边桩坐标，解决计算器手工计算速度慢，软件出资料单调的问题。
经济效益社会效益可以提高测量工程师内业工作效率，解决专业软件收费高、操做过程繁琐。
从整体上提高测量资料的系统性和完整性。
作者情况姓名性别出生年月工作时间学历职务贾换新男1977.05.26 2000.7 本科助工于春生男1978.01.07 2000.7 大专助工公司团委意见科技部门意见局评审委员会意见利用EXCEL表格计算线路中边桩坐标三公司七分公司松阳项目部贾换新于春生高速公路施工中，桥梁、隧道施工以及路沿石施工时对测量要求相当严格，要求总体宽度误差在1cm以内。
这就要求测量工程师必须把线路边桩都计算出来，每隔10米（曲线段）或者20米（直线段）放样线路边桩，以便指导施工。
如果采用常规的计算器计算，不仅繁琐、费力而且容易出现差错。
本人在计算中边桩坐标时，试着利用EXCEL表格功能，编辑函数大批量计算线路中边桩坐标，达到了高效、准确的目的。
由于直线部分相对简单，复曲线又特别繁琐。
现就圆曲线举例计算如下：例：在浙江省龙丽一级公路施工中，左线圆曲线起点里程为K86+966.6，曲线半径为1500m，曲线左偏，起始方位角为147°43 ′58.2″，线路中心和隧道中心偏差15cm。
计算隧道中心线和衬砌边线（半径5.1m）。
A B C D E F1中心里程隧道中心坐标右边桩坐标备注2 X Y X Y3 86963.42 3145329.890 454369.355 -- -- 圆曲线起点4 873675 873806 873907 874001.在B4方格中输入：=$B$3+3000*SIN((A4-$A$3)/3000)*COS(2.5784244-(A4-$A$3)/3 000)+0.15*COS(4.149220679-2*(A4-$A$3)/3000)按回车键确认即可以计算出该里程隧道中心线X轴坐标。
Excel中巧用里程桩号
Excel中巧用里程桩号
本成果改变了通常在Excel中输入里程桩号时，需分别输入数字和字母的方法。
实现了里程桩号在Excel中直接式的数字输入（不需要输入公里桩代表字母，如K、DK、RK、LK等），以及里程桩号间的逻辑运算。
简化了里程桩号输入的繁琐性、节约了工作时间、提高了工作效率。
为工程中里程桩的输入及计算提供了极大的方便。
通常里程桩号输入采用数字、字母分别输入的方式，输入较繁琐，同时不能实现桩号间的简单逻辑计算。
如下图：
便捷输入法操作步骤如下：（以输入DK87+878.00为例）
1、选定单元格C8，单击右键“单元格格式”，选择“数字”。
2、在选择“数字”中，选择“分类”中“自定义”项。
3、选择“自定义”后，在“类型”中输入：!DK00+000.00，单击确定。
4、在选定单元格C8中输入87878即可。
此时C8单元格显示DK87+878.00。
5、用上述1～4步骤，将D8单元格设置成C8单元格格式。
或者用格式刷选中C8单元格，然后用格式刷刷D8单元格。
6、在D8单元格中输入87854，显示DK87+854.00。
7、此时，C8单元格与D8单元格可进行计算。
如C8-D8，可在E8单元格内输入=C8-D8，则在E8中显示结果24.00。
Excel在公路线路坐标计算中的应用
l 9/
(
3
456R
4l
4 0
)
-
l
13/
(
599
040R
6l
6 0
)
( 1)
y1 = l3/ ( 6Rl 0) - l 7/ ( 336R 3l 03)
+ l 11/ ( 42 240R5l 05)
( 2)
m=
l0-
l
3 0
/
(
40R
2)
+
l 05/ ( 3 456R 4) -
l
7 0
/
(
599
040R 6) - R sin( l 0/ 2R )
角
左侧边桩 坐标增量
xy
KL
左侧边 桩坐标
XY
2 A2
D2 E2 F2
3
4
5
第二行输入 HY 点对应的里程A 2、到 HY 点的线 路中线方位角 D2 及 H Y 点坐标( E2, F2) , C 列 C3 = B3/ 2R , 其他计算同前面中桩、边桩计算。
应用 Excel 计算时, 由于 Excel 表格能够满足中桩 及左右边桩一次计算需要, 计算时可一次完成。在计 算熟练后, 可找出一些技巧, 由于本文篇幅关系, 不在 多述。
2. 2 曲线段计算
( 1) 中桩坐标计算 根据曲线段坐标计算思路, 应用 Excel 生成表 3。
表 3 曲线段中桩坐标计算
AB CD E F
G
H I JK
单曲线坐
中线坐标
1
里程
里程 差
标增量
弦长
反正 切值
线路中 线方位角
增量
xy
Excel电子表格在公路-铁路工程缓和曲线坐标计算中的应用
3、鼠标选中表格的第二栏(B列)中39820一行，在表头上方的编辑栏内先输入“=”号，
然后输入X坐标的计算公式（公式1、公式2），该公式显示在表头的计算栏内，按回车键，电脑将进行自动计算，坐标计算结果显示在对应的表格里；同理在对应的第三栏（C列）输入Y坐标的计算公式，按回车键，坐标计算结果会自动显示在Y栏对应的表格里，求得的X值和Y值即为K39+820X坐标计算公式在Excel表格编辑栏显示格式如下：
=3770069.532+SQRT(((A6-39815.899)-(A6-39815.899)_/(40*615_*174.293_)+(A6-39815.899)/(3456*615_*174.293_)-(A6-39815.899)
4、将鼠标分别放在k39+820所在行对应的X、Y坐标栏的右下角，当出现“+”号时，按住鼠标左键往下拖，各桩号的坐标成果就会自动显示在对应的X、Y栏内。
输入公式时一定要注意，角度要换算成弧度,计算成果要和图纸上给出的已知点坐标进行比较，看看是否和图纸成果一致，确保正确无误后，可以根据自己的需要设计出不同形式的输出表格，打印或者传输到全站仪内存中，作为施工放样资料进行工程定位和施工过程控制。
EXCEL进行中桩坐标、高程计算
用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。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
“五小”成果申报表
Excel中巧用里程桩号
沈丹项目方向春、孟蕾
本成果改变了通常在Excel中输入里程桩号时，需分别输入数字和字母的方法。
实现了里程桩号在Excel中直接式的数字输入（不需要输入公里桩代表字母，如K、DK、RK、LK等），以及里程桩号间的逻辑运算。
简化了里程桩号输入的繁琐性、节约了工作时间、提高了工作效率。
为工程中里程桩的输入及计算提供了极大的方便。
通常里程桩号输入采用数字、字母分别输入的方式，输入较繁琐，同时不能实现桩号间的简单逻辑计算。
如下图：
便捷输入法操作步骤如下：（以输入DK87+878.00为例）
1、选定单元格C8，单击右键“单元格格式”，选择“数字”。
2、在选择“数字”中，选择“分类”中“自定义”项。
3、选择“自定义”后，在“类型”中输入：!DK00+000.00，单击确定。
4、在选定单元格C8中输入87878即可。
此时C8单元格显示DK87+878.00。
5、用上述1～4步骤，将D8单元格设置成C8单元格格式。
或者用格式刷选中C8单元格，然后用格式刷刷D8单元格。
6、在D8单元格中输入87854，显示DK87+854.00。
7、此时，C8单元格与D8单元格可进行计算。
如C8-D8，可在E8单元格内输入=C8-D8，则在E8中显示结果24.00。