隧道坐标放样程序.xls

隧隧道道坐坐标标放放样样程程序序 隧隧道道施施工工中中 必必须须保保证证测测量量精精度度 同同时时因因隧隧道道内内测测量量条条件件比比较较复复杂杂 要要求求放放样样速速度度要要快快 本本程程序序在在保保证证精精度度的的基基础础上上确确保保放放样样速速度度快快 Y SDCLCXY SDCLCX 行行号号程程序序说说明明 1 1 1 1 2 2 3 3 4 4 提提示示有有几几段段计计算算 按按EXEEXE键键 2 2Lb1Lb1 0 MS A 0 MS A MSMS 显显示示选选择择计计算算段段落落 1 1 2 2 3 3 4 4 如如下下介介绍绍 3 3IfIf A 1 ThenA 1 Then Goto1 IfEnd Goto1 IfEnd 1 1 右右线线第第一一圆圆曲曲线线 4 4IfIf A 2 ThenA 2 Then Goto2 IfEnd Goto2 IfEnd 2 2 右右线线第第一一直直线线 5 5IfIf A 3 ThenA 3 Then Goto3 IfEnd Goto3 IfEnd 3 3 右右线线第第二二圆圆曲曲线线 6 6IfIf A 4 ThenA 4 Then Goto4 IfEnd Goto4 IfEnd 4 4 右右线线第第二二直直线线 7 7Lb1Lb1 1 X X Y Y Z C 1 X X Y Y Z C 在在MSMS选选择择了了 1 1 便便进进行行第第一一段段圆圆曲曲线线计计算算 输输入入测测点点三三维维坐坐标标 8 8X 3972 928 D Y 2118 2249 E X 3972 928 D Y 2118 2249 E 测测点点与与圆圆心心坐坐标标的的增增量量 9 9POl D E JPOl D E J 0 0 J 360 J J 360 J 圆圆心心至至测测点点方方位位角角 并并保保证证方方位位角角在在0 3600 360之之间间 1010109 51 56 85 J G 109 51 56 85 J G 圆圆心心至至圆圆曲曲线线起起点点的的方方位位角角与与上上式式之之差差 对对应应圆圆心心角角 1111 K 0 017453292 G 3300 63027 554 K K 0 017453292 G 3300 63027 554 K 测测点点对对应应里里程程 0 017453292 1800 017453292 180 1212 N I 3305 37 N N I 3305 37 N 偏偏距距 右右线线交交点点1 1左左转转 半半径径33003300 设设计计线线右右偏偏5 375 37 1313Prog BMY P C H P Prog BMY P C H P 调调用用竖竖曲曲线线程程序序 计计算算测测点点对对应应里里程程的的设设计计高高程程 P P为为实实测测点点与与设设计计高高的的高高 差差 1414Prog CQD Prog CQD 调调用用开开挖挖程程序序 使使用用到到变变量量N PN P 1515IfIf A 1 ThenA 1 Then Goto1 GotoGoto1 Goto 1 IfEnd 1 IfEnd 循循环环计计算算 圆圆曲曲线线 第第一一段段 1616Lb1Lb1 2 X X Y Y Z C 2 X X Y Y Z C 在在MSMS选选择择了了2 2便便进进行行第第二二段段直直线线计计算算 输输入入测测点点三三维维坐坐标标 1717X 3156 806 D Y 1084 807 E X 3156 806 D Y 1084 807 E 测测点点与与直直线线段段起起点点 YZYZ点点 中中线线坐坐标标的的增增量量 1818POI D E JPOI D E J 0 0 J 360 J J 360 J 起起点点至至测测点点方方位位角角 并并保保证证方方位位角角在在0 3600 360之之间间 1919J 14 17 40 6 G J 14 17 40 6 G 起起点点至至测测点点方方位位角角与与起起点点至至下下一一交交点点方方位位角角之之差差 2020 K 63348 431 cosG I K K 63348 431 cosG I K 三三角角函函数数求求测测点点里里程程 2121 N sinG I N N sinG I N 三三角角函函数数求求偏偏距距 左左 右右 2222Prog BMY P C H P Prog BMY P C H P 调调用用竖竖曲曲线线程程序序 计计算算测测点点对对应应里里程程的的设设计计高高程程 2323Prog CQD Prog CQD 调调用用开开挖挖程程序序 使使用用到到变变量量N PN P 2424IfIf A 2 ThenA 2 Then Goto2 GotoGoto2 Goto 2 IfEnd 2 IfEnd 循循环环计计算算 直直线线段段 第第二二段段 2525Lb1Lb1 3 X X Y Y Z C 3 X X Y Y Z C 在在MSMS选选择择了了3 3便便进进行行圆圆曲曲线线计计算算 输输入入测测点点三三维维坐坐标标 2626X 2741 021 D Y 3555 265 E X 2741 021 D Y 3555 265 E 测测点点与与圆圆心心坐坐标标的的增增量量 2727POI D E JPOI D E J 0 0 J 360 J J 360 J 圆圆心心至至测测点点方方位位角角 并并保保证证方方位位角角在在0 3600 360之之间间 2828J 284 17 40 6 G J 284 17 40 6 G 圆圆心心至至圆圆曲曲线线中中点点的的方方位位角角与与上上式式之之差差 对对应应圆圆心心角角 2929 K 0 017453292 G 2502 63555 495 K K 0 017453292 G 2502 63555 495 K 测测点点对对应应里里程程 0 017453292 1800 017453292 180 3030 N 2496 63 I N N 2496 63 I N 偏偏距距 右右线线交交点点2 2右右转转 半半径径25022502 设设计计中中线线右右偏偏5 375 37 3131Prog BMY P C H P Prog BMY P C H P 调调用用竖竖曲曲线线程程序序 计计算算测测点点与与对对应应里里程程的的设设计计高高程程 3232Prog CQD Prog CQD 调调用用开开挖挖程程序序 使使用用到到变变量量N PN P 3333IfIf A 3 ThenA 3 Then Goto3 GotoGoto3 Goto 3 IfEnd 3 IfEnd 循循环环计计算算 圆圆曲曲线线 第第三三段段 3434Lb1Lb1 4 X X Y Y Z C 4 X X Y Y Z C 在在MSMS选选择择4 4便便进进行行直直线线段段计计算算 输输入入测测点点三三维维坐坐标标 3535X 4665 716 D Y 1965 073 E X 4665 716 D Y 1965 073 E 测测点点与与直直线线段段起起点点 YZYZ点点 中中线线坐坐标标的的增增量量 3636POI D E JPOI D E J 0 0 J 360 J J 360 J 起起点点至至测测点点方方位位角角 并并保保证证方方位位角角在在0 3600 360之之间间 3737J 50 26 10 8 G J 50 26 10 8 G 起起点点至至测测点点方方位位角角与与起起点点至至下下一一交交点点方方位位角角之之差差 3838 K 65133 7361 cosG I K K 65133 7361 cosG I K 三三角角函函数数求求测测点点里里程程 3939ProgProg DATADATA 按按设设计计自自动动选选择择开开挖挖断断面面尺尺寸寸计计算算 不不需需时时刻刻记记着着开开挖挖断断面面的的变变化化 4040 N sinG I N N sinG I N 三三角角函函数数求求偏偏距距 左左 右右 4141Prog BMY P C H P Prog BMY P C H P 调调用用竖竖曲曲线线程程序序 计计算算测测点点与与对对应应里里程程的的设设计计高高程程 4242Prog CQD Prog CQD 调调用用开开挖挖程程序序 使使用用到到变变量量N PN P 4343IfIf A 4 ThenA 4 Then Goto4 GotoGoto4 Goto 0 IfEnd 0 IfEnd 循循环环计计算算 直直线线段段 第第四四段段 说说明明 本本程程序序是是一一种种新新的的尝尝试试在在不不改改变变原原来来计计算算方方法法的的基基础础上上 增增加加了了程程序序语语言言的的调调用用 使使得得在在隧隧道道测测量量中中更更 简简捷捷 提提高高了了测测量量速速度度 打打开开计计算算机机的的程程序序选选择择测测量量线线路路在在何何种种曲曲线线内内 按按隧隧道道掘掘进进顺顺序序分分 1 1圆圆曲曲线线段段 2 2直直线线段段 3 3圆圆 曲曲线线段段 4 4直直线线段段 还还自自动动选选择择各各类类围围岩岩开开挖挖尺尺寸寸 防防止止前前后后测测量量断断面面时时还还要要调调换换数数据据 在在输输入入三三维维坐坐标标后后 计计算算机机马马 上上计计算算出出K K里里程程 P P高高差差 N N左左右右 S S超超欠欠 曹曹智智勇勇编编写写 20132013 1 1 6 6 竖竖曲曲线线段段高高程程计计算算子子程程序序 BMYBMY 行行号号程程序序说说明明 1 1 IfIf K K 63565 55 Then63565 55 Then 282 821 63750 282 821 63750 K 0 0053393 H IfEnd K 0 0053393 H IfEnd 交交点点前前直直线线段段高高程程计计算算 2 2 IfIf K K 6375063750 AndAnd K K 63565 55 Then63565 55 Then 282 821 K 282 821 K 63565 55 31000 0 0053393 63750 63565 55 31000 0 0053393 63750 K H IfEnd K H IfEnd 交交点点前前竖竖曲曲线线段段高高程程计计算算 3 3 IfIf K K 63934 4563934 45 AndAnd K K 63750 Then63750 Then 282 821 K 282 821 K 63934 45 31000 0 0195 K 63934 45 31000 0 0195 K 63750 H IfEnd 63750 H IfEnd 交交点点后后竖竖曲曲线线段段高高程程计计算算 4 4 IfIf K K 6566065660 AndAnd K K 63934 45 Then63934 45 Then 282 821 K 282 821 K 63750 0 0195 H IfEnd 63750 0 0195 H IfEnd 交交点点后后直直线线段段高高程程计计算算 这这里里6566065660里里程程是是根根据据隧隧道道进进出出口口各各施施 工工一一半半而而定定的的 5 5 H H H H 显显示示计计算算结结果果 第 6 页 共 8 页 隧隧道道坐坐标标放放样样程程序序 隧隧道道施施工工中中 必必须须保保证证测测量量精精度度 同同时时因因隧隧道道内内测测量量条条件件比比较较复复杂杂 要要求求放放样样速速度度要要快快 本本程程序序在在保保证证精精度度的的基基础础上上确确保保放放样样速速度度快快 Z SDCLCXZ SDCLCX 行行号号程程序序说说明明 1 1 1 1 2 2 3 3 提提示示有有几几段段计计算算 段段落落记记号号可可按按EXEEXE键键取取得得 2 2Lb1Lb1 0 MS A 0 MS A MSMS显显示示选选择择计计算算段段落落 1 1 2 2 3 3 如如下下介介绍绍 3 3IfIf A 1 ThenA 1 Then Goto1 IfEnd Goto1 IfEnd 1 1 右右线线第第一一直直线线 4 4IfIf A 2 ThenA 2 Then Goto2 IfEnd Goto2 IfEnd 2 2 右右线线第第一一圆圆曲曲线线 5 5IfIf A 3 ThenA 3 Then Goto3 IfEnd Goto3 IfEnd 3 3 右右线线第第二二直直线线 1616Lb1Lb1 1 X X Y Y Z C 1 X X Y Y Z C 在在MSMS选选择择了了1 1便便进进行行第第一一段段直直线线计计算算 输输入入测测点点三三维维坐坐标标 1717X 2967 0128 D Y 999 5667 E X 2967 0128 D Y 999 5667 E 测测点点与与直直线线段段起起点点 YZYZ点点 中中线线坐坐标标的的增增量量 1818POI D E JPOI D E J 0 0 J 360 J J 360 J 起起点点至至测测点点方方位位角角 并并保保证证方方位位角角在在0 3600 360之之间间 1919J 14 17 40 6 G J 14 17 40 6 G 起起点点至至测测点点方方位位角角与与起起点点至至下下一一交交点点方方位位角角之之差差 2020 K 63141 521 cosG I K K 63141 521 cosG I K 三三角角函函数数求求测测点点里里程程 2121 N sinG I N N sinG I N 三三角角函函数数求求偏偏距距 左左 右右 2222Prog BMZ P C H P Prog BMZ P C H P 调调用用竖竖曲曲线线程程序序 计计算算测测点点对对应应里里程程的的设设计计高高程程 2323Prog CQD Prog CQD 调调用用开开挖挖程程序序 使使用用到到变变量量N PN P 2424IfIf A 1 ThenA 1 Then Goto1 GotoGoto1 Goto 1 IfEnd 1 IfEnd 循循环环计计算算 直直线线段段 第第一一段段 第 7 页 共 8 页 2525Lb1Lb1 2 X X Y Y Z C 2 X X Y Y Z C 在在MSMS选选择择了了2 2便便进进行行圆圆曲曲线线计计算算 输输入入测测点点三三维维坐坐标标 2626X 2755 661 D Y 3532 165 E X 2755 661 D Y 3532 165 E 测测点点与与圆圆心心坐坐标标的的增增量量 2727POI D E JPOI D E J 0 0 J 360 J J 360 J 圆圆心心至至测测点点方方位位角角 并并保保证证方方位位角角在在0 3600 360之之间间 2828J 284 12 55 81 G J 284 12 55 81 G 圆圆心心至至圆圆曲曲线线中中点点的的方方位位角角与与上上式式之之差差 对对应应圆圆心心角角 2929 K 0 017453292 G 2501 63562 031 K K 0 017453292 G 2501 63562 031 K 测测点点对对应应里里程程 0 017453292 1800 017453292 180 3030 N 2506 37 I N N 2506 37 I N 偏偏距距 右右线线交交点点2 2右右转转 半半径径25022502 设设计计中中线线右右偏偏5 375 37 3131Prog BMZ P C H P Prog BMZ P C H P 调调用用竖竖曲曲线线程程序序 计计算算测测点点与与对对应应里里程程的的设设计计高高程程 3232Prog CQD Prog CQD 调调用用开开挖挖程程序序 使使用用到到变变量量N PN P 3333IfIf A 2 ThenA 2 Then Goto2 GotoGoto2 Goto 2 IfEnd 2 IfEnd 循循环环计计算算 圆圆曲曲线线 第第二二段段 3434Lb1Lb1 3 X X Y Y Z C 3 X X Y Y Z C 在在MSMS选选择择3 3便便进进行行直直线线段段计计算算 输输入入测测点点三三维维坐坐标标 3535X 4687 879 D Y 1935 786 E X 4687 879 D Y 1935 786 E 测测点点与与直直线线段段起起点点 YZYZ点点 中中线线坐坐标标的的增增量量 3636POI D E JPOI D E J 0 0 J 360 J J 360 J 起起点点至至测测点点方方位位角角 并并保保证证方方位位角角在在0 3600 360之之间间 3737J 50 26 12 6 G J 50 26 12 6 G 起起点点至至测测点点方方位位角角与与起起点点至至下下一一交交点点方方位位角角之之差差 3838 K 65139 665 cosG I K K 65139 665 cosG I K 三三角角函函数数求求测测点点里里程程 3939 N sinG I N N sinG I N 三三角角函函数数求求偏偏距距 左左 右右 4040Prog BMZ P C H P Prog BMZ P C H P 调调用用竖竖曲曲线线程程序序 计计算算测测点点与与对对应应里里程程的的设设计计高高程程 4141Prog CQD Prog CQD 调调用用开开挖挖程程序序 使使用用到到变变量量N PN P 4242IfIf A 3 ThenA 3 Then Goto3 GotoGot