javascript 计算两个坐标的距离米_EXCEL VBA曲线坐标计算程序在工程测量中的应用...-CSDN博客

在具有曲线段的公路，铁路线形中，如何计算中桩、边桩坐标，计算竖曲线高程等是一个繁琐的过程，需要进行大量的、复杂的计算，且容易出错。为此，就需要借用相关软件来提高速度和准确性，而excel vba计算程序作为一款常用的计算软件，在计算过程中起到了举足轻重的作用，方便快捷，准确性高。且计算程序计算内容涵盖全面，包括平曲线坐标计算、竖曲线高程计算、超高及加宽、隧道超欠挖、控制网平差等。而在现实中应用最多的，与测量息息相关的就是坐标和标高的计算。本论文不阐述该计算程序的具体操作，而是结合徽州大道实际，通过计算相关参数等遇到的问题，具体分析、解答相关问题，起到触类旁通、举一反三的效果。

关键词：竖曲线；过渡墩坐标；斜交；

1 软件操作步骤

打开excel vba计算程序后，第一步需要启用宏。宏启用完成后，然后就是软件的具体操作。流程图如下：

图1 软件操作流程图

以计算坐标为例，操作界面如下：先点击“交点法坐标”，再点击“交点法要素”。

图2 功能选项卡界面

根据设计院提供的曲线要素表，输入相应参数(交点号、里程、交点坐标、半径等)，输入完成后，点击右上角“点击进入直曲表”。

图3 曲线要素表界面

此时，软件会自动跳出相应界面，再点击左上角“生成要素”按钮，软件会自动计算相应的曲线要素，在确认软件计算的曲线要素和设计院的完全无误后，就可以进行坐标正算和反算了。

图4 直曲表界面

计算高程和计算坐标操作界面基本一致，这里就不再具体阐述了。至此，软件计算的准备工作已经完成，剩下需要做的就是根据图纸，输入相应的参数，点击计算，就可以计算出结果了。

2 计算问题

在确保软件计算的曲线要素和设计院计算的无误后，即曲线要素完全正确的情况下，就可以进行相应的坐标计算了。关于计算问题，主要是坐标方面的问题，因为标高计算较为简单，就算是竖曲线的标高计算，也只是分为凹、凸曲线，线型就是简单的抛物线，容易理解，计算简单。而平面方面的问题主要包括：标准段正交，过渡墩坐标计算，斜交坐标计算，坐标反算等，相对复杂一点。以下进行分别讲解描述。

2.1 标准段正交计算

标准段正交计算是最普遍、最常见、也是最简单的一种计算，抓住里程、偏距两大核心要素，确保里程、偏距输入正确，坐标计算就不会出错。标准段的里程直接根据图纸查找就行了。以徽州大道盛同路菱形立交6#墩为例，计算6#墩的6个桩基中心坐标。(6#墩位于标准段上，里程为K21+209，离线路中心最近的一根桩距离为2.525m,即偏距为2.525m，左右幅桩中心距离为5.6m，左右幅以线路为中心对称)示意图如下所示：

图6 6#墩桥墩构造图

因此，在坐标参数表中输入相应的偏距和里程参数后，如下所示。

图7 坐标计算表界面

输入完成后，点击右上角的“手动计算中桩、手动计算边桩”，就完成了坐标计算。计算结果如下所示。也可以让软件自动计算相应的坐标，如生成中线等，则点击“自动生成坐标”，需根据具体的情况，选择相应的计算类型，需要自己灵活运用。

此时，再根据设计坐标对比，发现无误后，就可以进行后续大量的坐标计算了。计算完成后，在进行相应的排版，编制坐标计算成果书。至此，使用excel vba曲线坐标计算程序进行坐标计算的过程已经演示结束。接下来，再根据不同的类型选择输入相应的参数，就可以完成各种类型的坐标的计算了。

2.2 过渡墩坐标计算

过渡墩坐标计算主要的问题就是确认过渡墩桩基中心里程。通常需要进行里程的转换。因为设计院给出的里程通常是伸缩缝中心里程，而我们需要做的就是将伸缩缝中心里程装换为桩基中心里程，转换关系需要通过侧面图去寻找。以徽州大道杭埠河主桥1#墩为例。

通过侧面图发现，1#墩伸缩缝中心里程为k17+853,桥墩中心线在伸缩缝中心线大里程侧17cm处，故桥墩中心线里程为k17+853.17，再由桥墩中心线推测出前后两排桩的中心里程为k17+850.67、k17+855.67。再根据过渡墩构造图确认出偏距后，在坐标计算表中输入里程、偏距后，就可以计算出前后两排桩的中心坐标。(参数输入如下所示，在点击手动计算中、边桩)

总结：过渡墩坐标计算主要涉及到里程转换问题，此类计算主要为桥台、主墩计算、也包括一些偏心计算。

2.3 斜交坐标计算

斜交坐标计算主要是角度不同，正交为90°，斜交里程一般容易确认，而确认斜交的角度，这个是重难点问题，经常容易弄反。以徽州大道连接线GK2+234中桥为例，该桥与线路中心线斜交，详见平面图。

由上图可以发现，该中桥与线路斜交40°，该40°其实是该线路里程法向方向沿着顺时针旋转40°，所以斜交角度就是90°加上40°，在坐标计算表中，输入里程和偏距后，将角度改成130°，(注意左右幅计算角度都应输入130°，左右幅输入角度应一致)就可以计算桩基中心坐标。(参数输入表如下所示，以2#墩桩基坐标为例)

总结：斜交坐标的计算最主要的就是捋顺角度的关系，如果不太确定，可以将VBA计算出的坐标展点导入CAD里面，通过CAD量取与中线的角度来进一步确认坐标计算的正确性。

2.4 坐标反算

计算坐标是坐标正算，即已知里程、偏距计算出坐标；而反算是已知坐标，计算出里程和偏距。此类计算主要适用于设计院没有给出准确的偏距，(因为里程是存在取值范围的，存在正交、斜交两种可能性)。有时候，我们需要通过反算计算出偏距，来进一步确认结果。以徽州大道杭埠河引桥5#墩-10#墩为例，设计院只给出了5#墩-10#墩的通用构造图，但5#墩-10#墩的偏距却是渐变的，而设计院却没有给出准确的偏距和相应的说明，通过通用构造图计算出的坐标与设计院却不一致，经与设计院联系后，设计院回复偏距是渐变的，且坐标复核无误，仍旧没有给出准确的偏距。此时，只能通过坐标反算来计算出相应的偏距，来进一步验算结果。如下所示，在VBA 坐标计算表中点击“坐标反算”，将设计坐标输入完成后，先点击右上角“数据初始化”，然后再点击“点击坐标反算”，最后软件就会自动计算出偏距和里程。具体操作界面如下：

总结：坐标反算出的偏距可以在CAD中展点，通过量取到该里程中线的距离，来进一步验证计算的正确性，双管齐下，会更加稳妥一点。

2.5 标高计算

竖曲线线型本身就是简单的抛物线，手算都比较容易。而在VBA中的起始功能界面，点击“竖曲线高程”，在点击“竖曲线要素”，只需要输入“变坡点桩号、变坡点标高、半径”三大参数，在点击右上角“生成竖曲线要素”，就可以进入竖曲线的计算了。竖曲线的计算只需要输入任意里程的桩号，就可以计算该任意里程的标高，操作十分方便快捷。(以计算K26+000、k27+000高程为例，竖曲线计算界面如下)

3 曲线要素问题

当拿到设计图纸后，测量要做的就是核对曲线要素等问题。复核曲线要素无误后，才可以进行构筑物坐标和标高的计算，因为曲线要素的复核相对于软件按部就班的计算要复杂一点，以及排版等问题，所以就先介绍了计算。实际上这个过程是刚好相反的----即先复核在计算。而在曲线要素的复核中，总会出现一些“疑难杂症”，接下来一一讲解。

3.1 起点负里程

一般设计院给出的曲线要素表中，起点里程一般都为非负数，而对于起点里程为负数的不常见，以徽州大道连接线曲线要素表为例。对于负数的起点里程应该这么解决呢。

问题1：由上图可以发现，QD和JD1都为负里程。

如果在VBA中输入相关参数后，按照之前演示的步骤，可以计算出曲线要素，复核后与设计院的无误，但是进入到坐标正算界面后，输入相关参数，却无法计算坐标。软件会自动弹出“不在计算范围之内”。如果照搬曲线要素，按部就班的计算，就无法计算坐标，此路不通。

解决方法一：在设计院给出的逐桩坐标表中，给出了0里程的坐标，且0里程在JD1的HZ点之后，是否可以跳过QD和JD1两个负里程，将0里程作为起点里程，0里程坐标作为起始交点坐标，于是在EXCEL VBA中输入相关参数：0里程和0里程的相关坐标，再输入后续交点的相关参数(JD2、JD3、ZD)，此时软件又可以计算相关参数的坐标了，通过验算，发现软件计算的结果完全正确。具体演示步骤就不一一讲解了。通过更改起点里程和坐标的方法，软件又可以“正常”使用了。

解决方法二：如果设计院没有给出0里程的坐标，此时又该如何解决呢。既然软件无法计算负里程的坐标，可以将里程“平移”，全部装换为正里程。既然起点里程为GK0-858.107,可以将全部的交点里程加上858.107，同时坐标不变，就可以使起点里程变为0，然后在VBA参数表中输入相应参数(即所有交点坐标不变，所有里程加上858.107)，按照上文演示的步骤进行计算。唯一要注意的就是里程转换。(如要计算里程为GK0+200，在计算表中应输入GK200+858.107=GK1058.107)，要进行两次的里程转换；还有一种方法就是算出真正的里程为0的坐标，注意，此时真正的0里程应变成里程为858.107，然后按照方法一那样，输入剩余交点的坐标和里程(即JD2、JD3、ZD)。

3.2 合并竖曲线

本来，徽州大道主线作为一条线路，但是在高程上面，设计院却将它分为两段，即前7.95公里给出一条竖曲线，后3.35公里又给出一条竖曲线。且前后两段竖曲线存在重叠部分，竖曲线设计表如下：

问题：由上图可以发现两段竖曲线含有重叠部分，存在公共变坡点k25+765，但是小里程方向中(图左所示)，K25+765的前一个变坡点为k25+365，但在大里程方向中(图右所示)，k25+765的前一个变坡点却是k25+468.022。k25+765的后一个变坡点在两段竖曲线中也是如此。第一感觉设计院设计错误，在重叠范围内，公共变坡点前后的一个变坡点不是同一里程和同一高度。

解决措施：在确认设计院的竖曲线要素没有问题之后，发现公共变坡点k25+765的前后纵坡一样，半径、坡差也一样。此时，通过将前后两段的竖曲线相关参数输入完成后，计算公共部分的高程：有变坡点k25+468.022、k26+193的高程，也有非变坡点的高程但是是在公共部分范围内。发现前后两段竖曲线计算的高程均一致。此时，通过在CAD中进行高程拟合，发现两段竖曲线公共部分完全重合。由此概括，就是设计院将变坡点点位加密，如果将前后两段的竖曲线变坡点点位按照里程由小到大依次输入，就可以将两段竖曲线合并。

4 VBA软件的一些问题

总体来说，EXCEL VBA这款计算软件使用起来还是十分方便快捷的，经过一段时间的使用，发现软件有一些“小毛病”。例如在竖曲线参数输入界面中，如果以第一行开始依次输入变坡点相关参数，则软件不显示计算的第二个变坡点的曲线要素，即第二行不显示计算出的曲线要素。如果这样按部就班的计算下去，有时候可能软件无法计算相关里程的标高。解决措施就是从第二行开始依次输入变坡点相关参数，这时，软件会显示计算出的第二个变坡点的曲线要素，以上问题就迎刃而解。具体见下图。

由上图发现，相同的竖曲线参数，如从第一行开始输入，则k25+765这一行的曲线要素就不显示，在下一步的计算当中，有时候软件可能无法计算标高。如从第二行开始输入，k25+765这一行的曲线要素就会显示，也不会出现无法计算标高的情况。该问题就迎刃而解了。通过VBA对全线14.65公里的构筑物坐标计算，也发现了计算出的X坐标与设计坐标完全一样，Y坐标总是差了3个毫。因为VBA已被保护起来，无法调取计算公式查看。所以认为可能与四舍五入、系统的兼容、软件的版本有关，我使用的版本是VBA4.9，在极少数电脑当中也无法运行。这也是美中不足的地方。当然，这是一款计算十分方便、快捷的软件，功能十分强大，可以计算各种类型的坐标、任意里程的标高。这里只是讲解了最常用的两个方面。在软件计算出结果后，可以与设计成果对比、再通过手算验证一下，确保软件本身没有问题，输入的参数也没有问题，相互验证，确保万无一失。后续就可以进行大量的计算了。