公路外业测量桩号转换工具(1.1-vba编程,自动计算)
(excelvba在道路中桩放样数据计算中的应用).北京交通大学本科论文
毕业设计（论文）中文题目：Excel-VBA在道路中桩放样数据计算中的应用学习中心（函授站）：山西交通学习中心专业：土木工程姓名：陈南江学号：14677167指导教师：张亮梅北京交通大学远程与继续教育学院2018年8月毕业设计(论文)承诺书与版权使用授权书本人所呈交的毕业论文是本人在指导教师指导下独立研究、写作的成果。
除了文中特别加以标注和致谢之处外，论文中不包含其他人已经发表或撰写过的研究成果，也不包含为获得北京交通大学或其他教育机构的学位或证书而使用过的材料。
与我一同工作的同志对本研究所做的任何贡献均已在论文中作了明确的说明并表示了谢意。
本毕业论文是本人在读期间所完成的学业的组成部分，同意学校将本论文的部分或全部内容编入有关书籍、数据库保存，并向有关学术部门和国家相关教育主管部门呈交复印件、电子文档，允许采用复制、印刷等方式将论文文本提供给读者查阅和借阅。
论文作者签名：_________________ ______年_______月______日指导教师签名：_________________ _______年_______月______日毕业设计(论文)成绩评议毕业设计(论文)任务书本任务书下达给： 2014级土木工程（公路工程管理）专业学生陈南江设计（论文）题目：Excel-VBA在道路中桩放样数据计算中的应用一、毕业设计（论文）基本内容二、基本要求三、重点研究的问题四、主要技术指标五、其他要说明的问题下达任务日期：年月日要求完成日期：年月日指导教师：开题报告题目：Excel-VBA在道路中桩放样数据计算中的应用学生姓名：陈南江学号： 14677159 年月日一、文献综述填写说明：指根据论文题目查阅参考文献，通过文献的阅读写清该课题内容的国内外研究与应用现状、基本研究方法、当前存在的问题、发展动向，进而引出开展本设计（论文）研究的内容、意义、必要性和价值等（页面大小可以根据字数多少调整）。
公路逐桩坐标计算程序
公路逐桩坐标计算程序(可以计算对称、不对称缓和曲线)Lb1 0Z=？V=？W=V+2：Fixm｛K｝Lb1 1K>Z[W+5Z+4]=>W=W+1:Goto 1⊿(判断桩号在哪个交点范围，就是该交点曲线起点至下一交点曲线起点) S=K-Z[W+5Z+3] （计算该桩号与曲线起点的距离）R=Z[W+2Z+2]：L=Z[W+3Z+2]:E=Z[W+4Z+2] （读取该交点曲线要素R、Ls1 、Ls2）Pol（Z[W]-Z[W-1],Z[W+Z+2]-Z[W+Z+1]）（计算该交点与下一交点直线方位角）J<0=>J=J+360⊿A=JPol（Z[W-1]-Z[W-2],Z[W+Z+1]-Z[W+Z]）（计算该交点与上一交点直线方位角）J<0=>J=J+360⊿C=A-J:A=J （计算偏角）W=V+2=>Goto2⊿（如果桩号在起点与第一交点曲线起点之间，则转Lb1 2 ）I=Abs（tan（c÷2））M=L÷2-L^3÷240R^2:N=E÷2-E^3÷240R^2P=L^2÷6R-L^4÷336R^3-R（1-cos（90L÷πR））Q=E^2÷6R-E^4÷336R^3-R（1-cos（90E÷πR））D=（P-Q）I÷2 : F=（P+Q+2R）I÷2M=F+M-D:Q=F+N+DN=πRAbsC÷180+（L+E）÷2X=Z[W-1]-McosAY=Z[W+Z+1]-MsinAM=Z[W-1]+Qcos（A+C）V=Z[W+Z+1]+Qsin（A+C）Q=AbsC÷CS≤L=>P=0:Goto3⊿（如果桩号在第一缓和曲线内，则转Lb1 3）S≤N-E=>S=S-L:Goto4⊿（如果桩号在圆曲线内，则转Lb1 4）S≤N=>S=N-SQ=-Q:A=A+C-180:X=M:Y=V:L=E：P=180:Goto3 ⊿（如果桩号在第二缓和曲线内，则转Lb1 3）P=A+C:S=S-N:D=M+ScosP:F=V+SsinPGoto6 （如果桩号在直线内，则转Lb1 6）Lb1 2P=A+CD=Z[W-1]+ScosPF=Z[W+Z+1]+SsinP:Goto6Lb1 3I=S-S^5÷40R^2÷L^2+S^9÷3456R^4÷L^4J=Q（S^3÷6RL-S^7÷336R^3÷L^3）P=P+A+90Q S^2÷πRL:Goto5Lb1 4M=90（2S+L）÷πRI=RsinM+L÷2-L^3÷240R^2J=Q（L^2÷24R+R（1-cosM））P=A+QMLb1 5D=X+IcosA-jsinA:F=Y+JcosA+IsinALb1 6D″X=″◢（结果显示X坐标）F″Y=″◢（结果显示Y坐标）P″AT=″◢（结果显示该桩号方位角）{BO}：B″S″O″⊿″ （输入边桩距离，交角）P=P+OL″XB″=D+BcosP◢（结果显示边桩X坐标）M″YB″=F+Bs inP◢（结果显示边桩Y坐标）以上是坐标计算程序，括号内是程序计算的大致原理及说明，中间部分为直线、圆曲线、缓和曲线计算的各种公式，大家也知道，书上也有。
自动批量生成公路道路测量资料EXCELWPS表格水准测量平面放线
测量资料使用说明测量资料程序是一款简单实用的测量程序，为用户提供了一个更高效更准确的功能操作，帮助用户轻松完成《水准仪测量记录表》、《全站仪平面位置检测表》、《全站仪放线记录表》等的制作，包含导线点、水准点、平曲线（线元法）、纵断面、横坡超高计算等多个方面，实用程序，用户可以快速进行测量资料的记录、表格数据录入、表格管理等操作，方便快捷。
目录(一) 、功能特色 (2)(二) 、平曲线 (3)(三) 、断链 (5)(四) 、竖曲线(纵断面) (5)(五) 、超高数据表 (6)(六) 、标准路面参数表 (7)(七) 、水准点成果表 (7)(八) 、导线点成果表 (8)(九) 、原始数据表（进入正题） (9)(十) 、自动计算 (10)(十一) 重复九、十自动生成记录表 (11)(一)、功能特色1、本程序利用EXCEL、WPS电子表格，自动生成水准仪测量记录表、平面位置检测记录表、全站仪放线记录表。
2、适用于任何版本的EXCEL、WPS，无需安装，直接使用。
3、自动转点、自动计算坐标、自动偏差。
4、自动计算路面高程，减少数据输入。
5、支持交点法、线元法。
6、支持断链。
7、可以根据需求修改属于你自己项目的记录表。
8、除断链桩号前可以加”*”,其余桩号都应输入数字。
(二)、平曲线1、在空白处输入平曲线参数：（点号、交点坐标、交点桩号、半径、缓和曲线长度）备注：输入数据须为数字；没有缓和曲线，输入0。
2、点击“计算”按钮，自动计算（转角值、圆曲线长、切线长、主点桩号）(三)、断链在空白处输入断链桩号（备注：长链的断链重复桩号，在后断链桩号前加”*”）断链表(四)、竖曲线(纵断面)1、在空白处输入竖曲线参数：（桩号、标高、半径）2、点击“计算”按钮，自动计算（切线长、外距、竖曲线起点桩号、竖曲线终点桩号、转坡角、纵坡）(五)、超高数据表在空白处输入超高参数（桩号、横坡值、超高方式）备注：1、输入横坡变化点桩号处数据2、函数Lx(“缓和曲线长”, “超高横坡”, “路拱横坡”)计算路基由正常路拱横坡到单向路拱横坡时的长度；(六)、标准路面参数表在空白处输入标准路面构造参数备注：”中桩（判断路面宽度）”列为该段路面变化点终点桩号(七)、水准点成果表在空白处输入该线路全部的水准点参数备注：函数fszh(“X坐标”,”Y坐标”)，计算XY对应的桩号(八)、导线点成果表在空白处输入该线路全部的导线点参数备注：函数fszh(“X坐标”,”Y坐标”)，计算XY对应的桩号导线点成果表(九)、原始数据表（进入正题）该表是生成记录表的依据1、在”桩号”、”偏距”、”高程”、”工程部位”列，输入数据①函数lmgc0(“桩号”,”偏距”)，计算路面高程；②“工程部位”单元格以下内容为空白，视为一段工程。
公路施工测量坐标计算系统使用手册[1]
![公路施工测量坐标计算系统使用手册[1]](https://img.taocdn.com/s3/m/055e5411af45b307e8719763.png)
使用手册一、程序运行平台：Win9X/ME/XP。
二、程序开发平台：VC++.NET三、主要功能：平曲线坐标计算(线元法)、交点法坐标计算(交点法)、纵断面高程计算、放样辅助计算、交会定点计算、附闭合导线严密平差及近似平差、坐标转换、路基土石方计算、互通式立体交叉、报表设计等。
完整的打印预览及报表生成功能，在预览页面可将报表保存为EXCEL形式或网页形式。
报表中的“单位、制表、复核”等参数在系统菜单栏的“报表设置”项中设置。
对于“逐桩坐标报表”有两种选择，根据需要可选择全部打印或只打印中桩桩号、坐标及方位角，请在菜单栏的“报表设置”项中设置。
坐标计算时，可计算任意角度的边桩，边桩连线与中点切线右夹角默认为90°(在“右桩夹角(dms)”栏内不填写数据时),如边桩夹角为35°15′25.5″，应在“右桩夹角(dms)”栏内填入35.15255。
同时系统在加桩时可一次计算多个边桩，桩间米数为自动计算时桩的间距，填写如下图：如上图填写可一次计算出中桩K1+250.25处6m、8m、10m、12m、14m、16m处左边桩及10m、16m、20m、25m 处右边桩，其中边桩夹角为60°，计算结果如下图：四、使用说明：1、匝道主点要素推算本项功能主要针对那些匝道曲线组成复杂而设计提供数据简单的项目，您只需要输入匝道上任一主点的坐标、方位角，即可根据曲线线元类型、线元起点桩号、线元半径、回旋参数、转向计算出其它主点的坐标及方位角，计算误差很小，完全满足现场施工放样要求，主要计算方法如下：如上图为“南充绕城高速公路二洞桥互通A匝道”原始数据，该匝道由12个线元组成，共计1234.682m。
已知起点坐标、方位角及所有线元类型、桩号、半径、回旋参数、转向，可推算出其它线元起点(主点)的坐标及方位角，计算结果如下：设计提供匝道主点数据如下，通过比较可知，本系统计算结果误差很小。
如果已知主点(即该点的坐标、方位角已知)位于匝道起点，可按上述表格内输入格式将线元参数按线元连接的先后次序从起点依次输入至终点，并将起点坐标、方位角输入表内，在最后必须输入终点桩号，否则最后一个线元将不参与计算。
Excel VBA在公路路线坐标计算中的应用
Excel VBA在公路路线坐标计算中的应用摘要：通过分析公路路线坐标计算原理，创建Excel VBA的对象模型，可通俗易懂，方便准确地完成公路路线坐标计算，值得推广应用，文中以作者编写的“Excel公路坐标计算程序”为算例，说明介绍。
关键词：坐标计算，Excel VBA，坐标转换，数据读取传输引言作为公路测量工作者，公路路线坐标计算是一件最基础和最重要的工作之一。
虽然目前有部分公路坐标计算软件，但往往价格不低，而且通常操作复杂。
Microsoft 的常用办公软件Excel提供的VBA程序，功能强大，且与Excel工作表实现无缝接合，只要灵活应用，即可方便、快捷地解决测量中大量的、机械的数据处理过程。
文中介绍道路曲线坐标计算三种基本形式—直线、圆曲线、缓和曲线的中边桩计算公式，分析利用Excel表格及其VBA程序计算公路坐标的一般方法和关键节点，同时以两个不同类型的路线为实例具体说明计算过程和精度分析。
1 公路路线坐标计算基本原理1.1 中线坐标计算一般公路的路线坐标计算普遍采用三种线型：直线、圆曲线和缓和曲线。
其相应的中线坐标计算公式如下：1）直线（见图1）x=x0+S0×cos(a0)y=y0+S0×sin(a0)2)圆曲线（见图2）x=x0+S0×cos(a0+β)y=y0+S0×sin(a0+β)其中β为偏角，S0为弦长，其值为：β=90×L0/（R×π）S0=2×R×sin(β)切线方位角：a= a0+2×β3) 缓和曲线（见图3）Xi’=L－L5/(40A2)＋L9/(3456A8)－L13/(599040A12)＋……Yi’=L3/(6A2)－L7/(336A6)＋L11/(42240A10)－……L=|Li-L0| A=上述直线段和圆曲线段可直接计算出中桩坐标，但缓和曲线由于采用切线正支距法，是以直缓或缓直为原点的直角坐标系，还必须用坐标平移和旋转计算出该点在大地平面直角坐标系XOY中的坐标（x,y），公式为：x= x0+ Xi’cos(a0)- Yi’sin(a0)y= y0+ Yi’sin(a0)+ Yi’cos(a0)其转换后的切线方位角为：a=a0+180±L2/(3A2)1.2边桩坐标计算边桩坐标计算利用计算出来的中线坐标及其切线方位角，按az=a-90……左边桩方位角ay=a+90……左边桩方位角以及边桩至中桩距离Sb，推算边桩坐标：Xz(y)=x中+Sb×cos(az(y))Yz(y)=y中+Sb×sin(a z(y))2Excel VBA与Excel工作表的关联Office Excel工作簿中包含若干工作表，各工作表之间既相互独立，又相互关联，同时各工作表与Excel VBA又相互关联，因此只要在工作表上输入路线要素及计算桩号，通过VBA编程，就可通过VBA宏坐标计算将计算结果导入工作表。
小白自学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”表示。
利用可编程计算器快速确定线路测量中桩号及坐标的简易方法
利用可编程计算器快速确定线路测量中桩号及坐标的简易方法作者：邓建林华来源：《中国新技术新产品》2009年第06期摘要：本文利用可编程计算器的坐标计算程序、坐标转换公式，可方便快速的确定线路上任意点的桩号、坐标以及任意点至线路中线的距离。
关键词：线路测量；可编程计算器；桩号；坐标0 引言随着计算机技术的发展和普及,测绘人员很容易利用计算机确定线路上任意点的桩号、坐标以及任意点至线路中线的距离。
野外作业中，作业人员不可能随时能用上计算机，但有些数据现场要立刻知道，如已经准备好的放样坐标，由于现场条件限制一些桩点现场没法标定，要根据现场条件重新确定放样的坐标；质量检查人员随机抽标定的桩号是否在中心线上等。
虽然现在有很多重量轻、体积少便宜携带的笔记本电脑。
但是作业人员背一台笔记本电脑在野外测绘也不是很方便。
科技发展，计算器的功能日益强大起来，某些以前只有计算机才能胜任的工作，在计算器中也能方便的完成。
现场确定线路上任意点桩号及坐标一直是野外测量人员比较头痛的问题，本文从线路坐标计算入手，利用坐标转换公式计算出线路上某点与已知中桩的平面位置偏移，并以已知点桩号加上纵向偏移为基础，计算某点与其平面位置偏移，如此反复直至纵向偏移符合要求的精度，此时的桩号即为线路上某点的实际桩号，此时横向偏移即为某点至线路中线的距离。
1线路坐标的计算线路坐标计算方法很多，这里直接给出由“直线－缓和曲线-圆曲线-缓和曲线-直线”这一组曲线上任意点坐标计算公式。
上式中，X'P即为纵向偏移；Y'P即为横向偏移。
3 点位桩号的确定（1）以上图为例，首先根据待定点P的坐标大致判断一下其计算桩号和线路的那段曲线上，设桩号为K。
以K和曲线参数为基准计算出X'P； Y'P。
（2）X'P超出要求的精度（如10-3m）时，以K+X'P为计算桩号重新运行程序计算出X'P； Y'P。
（3）重复以上两步，直至X'P达到要求精度，此时的计算桩号即为P点在此线路上桩号，其横向偏移值即为P点距线路中线的距离。
基于Excel VBA在高速公路中、边桩测设程序中的应用
83一、绪论在当今的高速公路测设中，GPS和RTK的广泛使用，改变了线路的控制测量和中桩、边桩的放样手段，提高了公路的测设效率。
在GPS技术中，测量员只需要将中桩、边桩坐标输入GPS接收机中，就可快速地放样出点位。
这种测设方法灵活快速，所需的人员较少，只需要两个人就可以快速的测设（一般测设方法最少需要三个人），较好的降低了测量的费用，具有传统方法不可比拟的优点。
应用这种方法进行测量，需要设计出适应复杂线形的中桩、边桩坐标计算程序，并且该程序应具有输入数据规范，输出成果齐全等特点。
二、程序设计本次程序设计是以Excel VBA为开发环境，编制高速公路单曲线程序计算模块和线路法程序模块。
实现了计算任意非完全对称曲线的中桩、边桩坐标计算。
1.单一非对称形曲线计算程序设计该程序设计能对单一完整非对称形曲线进行坐标计算，并能根据线路放样的需要，计算出一个曲线坐标。
还有，在线路法程序设计中，在线路不连续时不能计算的线路坐标，而该程序能对不连续的单曲线进行计算，从而弥补的线路法程序设计和不足。
在单一完整非对称形曲线计算程序设计中，在工作表中添加两个命令按扭并编辑事件过程。
程序运行前，输入曲线的转角，圆曲线半径，交点里程，和左、右边桩距和中桩的距离后，选择曲线的类型（单圆曲线还是单个非对称形复曲线）、选择曲线的偏向、输入第一第二缓和曲线长（第二缓和曲线长在不输入的情况下默认等于第一缓和曲线长）、输入桩号间距（不输入的情况下默认为10m），最后输入ZH点(X,Y)坐标和JD坐标。
在两个命令按钮中，单击“计算”按钮可以计算单一非对称曲线的坐标并将结果显示在Excel表格中。
当然，如果不需要数据，可以按“清除”命令清除Excel表中计算得出的坐标。
还有，如果需要进行线路法计算，则单击“线路法程序”工作表即可快速切换。
2.线路法程序设计在线路法程序设计中，在工作表添加了4个命令按钮，并编写相应的事件过程。
单击“计算”命令按钮后能在Excel 表中显示输出的计算结果。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.0版升级说明
1）新增卵形曲线识别功能
导入直曲表后，可以在“路线数据手动修改区”对数据进行修改
2）平面数据存在折点时，间建议将折点位置半径调整为
0.001，
不过有时候会出现桩号计算错误，对于存在折点的平面数据，
最好在折点位置分开生成，避免出错。
3）超出路线范围的点会存在不计算或计算错误的现象，请注意。
4）生成前应核查平面数据，拉手曲线出现串手时，会导致死机
可在“路线数据手动修改区”进行参数修改。
2020.3.16 1.1版升级说明
1）合并地面高文件
2）为提高运算速度，新增筛选数据行数，可以随意修改
计算，然后点击“计算输出”进行计算。
自动计算修改方法：文件--选项--公式--手动计算
2020.3.17。