计算公路坐标的表格程序
小白自学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”表示。
怎样计算高速公路路线坐标及高程
一个excle模板的制作在当今社会，eｘcle的使用已经是越来越来频繁了,几乎涉及所有的行业,路桥施工也不例外。
我在某路桥公司曾经负责过某项目部的测量工作。
大家都知道，测量最主要的就是计算了,如坐标、高程、横坡度等。
我现在给大家推荐一款我自己编制的关于测量计算的exｃel模板.首先我会跟大家介绍一下模板的作用,然后再一一讲解此模板的制作过程.首先给大家看一下此模板的界面如下：也许大家咋一看，切~ 这算啥，我也会做这张表格，实在是太简单了．不错,如果仅仅是靠手动输入这样子的数字,也许只要懂一点点eｘcｌｅ的人都会制作出这张表格吧。
不过,这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。
也许这样讲大家还不是很清楚,我继续给大家截个图,看看它里面的公式是什么。
大家注意到上面的公式了吗,并不是仅仅是输入数字就完事的，它是一个自定义函数zb ｘ(）,那么后面的都是一样吗？完全正确,后面的都是自定义函数,它们分别是zby（）、sqx(）、hpｚ()、hpｙ（)。
也许大家会问,恩，是不错,但是有什么用呢？那让我先给大家简述一下这个自定义函数的用法。
竟然是一个函数,那么它就必须要有一个自变量，这几个函数的自变量又是什么呢?其实这个模板里面所有函数的自变量只有一个，就是桩号。
什么意思?就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度.假设我们要K３8+０00～K38+200段落内每隔2０M一个断面所有点的坐标、中桩高程、以及左右横坡。
我就用这个模板给大家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。
先在桩号那一列把K3８+000～K38+200输入进去,可不要真的把字母“K”和加号“+”给输进去,只用输入纯数字就行了，否则计算会出错,之所以在模板里显示的是那样子,只不过是自定义的单元格式而已。
第二步剩下的仅仅就是拖动公式了，后面的都是公式,所以可以一起拖下来，先选定后面的所有单元格,然后向下直接拖动至最后,那么你需要的数据就全部出来了。
EXCEL电子表格在公路测量施工中的应用——海滨大道路基、桥梁中桩坐标计算及放样
为ｉ 点
求 出 ｉ 的路 线 坐 标 后 ，根 据 ｏ 在 线 路 坐 标 系 中 的 方 点 轴 位角 Ｔ 和 Ｚ 。 Ｙ点 的坐 标 对 、ｙ进 行 平 移 、旋 转 ， 即 ： ）ｉＸ ＋ ｉ ｏ Ｔ ＋ｙ ×ｓｎ ０ （ 转取 上 面 符号 ） ； （ 。 ｘ Ｘｃ ｓ ｏ ｉ ｉＴ 右 ＝ Ｙ＝ ｏｘ ｉＴ ±ｙ ×ｃ ｓ ０ （ 转 取 下 面符 号 ） 。 ｉＹ ＋ ｉ ｓｎ ｏ Ｘ ｉ ｏｔ 左
徐 刚 ， 王 继 刚
（ 中交 一航 局 第 一 工 程 有 限 公 司 ， 天 津 ３ ０ ５ ０ ４ ６）
摘
要：以海滨大道路基 、桥梁施工为范例 ，通过计算机的应用简化施 工放样计 算的方法 。
文献 标 识 码 ：Ａ 文章 编 号 ： １０ — ９ ３ （ ０ ２ ４ ０ ２— ２ ０ ６ ７ ７ ２ １ ）０ — ２ ３ ０ 方 法 二 ：用 积 分 坐 标 方 程直 接 求 圆 曲线 上 任 意 ｉ点 的 线 路坐标 ，即：
ｘ＝ｉ １／ Ｒ ）＋ （ １ ０ ｉｌ ｉ ６ 。 一（３ １ ／ Ｒ ）； ｉ ２
Ｙ＝ （２ ２ ｉ １／ Ｒ）一 （ ２ Ｒ ） ＋ （ｉ ７ ０ ５ ； ｉ １／ ４ ３ ｉ １／ ２ Ｒ ） ６
坐标 系下 的坐标 ，转换公式与 圆曲线类 同。
缓 和 曲线 上任 意 一 点 ｉ 的切 线 方 位 角 可 用 下 式 求 得 ： Ｔ＝ ０ （ ／ ＲＬ ） × （ ８ ） ， ｉＴ ＋ １ ２ ｏ ２ １ Ｏ／
式中：， ＿ 特定坐标系 ｘ轴 的方 位角。 ｒ＿ ０一
同 上 ，可 根 据 Ｔ 求 得 任 意 一 点 ｉ的法 线 方 向上 的 距 离 点 ｉ 的坐 标 。
fx9750卡西欧9750公路线元法计算程序
新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD程序和ZA程序中的数据部分即可,其余不需作任何的改动。
2.因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S 程序对数据按桩号进行排序，在程序中通过调用GG程序来进行内插计算，SG=-1得左标高，SG=1得右标高（若SG输入0,则可进行一般的线性内插计算）。
3.在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。
4．相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z[10]，N中，X坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。
4.程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算，Z[2]＝0为线元法，否则为交点法。
一、PQX程序：计算中边桩坐标及近似的桩号反算，在运行模式直接调用。
① Z*10+→S:”XO”?S:S→Z*10+:”YO”?N:Prog “AU”② Lbl 2:?L:Prog “Z”:Prog “E”:1n→O:90→S③ Lbl 4:”JJ”?S:”YC”?O:SO=0 =>Goto 2‘原来lbl 后没有标号４的。
④ O=-1 =>Goto 6⑤ “X,Y”:R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog“D”:Goto 4⑥ Lbl 6:Z*7+→X:Z*8+→Y:”XF”?X:”YF”?Y:XY=0 =>Goto 4⑦ X→Z*7+:Y→Z*8+:Pol(X-R,Y-U+1p):Z+S-J→J:”YC,DL,L”:ICos(J)→O▲ISin(J)→I▲L+I▲Goto 6二、P程序：在程序中提供一个自由运算的模式。
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电子表格在高速公路曲线坐标计算中的应用
以上采用左偏曲线进行公式推导 ， 在计算右偏曲线时只需将单 ｙ） （Ｊ ） 。故通过 坐标 平移 与旋转 曲线上 任一点 坐标 （ 元格中的“ ＝ ｏ １ｏ 一 变为“ ＝ ｏ １ｏ ＋ ， ０／ 一 。 ） ， ｏ Ｏ ＋ ８ 。 ” ｏ Ｏ ＋ ８ 。 ”其他参数不变。 ｙ为： ＋ ） ＝ ０ Ｐ木ｃｓ ＝ ｏ ｏ０ ＋２术Ｒ木ｓ ａ幸ｃｓ ， Ｙ Ｐ木ｓ ０＝ ｉ ｎ ｏ０ Ｙ＝ ０＋ ｉ ｎ
Ｐ （ ／８ 。 。 Ｉ ） １ｏ ）
ｌ ， ， 其垂线为 轴建 立 右手 坐标 系 ， ： 轴 则 曲线上 任一 点 坐标 为 ２ ３ 统 一计算格 式的 形成 ． （）， ，） 任一点到曲头曲线长为 己 其弦长为 ｐ 弦切角为 ｄ 根据平 ， ， ， ， 圆曲线半径 ， 其极坐标为 （ ｏ 。 ｐ， ） ｔ
《 民防火公约》 向居 民家庭发放 消防宣 传材料 ， 家挨户 对居 ［ ］ 张治节 ， 居 ， 挨 ３ 同天成． 洛川县金 苹果 小区消防设计 浅议 ［ ］ 山西 Ｊ． 民电器设备 的使用 ， 炉灶 的安装 使用进 行 防火 检查 和安全 提示 ， 建 筑 ，０ ９ ３ （ ） １７１８ ２０ ，５ ２ ：９ — ． ９
Ｐ（／８ 。。 Ｉ ） １０ ）
为统一 的极坐标系 。
１２ 平 曲线 坐标 系的建立 ．
建立 以曲头为原点坐标 （ ， ） ， 头到 交点连 线正方 向为 ０Ｏ 点 曲
（ ） ＝ ＋ ｓ （ Ｐ （ ／８ 。 ： 户￥ ｉ ０ ／ ） １０ ）＝ 霈Ｄ第２＋ ｉ ｓ （ ｎ ，｝ ｉ ｎ
ｔ ｅ ｆｒ — ｇ ｔｎｇ ｓ ｆｔ ｆｕ ｂ ｎ ｒｓｄｅ ｔａ ｕ ｉ ｇ ｅ ｔｔｓ， ａ ａｙ ｅ ｈ ｒ ｂ ｅ ｎｔ ｅ ｆ ｅ ｆ ｈ ｉ ｇ ｓ ｆｔ ｎ ｇ ｍｅ ｔ ｎ ｔ ｅ ｅ ｔｔｓ ｎ ｏ ｎｓ ｈ ｅｆ ｈ ｉ ａｅｙ ｏ ｒ ａ ｅ ｉ ｎ ｉｌｈｏ ｓｎ ｓａ ｅ ｉ ｉ ｎ ｌｚ ｓ ｅ ｐ ｏ ｌ ｍｓｉ ｈ ｒ — ｇ ｔ ａｅｙ ｍａ ａ ｅ ｎ ｈ ｓ ｅ ，ａ ｄ ｐ ｉ ｔ ｔ ｉ ｉ ｎ ｉ ａ
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自动计算曲线坐标．给大家研究研究．欢迎在此基础上开发增加新模块。
道路坐标计算excel
道路坐标计算excel道路坐标计算是一种常见的数据处理方法，用于计算道路上的各个位置的经纬度坐标。
这种计算方法可以帮助我们确定道路上的具体位置，方便导航和定位等应用。
在实际的道路坐标计算中，常用的方法是使用Excel进行处理。
Excel是一款功能强大的电子表格软件，可以方便地进行数据处理和计算。
下面将介绍如何使用Excel进行道路坐标计算。
首先，我们需要准备好待处理的数据。
在Excel中，可以将道路划分为多个路段，并为每个路段标注起点和终点的位置。
这些位置可以用经度和纬度来表示。
接下来，我们可以使用Excel中的函数进行坐标计算。
常用的函数包括经纬度转换函数和距离计算函数。
1. 经纬度转换函数在进行坐标计算时，经纬度间的转换是非常重要的一步。
Excel提供了很多函数来进行经纬度转换，例如DEGREES、RADIANS、SIN、COS、TAN等函数。
通过这些函数的组合，我们可以将经纬度导航到计算坐标。
2. 距离计算函数除了经纬度转换，计算两点之间的距离也是道路坐标计算的重要一环。
Excel提供了很多函数来计算两点之间的距离，例如ACOS、COS、SIN、SQRT等函数。
通过这些函数的组合，我们可以计算出两点之间的距离。
在进行坐标计算之前，我们需要对数据进行预处理。
这包括将经纬度数据转换为数字格式，并确定坐标轴的单位。
在Excel 中，我们可以使用“格式单元格”功能，将经纬度数据转换为数字格式，以便进行后续计算。
接下来，我们可以使用Excel的函数来进行道路坐标计算。
以计算两点之间的距离为例，可以使用类似以下的公式：=ACOS(COS(RADIANS(90-纬度1))*COS(RADIANS(90-纬度2))+SIN(RADIANS(90-纬度1))*SIN(RADIANS(90-纬度2))*COS(RADIANS(经度1-经度2)))*6371在这个公式中，纬度和经度分别用纬度1、经度1、纬度2、经度2来表示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
F
98.2744815
转角
98.2744261 输入
Q
L
0
B
0
R
不输入 输入 输入 不输入 -不输入 -输入 输入 不输入 -不输入 -输入 输入 不输入 不输入 输入 输入 不输入 不输入 -输入 输入 不输入 不输入 输入 输入 不输入 不输入 输入 输入 输入 输入 输入 输入
108.2994175
切线方位角
90.2099235 83.7641483 83.7641483 86.6289372 105.4971371 108.3619260 108.3619260 106.7504823 85.1136476 83.5022038 83.5022038 86.3669928 128.7010260 131.5658149 131.5658149 128.7010260 99.1442150 96.2794260 96.2794260 89.8336509 47.9807568 41.5349816 41.5349816 47.9807568 78.2089287 84.6547039 输入
序号 交点号
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 QD ZH HY JD12 YH HZ ZH HY JD13 YH HZ ZH HY JD14 YH HZ ZH HY JD15 YH HZ ZH HY JD16 YH HZ ZH HY JD17 YH HZ ZH HY JD18
X
输入 4436839.847 4436852.664 4436994.449 4437005.492 输入 4436963.941 4436928.046 4436447.949 4436420.400 输入 4436358.320 4436367.666 4436701.463 4436713.052 输入 4436451.967 4436373.865 4436202.860 4436124.759 输入 4435876.515 4435861.405 4435610.682 4435597.728 输入 4435803.382 4435933.475 4436223.687 4436353.780 输入 4436542.564 4436566.032 输入
108.2994261 输入
89.3043884
89.3044261 输入
56.2681055
56.2680372 输入
80.3230892
80.3230372 输入
49.8870599
49.8869261 输入
186.5199438
186.5197039
序号 交点号
69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 JD25 YH HZ ZH HY JD26 YH HZ ZH HY JD27 YH HZ ZH HY JD28 YH HZ ZH HY JD29 YH HZ ZH HY JD30 YH HZ ZH HY JD31 YH HZ ZD
-输入 输入
不输入 -不输入
输入
输入
输入
不输入 -不输入
输入
输入
输入
不输入 -不输入
输入
-输入 输入
不输入 -不输入
输入
-输入 输入
不输入 不输入
输入
输入
输入
不输入 不输入
输入
-输入 输入
不输入
输入
序号 交点号
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 YH HZ ZH HY JD19 YH HZ ZH HY JD20 YH HZ ZH HY JD21 YH HZ ZH HY JD22 YH HZ ZH HY JD23 YH HZ ZH HY JD24 YH HZ ZH HY
F
95.5380372
转角
Q
L
0
B
0
R
输入 68.0979885 68.0980372 输入 87.8995171 87.8997038 输入 110.1143200 110.1144261 输入 95.3574647 95.3574816 输入 78.1197563 78.1197038 输入 106.6600153 106.6599816 输入
X
4439595.425 4439588.092 4439427.438 4439420.105 输入 4439311.071 4439295.504 4438790.152 4438752.704 输入 4438732.039 4438730.096 4438756.882 4438761.980 输入 4438859.315 4438928.529 4439650.818 4439700.090 输入 4439914.043 4439930.002 4440070.260 4440092.397 输入 4440308.537 4440384.304 4440833.849 4440944.514 输入 4440277.660 4440098.284 4437820.234 4437640.858
切线方位角
95.5380372 95.5380372 95.0605723 68.7855865 68.0980372 68.0980372 68.7855865 87.2121545 87.8997038 87.8997038 89.5111476 108.5029823 110.1144261 110.1144261 109.4268767 96.0450310 95.3574816 95.3574816 94.3548055 79.1223800 78.1197038 78.1197038 79.7311476 105.0485378 106.6599816 106.6599816 106.1825168
Y
输入 459865.384 459915.164 输入 461275.618 461322.061 462443.168 462498.926 输入 463281.973 463341.923 464610.970 464700.933 输入 465222.351 465307.145 467316.595 467373.017 输入 467941.241 468000.955 472588.507 472658.237 输入 473187.526 473256.109 473792.126 473880.365 输入 474581.014 474667.472 479113.330 479161.270 输入
Y
输入 491640.482 491819.923 493117.560 493237.038 输入 493628.234 493742.726 495189.140 495274.817 输入 495872.237 495961.748 498892.500 499011.926 输入 499838.271 499929.359 500122.198 500213.286 输入 500772.884 500891.916 503170.423 503349.855 输入 503883.042 504007.298 504264.374 504388.629 输入 504760.656 504939.017 输入
X
输入 4441443.118 4441438.431 输入 4441634.039 4441652.561 4442103.289 4442125.447 输入 4442291.908 4442294.347 4442340.892 4442343.347 输入 4442260.699 4442230.543 4441494.619 4441474.211 输入 4441345.782 4441339.941 4440909.725 4440903.596 输入 4440933.757 4440947.767 4441060.531 4441078.232 输入 4441048.990 4441023.998 4439693.558 4439679.357 输入
桩号
DK81+044.880 DK81+094.880 DK82+211.190 DK82+261.190 DK82+736.090 DK82+786.090 DK84+392.130 DK84+522.130 DK84+657.350 DK84+787.350 DK86+993.690 DK87+123.690 DK87+454.960 DK87+584.960 DK88+872.810 DK88+962.810 DK89+544.550 DK89+634.550 DK90+468.960 DK90+588.960 DK91+106.410 DK91+226.410 DK91+924.140 DK92+104.140 DK93+831.890 DK94+011.890 DK96+304.770 DK96+484.770
桩号
DK97+739.510 DK97+919.510 DK99+224.870 DK99+344.870 DK99+740.050 DK99+860.050 DK101+384.060 DK101+474.060 DK102+078.280 DK102+168.280 DK105+117.980 DK105+237.980 DK106+124.620 DK106+244.620 DK106+502.360 DK106+622.360 DK107+241.400 DK107+361.400 DK109+653.660 DK109+833.660 DK110+418.040 DK110+598.040 DK110+985.740 DK111+165.740 DK111+587.810 DK111+767.810 输入