怎样计算高速公路路线坐标及高程

一个excle模板的制作在当今社会，excle的使用已经是越来越来频繁了，几乎涉及所有的行业，路桥施工也不例外。我在某路桥公司曾经负责过某项目部的测量工作。大家都知道，测量最主要的就是计算了，如坐标、高程、横坡度等。我现在给大家推荐一款我自己编制的关于测量计算的excel模板。首先我会跟大家介绍一下模板的作用，然后再一一讲解此模板的制作过程。首先给大家看一下此模板的界面如下：也许大家咋一看，切〜也许大家咋一看，切〜这算啥，我也会做这张表格，实在是太简单了。不错，如果仅仅是靠手动输入这样子的数字，也许只要懂一点点excle的人都会制作出这张表格吧。不过，这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。也许这样讲大家还不是很清楚，我继续给大家截个图，看看它里面的公式是什么。:曹翊牛田普旧视囹插入由格式回二具cd数据回en（w）帮助⑥ -日:y宜:制t ▼12、D9 ▼ &「rBuM冒耋聿瓢J.孳1ABcDEFGr1桩=坐〕示中桩昌程横坡备注2Xy左右3K37+590.3302426.964514291.176212.037-0.263-2.0004K37+600.3302429.737514281.568211.837-0.663-2.0005K37+613.3302433.391514269.092211.563-1.183-2.0006K37+625.3302436.807514257.589211.300-1.663-2.0007K37+631.3302438.528514251.841211.168-1.903-2.0008K37+640.3302441.123514243.223210.970-2.000-2.000qMicrosoftExcel-资料模板Is大家注意到上面的公式了吗，并不是仅仅是输入数字就完事的，它是一个自定义函数zbx（），那么后面的都是一样吗？完全正确，后面的都是自定义函数，它们分别是zby（）、sqx（）、hpz（）、hpy（）。也许大家会问，恩，是不错，但是有什么用呢？那让我先给大家简述一下这个自定义函数的用法。竟然是一个函数，那么它就必须要有一个自变量，这几个函数的自变量又是什么呢？其实这个模板里面所有函数的自变量只有一个，就是桩号。什么意思？就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度。假设我们要K38+000〜K38+200段落内每隔20M一个断面所有点的坐标、中桩高程、以及左右横坡。我就用这个模板给大家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。先在桩号那一列把K38+000-K38+200输入进去，可不要真的把字母“K”和加号“+”给输进去，只用输入纯数字就行了，否则计算会出错，之所以在模板里显示的是那样子，只

不过是自定义的单元格式而已。区|MicrosoftExcel-资料槿板.讪名 I口I回1・文件CE牌旧视图插入E格式(0)TM0D款据回曲口㈣帮助-t:L:宋体 ▼121rBZU言|言3至|翌％2盥gbidTTA=J卫也1蛆d―四回复时■包含m改回,“结京亩阅四J...A3 ▼&|38000ABCDEFG桩Y坐j示中桩昌程横坡右备注3K38+000.3302546.523513898.998203.050-2.000-2.0004K38+020.3302552.381513879.875202.610-2.000-2.0005K38+040.3302558.240513860.752202.170-2.000-2.0006K38+060.3302564.098513841.630201.730-2.000-2.0007K38+080.3302569.942513822.502201.290-2.000-2.0008K38+100.3302575.733513803.359200.850-2.000-1.3159K38+120.10K38+140.11K38+160.12K38+180.13K38+200.141^1第二步剩下的仅仅就是拖动公式了，后面的都是公式，所以可以一起拖下来，先选定后面的所有单元格，然后向下直接拖动至最后，那么你需要的数据就全部出来了。呵呵，是不是很神奇！并不是只能计算整数桩号数据的，是任意桩号的，也就是说桩号K38+000和K38+111.232计算出来的结果的精度是一样的。这个模板可以让你计算任意你想要的坐标，比如其演化计算出来的桥梁墩柱坐标，涵洞坐标等等。给大家示范一下计算涵洞的坐标。假设某涵洞桩号是K38+433.245,左边据中桩距离是23.45M，右边距中桩距离是33.56M，基础宽度是6M，那么我要用这个模板计算出涵洞基础4个拐点的坐标。在这里我用此模板的一个空白的工作表来给大家演示一下。

上面这张表格现在大家都会做了吧，只不过多了一个自定义函数jfw（）,它也是以桩号为自变量的一个函数，其得出的值是所在路线的某桩号的方位角。好了，有了中桩坐标和方位角，而且距离我们已经知道了，那么各边桩的坐标就可以计算出来了，x左=中桩坐标x+距离左X（乘号）cos（方位角一pi/2），y左=中桩坐标y+距离左X（乘号）sin（方位角一pi/2）。至于右边坐标公式仅仅是把那里面角度的减号改成加号而已。那么就可以得出来下面的表格了，离那4个拐点坐标也就越来越近了。田Microsontxcei-OT^tt^CR.xis 1一］—文件（D篇辑⑥视囹Qfl 插入①格式（Q）工MCD 数据（2）窗口（W）落助⑥ 健入需要希助的问题 卜_J1J1 ' -回勉皆.12』B£U|言同耋呈田•&，=B3+H3*C0S(D3+PI0/2)ABCDEFGHIK1桩5中桩坐标左右2方位角距离坐标距离坐标338433.245:3302637.943：513476.8026.4.775305402.23.453302614.539513475.3282：33.56)i3+PI()/2)513478.91274好了，我们计算出了涵洞轴线的两个坐标，宽度我们又是知道的，而且我们方位角也知道，那么左边两个的拐点坐标就是轴线左边的坐标分别利用三角函数就能计算出来了，只是距离变成了宽度的一半，而另外一个拐点的方位角要加上一个pi，如下表：ABCDEFGHIJK1桩与中桩坐标左右2方位角距离坐标距离坐标338433.2453302637.943513476.80264.77530540223.453302614.539513475.328233.563302671.436513478.9127413302614.728513472.334233302671.625513475.91875233其614.351513478.3龙343302671.248513481.9068文件（D编辑旧视图堕）插入0）格式（Q）工*CD数据但）窗口曲SBbttD 建入熹要有助的问题 ，-5x号;/gIM「心，少可，圆&昏枷 ，12▼|B1U言图耋圉|碧％，勒安|享享|田，，，£，|:二EU窟-din -J5 ▼A=J3+3*SIN(D3+FI())

以上就是拐点的4个坐标。至于边桩高程就不做介绍，竟然有了中桩高程，而且有了左边和右边的横坡度，那么自然的边桩高程也是很容易计算出来的了。讲了这么多其实只是介绍了这个模板是怎么操作和有什么用处，可是有那么多用处又有什么用呢，它只是针对你黄祁六标项目部才能用，我们项目部又不能用。没关系，我马上给大家详细讲解此模板的制作流程。还回到这个模板里面来，打开这个模板，然后进入vb编辑器里面，直接按Alt+F11可以进入，也可以从以下界面进入：工具宏vb编辑器（不好意思了，怎么都截不了那个图，还是直接按Alt+F11来的快）接下来就进入此界面了，注意旁边的模块，之所以可以能用自定义函数全部是它们的功劳，我一个一个的模块给大家讲解，先讲模块1：模块模块1Functionzbx(zhAsDouble)AsDoubleDimxAsDoubleDimyAsDoubleDimzhjdAsDoubleDimjzjAsDoubleDimrAsDoubleDimlsAsDoubleDimjzhAsDoubleDimpiAsDoubleDimmAsDoubleDimpAsDouble'交点横坐标'交点纵坐标'交点桩号'转角（右转为正，左转为负）'圆曲线半径'缓和曲线长'起始直线方位角'pi=3.14159265358979'切垂差'内移距DimtAsDouble'切线长DimlcAsDoubleDimj0AsDoubleDimzhzhAsDoubleDimzhhyAsDoubleDimzhyhAsDoubleDimzhhzAsDouble'外矢距'缓圆点切线方位角'直缓点桩号DimzbzhAsDoubleDimzbhyAsDoubleDimzbyhAsDoubleDimzbhzAsDouble'直缓点坐标DimliAsDoubleDimxeAsDoubleDimyeAsDoubleDimdsAsDouble'弦长DimjiAsDoubleDimiAsDouble'转角'转角正负号Ifzh>=35290Andzh<36571.636Then'从这里开始x=3302618.225y=515805.714zhjd=36087.224jzj=-1*dzh(46.3735)r=1096.226ls=130jzh=dzh(299.1304)ElseIfzh<37683.43Thenx=3302286.5y=514747.726zhjd=37142.734jzj=dzh(34.263)r=1600ls=150jzh=dzh(252.353)ElseIfzh<38850.118Thenx=3302680.931y=513460.274zhjd=38458.851jzj=-1*dzh(28.2945)r=1300ls=150jzh=dzh(287.0159)ElseIfzh<=40400Thenx=3302433.987y=512242.43zhjd=39687.464jzj=dzh(28.4725)r=1700Is=150jzh=dzh(258.3215)Elsezbx=NullExitFunctionEndIf'到这里结束pi=3.14159265358979i=Sgn(jzj)j0=ls/r/2m=ls/2-lsA3/rA2/240p=lsa2/r/24t=m+(r+p)*Tan(Abs(jzj)/2)e=(r+p)/Cos(Abs(jzj))-rlc=r*(Abs(jzj)-2*j0)li=lsxe=li-lia5/ra2/lsa2/40+lia9/ra4/lsa4/3456-lia13/ra6/lsa6/599040+lia17/ra8/lsa8/175472640-lia21/ra10/lsa10/(7.80337152*10a10)ye=lia3/r/ls/6-lia7/ra3/lsa3/336+lia11/ra5/lsa5/42240-lia15/ra7/lsa7/9676800+lia19/ra9/lsa9/(3.53009664*10a9)-lia23/ra11/lsa11/(1.8802409472*10a12)ds=(xea2+yea2)a(1/2)ji=Atn(ye/xe)zhzh=zhjd-tzhhy=zhzh+lszhyh=zhhy+lczhhz=zhyh+lszbzh=x+t*Cos(jzh+pi)zbhy=zbzh+ds*Cos(jzh+i*ji)zbhz=x+t*Cos(jzh+jzj)zbyh=zbhz+ds*Cos(jzh+jzj-i*ji+pi)Ifzh<zhzhThenli=zhzh-zhds=liji=jzh+pix=zbzh+ds*Cos(ji)ElseIfzh<zhhyThenli=zh-zhzhxe=li-lia5/ra2/lsa2/40+lia9/ra4/lsa4/3456-lia13/ra6/lsa6/599040+lia17/ra8/lsa8/175472640-lia21/ra10/lsa10/(7.80337152*10a10)ye=lia3/r/ls/6-lia7/ra3/lsa3/336+lia11/ra5/lsa5/42240-lia15/ra7/lsa7/9676800+lia19/ra9/lsa9/(3.53009664*10a9)-lia23/ra11/lsa11/(1.8802409472*10A12)ds=(xea2+yea2)a(1/2)ji=jzh+i*Atn(ye/xe)x=zbzh+ds*Cos(ji)Elselfzh<zhyhThenli=zh-zhhyds=2*r*Sin(li/r/2)ji=jzh+i*j0+i*li/r/2x=zbhy+ds*Cos(ji)Elselfzh<zhhzThenli=zhhz-zhxe=li-lia5/ra2/lsa2/40+lia9/ra4/lsa4/3456-lia13/ra6/lsa6/599040+lia17/ra8/lsa8/175472640-lia21/ra10/lsa10/(7.80337152*10a10)ye=lia3/r/ls/6-lia7/ra3/lsa3/336+lia11/ra5/lsa5/42240-lia15/ra7/lsa7/9676800+lia19/ra9/lsa9/(3.53009664*10a9)-lia23/ra11/lsa11/(1.8802409472*10a12)ds=(xea2+yea2)a(1/2)ji=jzh+jzj-i*Atn(ye/xe)+pix=zbhz+ds*Cos(ji)Elseli=zh-zhhzds=liji=jzh+jzjx=zbhz+ds*Cos(ji)EndIfzbx=xEndFunction以上模块其实就是一个以自变量为桩号的函数，名字是叫zbx(),所返回的值就是坐标x。也许有人会说什么乱七八糟的东西，我一点也看不懂。呵呵，没关系，我们所要的只是把它运用于实际中来，并不要求所有人都能看懂，毕竟要全部看懂，还得学会编程语言vba。这里我只讲它的用法，怎么能让它运用到所有项目的路线中去。首先让我们知道这个函数所要运用到的已知条件，如下：直线「曲线及转角表S2黄山至祁门高速公路施工图设计第6合同段 第1页交点号交点坐标交点桩号转角值曲线要素值(m)曲线主点桩号直线长度夏方向N(X)E⑴半径援和曲缓和曲切钱曲线外距校正值第一缓和曲线稳一缓和曲线终曲犊中点常二缓和曲线起第二缓和曲线计算方位角线长度线参数长度长度起 点W或圆曲线起点W或圆曲线终访终 点12345&789101112131415161720H22?3302229.075516501.508K35+290299°13z04.JII233302618.225515805.714K36+08T.22446°37734.6"任)1096.2261303TT.504537.6TT1022.08998.15753.264K35+549.548K35+679.548K36+060.592K36+441.636K36+5T1.536252°35/29.E产JII243302286.500514T47.726K37+142.73434°26y3Q.2”(Y)1600150489.898571.0971111.79475.T0730.4K36+571.636K36+721.636K37+127.533K37+533.430K37+683.430287°01?59.lffJH253302680.931513460.2T4K38+458.85128°29744.8"(2)1300150441.588405.232T96.54942.00114.015K38+053.569K38+203.569K38+451.843K38+T00.118K38+850.118258°32’14.9”JII263302433.98T512242.430K39+68T.46428°47,24.5”(Y)1T00150504.9T5511.46T1004.22155.6T218.712£39+175.997K39+325.997K39+678.108K40+030.218K40+180.218287°19?39.4”Ii27z3302651.778511544.368K40+400这是设计院所给的数据，那么我现在要用到哪些呢？注意了，到重点了，以下的大家只要跟着我一步一步做就行，请不要问为什么（如果你很想知道为什么的话，我就推荐你看一下excle关于vba的书）。在模块中看见从“从这里开始”和“到这里结束”了吗？呵呵，为了写这个特意加上的。好了，竟然我们要运用到新的路线上面去，那么它的已知条件的各个数据是变化的。所以必须得改一些东西。刚才说的那个把它全部删除，什么？删除？对，全部删了！呵呵，然后改成下面的：Ifzh＞=起始桩号Andzh＜第一个交点的第二缓和曲线终点桩号Then'从这里开始x=交点横坐标y=交点纵坐标zhjd=交点桩号jzj=-1*dzh（转角）（说明：输入方式，比如31°02'19〃就输入31.0219左转就如上一样输入，如右转就是jzj=dzh（转角）没有负号的。）r=圆曲线半径ls=缓和曲线长度jzh=dzh（前一个交点到下一个交点的方位角）（说明：输入方式，比如31°02'19〃就输入31.0219）ElseIfzh＜第二个交点的第二缓和曲线终点桩号Thenx=第二个交点横坐标y=第二个交点纵坐标zhjd=第二个交点桩号jzj=dzh（第二转角）r=圆曲线半径ls=缓和曲线长度jzh=dzh（第二交点与第一交点的方位角）（……直到全部输完，用的都是第二段语句的格式）Elsezbx=NullExitFunctionEndIf'到这里结束明白了吗？黑体字换成你应该要输入的数据，文字说明就免了，而且必须免了，不然程序就会出错。数据在你输入的时候一定要保证准确无误，不然的话就到时候计算出来的数据就全错了。到这里模块1应该弄清楚了吧，接下来的就特别简单了，我们继续讲解模块2：

模块2跟模块1所要改的东西几乎是一模一样的，你所需要的仅仅是把模块1输入的数据首先复制过来，然后在一个地方要改写一下，倒数第3行（“到这里结束”是算最后一行），模块1里面是zbx，如果到了模块2里面请将其改为zby就OK了。是不是觉得万事开头难这句话很有道理，这么快就搞定模块2了。模块2好了，就应该是模块3了吧。\sJITa ，」」」蛭I德JT3x H二程-VBAProject啤2归X1j£w:•宣二程-VBAProject啤2归X1j£w:•宣Sheet4(Sheet：:i•®Sheet5(Sheets=••…ThieWorkbook白•'模块MY模块1MY模块2SI9•避模块4"Y模块5N模块7“I FX1便块3模块按字母序|按分类序］ 模块3Dim:<eAsDoubleDimyeAsIloubleDimdsAsDoubleDimjiAsDoubleDimiAsDoubleI£zh>=35290Andzh<36^x=3302618.225t=515805.714zhjd=36087.224jzj=-1+dzh(46.3735)r二1096.226Is=130jzh二dzh(299.1304)Elselfzh<37683.43Thenx=3302286.5T二514747.726zhjd=37142.734jzj=dzhG4.263)r=16001e二150izh二dzhC252.353：：iElselfzh<38850.118Thenx=3302680.931v=513460.274zhjd二38458.851izi=-1*dzhi：'28.2945：：ir二1300Is=150jzh=dzh(287.0159)Elzelfzh<=40400Thenx=3302433.987n号he员T正36蓄角&'从这里开始啊？怎么可能7二512242.43zhjd啊？怎么可能7二512242.43zhjd=39687.464jzj=dzhC28.4T25)r=1700改的的完全是.一样的，只是还要改正一下倒数第三行，把模块1里面的PIU口zbx改成jfw就行了，哈哈，这也太简单了吧。是的，就是这么简单。再接再厉，我们进行模块4的研究：愕文件旧新(B视图⑪SAQj格式。调试(E)运行®ZMQD夕服程序(A)窗口阻帮助凹屋-VBAProject国iSheet3(SheetE*•■…糖]Sheet4(Sheet：::••…QSheet5(Sheets•…S^]ThieWorkbook白••阕模块愕文件旧新(B视图⑪SAQj格式。调试(E)运行®ZMQD夕服程序(A)窗口阻帮助凹屋-VBAProject国iSheet3(SheetE*•■…糖]Sheet4(Sheet：::••…QSheet5(Sheets•…S^]ThieWorkbook白••阕模块模块1-＜模块2"••盈模块3＜模块4H臀5pirI性-椎块4［块4模块黄宇母序|按分类序］这个大家什么都不用改，只是一个输入转换的小程序，意思就是如果你要输入角度，比如31°02’44〃，只要输入dzh(31.0244)就会把角度转换成对应的弧度。这就是上面说明中解释角度为什么要这样子输入，嘿嘿，方便吧。快了，离成功就只有一点点了，我们现在已经能计算出全部的坐标了，让我们看看高程是怎么计算的吧。模块5登场了：要知道高程怎么计算，我们先看看设计院能提供给我们的数据有哪些呢?纵坡、竖曲线表黄山至祁门高速公路施工囹设计第6合同段S2-5第1页共1页序号桩 号竖曲线纵坡变坡点间距直坡段长标高（m）凸曲线半径R（m）凹曲线半径R（m）切线长T（m）外距E(m)起点桩号终点栋号+(m)(m)47K34+400214.85026000273.0001.433K34+127K34+673-0.600890.000513.00048K35+290209.5108000104.0000.676K35+1S6K35+3942.000540.000184.00049K35+830220.31014000252.0002.268K35+57SK36+082-1.600900.000520.00050K36+730205.9108000128.0001.024K36+602K36+858660.000304.00051K37+390216.47012000228.0002.166K37+162K37+6181.bUU-2.2001635.0001258.50052K39+025180.50011000148.5001.002K38+876.500K39+173.5000.500650.000334.10053K39+675183.75030000167.4000.467K39+507.600K39+842.400-0.616725.000349.84054K40-F400179.28428000207.7600.771K40+192.240K40+607.760-2.100690.000244.09055K41+090164.79411000238.1502.578K40+851.850K41+328.150我们还从这个