利用高程点生成断面数据VBA程序.docx

利用高程点生成断面数据VBA程序。主要应用于水渠与道路方面的横断面数据提取，现为生成格式为纬地与重庆测绘院的断面格式。其实格式可以自己设定，需要帮助联系QQ：365149174.具体请各自测试。Public Sub numssg1ok()生成中桩水平单及横断面数据Dim text As AcadText, text1 As AcadText, text2 As AcadTextDim object As AcadEntityDim str1 As String, str2 As StringDim fpath As String, filepath As StringDim selpoint As AcadSelecti*et, selp As AcadSelecti*etDim obje As AcadEntityDim point As Variant, point1 As VariantDim lin As AcadLineDim dis As DoubleDim hi As DoubleDim his As DoubleDim p(0 To 2) As Double, p1(0 To 2) As DoubleDim fipath As StringDim ttstr As StringDim i As DoubleDim fipatha1 As StringDim ttstra1 As StringOn Error Resume NextDim num As StringDim filepath1 As Stringfpath = F:纵断面.txtfilepath1 = F:绘图横断面.txtfipath = F:纬地设计方横断面.txtfipatha1 = F:横断面原始数据.txtOpen fpath For Append As #2Open filepath1 For Append As #1Open fipath For Append As #3Open fipatha1 For Append As #4100:i = 0Err.Number = 0 ThisDrawing.Utility.GetEntity object, selset*creen, 请选择中桩里程:If Err.Number 0 Then GoTo 200 Set text = object str1 = text.TextString Print #1, str1 Print #1, Z Err.Number = 0 ThisDrawing.Utility.GetEntity object, selset*creen, 请选择对应中桩高程:If Err.Number 0 Then GoTo 200 Set text1 = object str2 = text1.TextString point = text1.InsertionPoint p(0) = point(0) p(1) = point(1) p(2) = 0ttstr = str1 & vbCrLfttstra1 = str1 + / + str2 Err.Number = 0Set selpoint = ThisDrawing.Selecti*ets.Item(选择文本对象) If Err.Number 0 Then 如果“选择文本对象”选项已经存在，则删除它 Err.Clear Set selpoint = ThisDrawing.Selecti*ets.Add(选择文本对象) End If selpoint.Clear selpoint.Select*creen If Err.Number 0 Then 如果选择点错误，重新再选 Err.Clear GoTo 200 End IfFor Each obje In selpoint If obje.ObjectName = AcDbText Then Set text2 = obje i = i + 1 point1 = text2.InsertionPoint p1(0) = point1(0) p1(1) = point1(1) p1(2) = 0 Set lin = ThisDrawing.ModelSpace.AddLine(p, p1) dis = lin.Length lin.Delete hi = Val(text2.TextString) - Val(text1.TextString) his = Val(text2.TextString) Print #1, Format(dis, 0.0) + , + Format(hi, 0.00) If i = 1 Then ttstr = ttstr + Format(dis, 0.0) + / + Format(hi, 0.00) If i 1 Then ttstr = ttstr + 、 + Format(dis, 0.0) + / + Format(hi, 0.00) If i = 1 Then ttstra1 = Format(hi, 0.00) + / + Format(dis, 0.0) + , + ttstra1 If i 1 Then ttstra1 = Format(hi, 0.00) + / + Format(dis, 0.0) + 、 + ttstra1 End IfNext obje i = 0 Print #1, Y Err.Number = 0Set selp = ThisDrawing.Selecti*ets.Item(选择文本对象1) If Err.Number 0 Then 如果“选择文本对象”选项已经存在，则删除它 Err.Clear Set selp = ThisDrawing.Selecti*ets.Add(选择文本对象1) End If selp.Clear selp.Select*creen If Err.Number 0 Then 如果选择点错误，重新再选 Err.Clear GoTo 200 End If For Each obje In selp If obje.ObjectName = AcDbText Then Set text2 = obje i = i + 1 point1 = text2.InsertionPoint p1(0) = point1(0) p1(1) = point1(1) p1(2) = 0 Set lin = ThisDrawing.ModelSpace.AddLine(p, p1) dis = lin.Length lin.Delete hi = Val(text2.TextString) - Val(text1.TextString) his = Val(text2.TextString) Print #1, Format(dis, 0.0) + , + Format(hi, 0.00) If i = 1 Then ttstr = ttstr + vbCrLf & Format(dis, 0.0) + / + Format(hi, 0.00) If i 1 Then ttstr = ttstr + 、 + Format(dis, 0.0) + / + Format(hi, 0.00) If i = 1 Then ttstra1 = ttstra1 + , + Format(hi, 0.00) + / + Format(dis, 0.0) If i 1 Then ttstra1 = ttstra1 + 、 + Format(hi, 0.00) + / + Format(dis, 0.0) End IfNext obje Print #4, ttstra1Print #3, ttstrPrint #2, str1 + , + str2GoTo 100200:Close #2Close #1Close #3Close #4End Sub功能：能将杂乱的野外断面数据处理成常规的断面数据;亦可将此转换为绝对的工程点位坐标，以及CASS软件能识别的里程文件。后期处理可用CASS软件将该里程文件直接绘制成断面图，以及土方量的计算。在很多采用非全站仪进行的横断面测量中，常采用如下记录格式（野外断面数据经此程序“处理后”也将生成如下格式的数据）k0+000 中桩的编号3.5,-0.5,2,0.8, 左断面数据至上一个断面点的)水平距离,高差,水平距离,高差,.4,0.2,3,0.5, 右断面数据至上一个断面点的)水平距离,高差,水平距离,高差,.k0+020 中桩的编号.在中桩坐标已知的前提下，可以编辑成如下格式，然后用此程序能快速的将断面数据转换成一个个绝对的工程坐标点。也可以转换成CASS软件能识别的“里程文件”。1,k0+000,16369.32,20117.969,552.82 点号,中桩的编号,Y,X,h2,k0+020,16379.751,20103.15,552.58 点号,中桩的编号,Y,X,h4,k0+060,16409.614,20073.512,551.194 点号,中桩的编号,Y,X,h.以上依次是“处理后”，“中桩坐标”的数据格式，下面为原始坐标数据格式：6,k0+020,16382.751,20103.15,552.58点号,中桩编号,Y,X,h7,R,16371.637,20093.076,552.980 点号,左右识别码,Y,X,h8,R,16367.932,20089.719,553.180 点号,左右识别码,Y,X,h9,L,16396.088,20115.238,552.680 点号,左右识别码,Y,X,h10,L,16404.979,20123.297,552.980 点号,左右识别码,Y,X,h1,k0+000,16369.32,20117.969,552.82点号,另一个中桩编号,Y,X,h2,L,16404.979,20123.297,552.980 点号,左右识别码,Y,X,h. .依次类推原始坐标数据中，R和L为断面左右识别的标志，R为右,L为左，不区分大小写；同一个断面下以中桩坐标排前，接着为断面上的碎部点坐标，碎部点坐标“无需排序”。绘图小秘-CASS格式纵断面数据提取程序 使用方法命令：APPLOAD-选择ZDM.fas 命令：ZDM-先选择中线-在选取所有纵断面高程-回车键-OK今天用Win 7 家庭版装CaSS 装了一天，在网上查了好多，总算是装上去了，我只是总结一下 不是原创，希望对大家有帮助1.Win 7 装备CAD 2006 的时候到最后会出现一个用户权限不足，会出现装上去，但是打不开的情况 网上查了一些，最终有一个很简单的方法在开始控制面板用户账号和家庭安全用用户账号更改用户账号控制设置把那从默认拉到从不通知，重启2.装上CAD之后，双击CAD图标会出现ac1st16.dll文件丢失，打开文件失败的情况，我的方法是在网上下载一个ac1st16.dll放到C:WindowsSystem32目录下，还打不开的话，就点计算机属性高级系统设置环境变量系统变量然后新建系统变量 变量名为：AutoCAD 变量值为：Cprogram filescommon filesautodesk shared点击确定OK其它就是按平时装CAD，CASS的步骤一样的，最后我的是装成功了 有不懂的可以交流我们在日常的测量工作中，经常都需要计算一些土方量，而计算两期土方是CASS的特色之一，特别是区域土方平衡施工过程中，或测量了两次结果之后，它能一次性为我们计算出同一区域的填挖方土方量，很是方便。为了使大家深入了解CASS6.1计算两期土方的方法，提出此问题与大家一起讨论学习。一般来说，下面三种方法均可以计算两期土方：1、两断面线间土方计算2、DTM法两期土方计算3、方格网土方计算（cehui8站长推荐）三角网法、方格网法是常用的方法，断面法是提供给甲方的方量依据，一般三种方法的计算差距不会超过2%-5% 。三角网法计算方量：点击等高线，选建立DTM或图面DTM完善点击建立DTM后会显示：选由图面高程点生成，确定。此时要注意左下角显示的文字，点击回车键即可。把区域的边界线选中后，就会自动形成三角网，如图所示：三角网形成后，再点击工程运用中的DTM法计算土方量，选中根据图上三角网，如图所示：选中后就会显示下图：注意左下角的提示：输入平场高度（就是设计深度，一般情况要加上超深0.5m）后回车，方量就会在左下角有显示。方量计算完成。方格网法计算方量：方格网法计算方量首先要采点，点击工程运用鼠标向下，选指定点生成数据文件，如图所示：然后就会自动跳出一个窗口，如图所示：先把文件放在自己能够找的道的文件里，如桌面，起好名字，保存即可。窗口自动关闭后，左下角就会显示指定点：，此时，只要把鼠标放在高程点上左击后，会显示地物代码，代码就是点的行政代码，如边界线就写B，房子就写F，现在采点直接回车即可。回车后，又会显示高程（0.00），这是后，就需要输入你所用鼠标点击的高程点。水深要有负号，当然，正的水深就不需要加号了，直接输入就好。最后会显示的是输入点号（1），这一步，只要直接回车就可以了。就这样把工作区域的点全部踩完。重新打开CASS成图软件，点击绘图处理的站高程点如下图：就会弹出一个窗口，如下图：找到刚才保存好的采点文件，并打开它，此时，左下角会显示标记高程点的距离（米）：输入2，2米的意思就是点与点之间的距离(直接回车也可)。回车后就会显示出水深点，然后到原图把图纸范围用带基点复制过来，用多段线闭合，点击工程运用中的方格网法计算，如下图：左下角会显示选择计算区域边界线。按照下图把这个窗口填好。目标高程就是设计深度，方格宽度5米。确定后，电脑会自动计算，在左下角会有显示方量。如下图：但是此时看不到图纸，很简单。只要在左下角命令栏中输入：ZOOM回车后在输入E后回车就会有显示。如下图：到此，计算完毕看要求管理员-扬帆(214979525)17:04:33看你要计算到什么超高了 (来自手机QQ: )测绘人生(353789722)17:04:43方格是20*20广元 测绘 -王龙(184517465)17:04:48这个看怎么要求了管理员-扬帆(214979525)17:04:50想要分层也行 广元 测绘 -王龙(184517465)17:05:08有个设计标高嘛CASS上面很简单的管理员-扬帆(214979525)17:05:25方格多大是看场地平不平，跟精度要求 测绘人生(353789722)17:05:47对广元 测绘 -王龙(184517465)17:05:53其实方格个三角相差不是很大测绘人生(353789722)17:07:10我感觉三角网好算选择范围就行了CASS-SHAN(83837433)17:09:03其实一样的这个算法我们还是看甲方也就是看给钱的老板的要求了哈哈同一组数据算同一个项目两个方法算出来差距不大广元 测绘 -王龙(184517465)17:09:59嗯海南-沈队(34675073)17:11:23你们遇到过一个台阶场地平整吗？就一个场地分好几个设计标高 378769427(378769427)17:11:36没有淮北方圆测绘有限公司(439717189)17:11:42方格网与三角网是有区别的海南-沈队(34675073)17:12:01区别不是很大吧 CASS-SHAN(83837433)17:12:26这个我们上论坛上发表一个个人观点啊，管理员-扬帆(214979525)17:12:48你就按台阶来分区域计算就行，还是方格网 淮北方圆测绘有限公司(439717189)17:12:58如果高差起伏变化大的场地用三角网是比较精确的。一般平坦场地用方格网广元 测绘 -王龙(184517465)17:14:06呵呵海南-沈队(34675073)17:14:09是按台阶分呀，计算就不如一个平地场地计算爽呀 管理员-扬帆(214979525)17:14:13可以来辩论贴 海南-沈队(34675073)17:14:51三角网精度比较高 广元 测绘 -王龙(184517465)17:15:08这个都有各自的优点淮北方圆测绘有限公司(439717189)17:15:12这个不是绝对的广元 的话我赞成海南-沈队(34675073)17:15:37看场地来决定 淮北方圆测绘有限公司(439717189)17:15:43具体情况具体对待是正确的广元 测绘 -王龙(184517465)17:15:52方格对比较平的有优势三角呢多高低较大的优势一、程序功能 本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(正算坐标、放样点至置仪点方位角及距离；反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z1=90（与路线右边夹角）ProgTHB：F=1=Goto 1:F=2=Goto 2Lb1 1:ix 3: =：Locate 6,4, ：Locate 6,4,rog3JS”:Goto 0:Lb1 2:Fix 3:：Locate 6,4,：Locate 6,4,oto 0主程序：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:” H=”:Locate 6,4,H“ I=”: Locate 6,4,I Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268123K(置仪点X坐标)2243545L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-LE：X-KF：Pol(F,E):IF J0:Then J+360J:Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(J) J:(不习惯小数点后四位为角度显示的，也可以用命令JDMS来直接显示) Fix 4:” FWJ=”: Locate 6,4,J(不习惯小数点后四位为角度显示的，也可以用命令JDMS来直接显示)Fix 3:” S=”:Locate 6,4,I4主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290Z1(涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1F:Prog”THB”:?L:Z2-Z1 E:X+Lcos(E) X:Y+Lsin(E) Y:Fix 3: =：Locate 6,4, ：Locate 6,4,rog3JS”:Goto 0:5主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18DimZ:2F:90Z1:Prog “THB”:Z:D:”M0”?M:MZ4:DZ3:Prog”6GD”:LZ6:If D0:Then 0.75-LD:Goto H:Else L-0.75D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z4 Z5:Z6 L:If Z5A:Then Goto 1:Else If GZ10:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z12+Z13+Z14+(G-A)Z9+Z11Z8+Z10Z7:Goto Z:LbI 2:L+Z12+Z13+(G-Z10)Z8+Z10Z7:Goto Z:LbI 3:L+Z12+GZ7:Goto z:LbI T:L+0.5N:If GZ17:Then (N+Z18+(G-Z17)Z16+Z17Z15)S:Goto Z:Else (N+GZ15)S:Goto z:LbI Z:Z3D:Fix 2:Abs(D)-ST:” L0=”:L Locate 6,4,T：Locate 6,4,：Locate 6,4,“ TW=”: Locate 6,4,Z5Goto 06主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-CE:(B-A)E/S+AL:L:7坐标计算次程序（）程序名：THB18DimZ：?Z：Prog 1P： (P-R)(2HPR) ： 180：=1=Goto 1：=2=Goto 2Lbl 1：?： Abs(O) W：Prog ：X：oto 3LbI 2:：I：J：Prog ：Z：oto 3LbI 3:IF Then ：Else ： 8. 正算子程序()程序名：A0.1184634425A： 0.2393143352B：0.2844444444N 0.046910077K： 0.2307653449L：0.5M： U+W(Acos(G+QEKW(C+KW)+Bcos(G+QELW(C+LW)+Ncos(G+QEMW(C+MW)+Bcos(G+QE(1-L)W(C+(1-L)WS)+Acos(G+QE(1-K)W(C+(1-K)WS) X：V+W(Asin(G+QEKW(C+KW)+Bsin(G+QELW(C+LW)+Nsin(G+QEMW(C+MWS)+Bsin(G+QE(1-L)W(C+(1-L)WS)+Asin(G+QE(1-K)W(C+(1-K)W) Y：G+QEW(C+W)+：X+cos（）： Y+sin（）9. 反算子程序()程序名：BG-90： Abs(Y-V)cos(T)-(X-U)sin(T) ： 0：Lbl 0：Prog ： T+QEW(C+W) ： (J-Y)cos(L)-(I-X)sin(L)：IF Abs()0.01:Then Goto1：Else W+W:Goto 0Lbl 1:0D：Prog ：(J-Y)sin() D:10高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-TF:Z-FL:C+TE:G-TIQ:If T=O:Then Q+LIH:Goto 0:Else If Z Goto 0:W=2=Goto 1:LbI 0:If L=0:Then Abs(D)MV:Goto 2:Else Abs(D)(N-M)(Z-C)L+M)V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)MV:Goto 2:Else Abs(D)(3(Z-C)L)2-2(Z-C)L)(3)(N-M)+M)V:Goto 2:IfEnd:LbI 2:Abs(D)E:VEI:I(E-K)V:12数据子程序(附后示例)程序名：X0（坐标计算要素程序）If Z25900 And Z26615.555:Then 25900O:11587.421U:1847.983V:101。0923.1”G:715.555H:11045P: 11045R: 0Q:Goto 0: IfEnd:If Z26615.555 And Z26915.555:Then 26615.555O:11448.97U:2550.016V:101。0923.1”G:300H:11045P: 1800R:1Q:Goto 0:IfEnd:If Z26915.555 And Z27316.952:Then 26915.555O:11382.792U:2842.531V:105。5551.83”G:401.396H:1800P: 1800R:1Q:Goto 0:IfEnd:LbI 0:O:U:V:G:H:P:R:Q:程序字母说明：O-线元起点桩号；U-起点X坐标；V-起点Y坐标；G-线元起点桩号切线方位角; 线元长度，线元起点曲率半径，线元终点曲率半径,Q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)。程序名：SO(高程竖曲线要素子程序)If Z25900 And Z26157.8:Then -200000R:157.8T:26000C:37.1G:0.01222I:Goto 0:IfEnd:If Z26157.8 And Z27421.915:Then 300000R:171.915T:27250C:32.65G:-0.00356I:Goto 0:IfEnd:If Z27421.915 And Z27889.029:Then 1000000R:134.029T:27755C:36.64G:0.0079I:Goto 0:IfEnd:LbI 0:R:T:G:C:I:程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I竖曲线前纵坡程序名：I0（高程超高参数子程序）1.5K:2W:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z25900 And Z26615.555:Then 0L:-0.02M:Goto 0:IfEnd:If Z26615.555 And Z26735.555:Then 120L:26615.555C:-0.02M:0.02N:Goto 0:IfEnd:If Z26735.555 And Z26795.555:Then 60L:26735.555C:0.02M:0.04N:Goto 0:IfEndIf Z26795.555 And Z27436.951:Then 0L:0.04M: Goto 0:IfEndLbI R: If Z25900 And Z26735.555:Then 0L:-0.02M: Goto 0:IfEndIf Z26735.555 And Z26795.555:Then 60L:26735.555C:-0.02M:-0.04N:Goto 0:IfEndIf Z26795.555 And Z27436.951:Then 0L:-0.04M: Goto 0:IfEndLbI 0 K:W:L:C:M:N:字程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;L超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。程序名：GO(路基标准半幅宽度参数子程序)If D XY 2.： XY = ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。为线元边桩与中线右夹角。 ？正算时所求点的里程（反算输入大概桩号） ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零) X0 ？反算时所求点的X坐标（放样程序中实测X坐标） Y0 ？反算时所求点的Y坐标（放样程序中实测Y坐标）显示部分：L? 涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.M0? 边坡放样程序中原地面标高输入 X=* 正算时，计算得出的所求点的X坐标 Y=* 正算时，计算得出的所求点的Y坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角（在3JS程序中应输入X、Y坐标值于K、L）S=* 正算时，计算得出的所求点的至置仪点距离=* 反算时，计算得出的所求点的里程 =* 反算时，计算得出的所求点的边距H=* 所求点位置设计路面顶标高I=* 所求点位置设计路面横坡L0=* 边桩放样程序中实测点至设计边坡点距离，正向内移计算器常用命令格式1 SHIFTDefmN(变量个数)EXE:扩充变量存储器(显示方式为Z1 Z2.Zn；2 Fix:指定小数位数； Sci:指定有效位数；3 Eng:用工学记法显示计算结果；4 Scl:清除统计存储器内容；5 Norm:为转换成指数形式指定范围；6 Mcl:清除所有变量；7 Int:选此项并输入一个数值可得到其整数部分（取整）；8 Abs:选此项并输入一个数值可得到其绝对值；9 Frac:选此项并输入一个数值可得到其分数部分；10Intg:选此项并输入一个数值可得小于此数值的最大整数；11Pol(:直角坐标极坐标转换；12Rec(:极坐标直角坐标转换；13:条件转移成立码；14:条件转移失败码；15:条件转移结束码；16Goto:无条件转移命令；17:结果显示命令18: 多重语句命令，用于连接两个算式或命令19Lbl:标识符命令；20Dsz: 减量命令 ；21Isz:增量命令 22，Fixm:变量锁定命令；23Pause:暂停命令(Pause 3 显示1.5秒)；24Cls:清屏命令；25 :变量输入命令；26DMS:将计算结果换算为六十进制格式；27Abs:复数的模；28Arg:复数的辐角；29Conjg:共轭复数；30Rep: 复数的实部； 31Imp: 复数的虚部 直线上里程 偏距反算X:Y:A0= :C“X0”= :D“Y0”= : Pol(X-X0,Y-Y0):JJ=J:N=J-A0:I=I:F=IsinN :K=S+IcosN:K=:K F=:F A0:起始方位角、S:起算点里程、(X0,Y0):起算点里程坐标、 F:偏距(左偏为-,右偏为+)、K:计算点里程、 园曲线上里程 偏距反算X:Y:Z=1:R= :S= :C= :Y= :V= :W= :O= :起始方位角计算：A=tan1(W-D)/(V-C) 交点至圆心方位角计算: B=A+Z(O+(180-O)/2)圆心坐标计算: T=V(X1)+(R+E)cosB: U=W(Y1)+(R+E)sinB圆心至圆曲线起点方位角计算:N=180+B-(90L/(R)Pol(X-T,Y-U):F=R-I: K=S+(360+J)-N)R/180:F=:F K=:K C,D(X,Y):圆曲线起点坐标 、W,V(X1,Y1):交点坐标 、L:圆曲线长度A:起始方位角、E:外矢距、R:圆半径、O:转向角 、F:偏距Z:曲线左偏Z=-1,曲线右偏Z=1、圆心坐标: T,U(X0,Y0)N:圆心至园曲线起点方位角 、S:园曲线点里程、 竖曲线路线中桩高程SQX主程序K：ProgB：W=AB:W0U-1：U1R：T：TAbs(RW/2) E：E=T22R CK-J：KJI=A：I=BH：AbsCTH=H+CI+U(T- Abs C) 22R：H=：HH=G+CI：H=：HB数据库K？A=？：B=？：R=？：J=？：H=？ (数据库中K:为竖曲线起点里程)K？A=？：B=？：R=？： 附注： 1、K所求的桩号：A=前坡度：B=后坡度：R=半径：J=交点桩号：G=变坡点控制高程： 2、注意A、B的正负。 3、本程序可以计算上百公里的路线中桩高程。 边坡开口线放样ABKL:T=Q实测高程-H设计高程T=AbsT:U=T/8:T8W=TA+E+L T8W=8A+B(T-8)+E+2IntU+LT16W=8A+8B+K(T-16)+E+2IntU+L DW=:W=W W=:D=W-AbsFT:实测高程与设计高程之差、A:第一级台阶坡率、B:第二级台阶坡率、K:第三级台阶坡率、W:计算放样宽度D:放样宽度差值、F:所测点对应桩号及距中桩(设计线)处的距离、L:附加宽度(碎落台、边沟等宽度)边坡（填方段）： F-7P=F-(1.5(H-Q)+14):Z1=H-0.76-Q:F=:PTW=:Z1 F-7P=F-1.5(H-Q):Z1=H-0.76-Q:F=:PTW=:Z1 (H:设计标高;Q:实测标高）净空检查（三心园）： F-7.707P=Q-(H-1.37+6.0222-(6.022-(F-1.685)2:HD=:P F-5.943P=Q-(H-0.315+8.4052-(8.405-AbsF)2:HD=:P F5.943P=Q-(H+1.37+6.0222-(6.022-(F-1.685)2:HD=:P (H:设计标高;Q:实测标高） 一、横断面面积计算 在施工设计阶段(construction detail design phase)，一般多利用路基实测的横断面图进行横断面面积计算。初步设计阶段(prehminary desig