坐标正反算多线版

1、一、初始化设置o偏移程序，本程序作用是解决与另一套程序的扩展变量，使更好FileName:OFFSET管理程序50C ;偏移量100ZC+22 ;要素偏移量10ZC+10最大线路条数（默认为设置为 10 条）4ZC+10ZC+11ReturnFileName:RESET 初始化程序Norm 1 12345JRESET-PW?I:I=J=500DimZ为数据库增加额外变量 500 个 ProgOFFSET DATA-PW?I:IZC+39重设要素保护Cls:StopFileName:DATALOCK要素保护Cls:Norm 1DATA-PW?J:Cls:JZC+39=Stop确定认程序这三个程序

2、非常重要。也是第一步要写入的。一口气写此三程序，然后运行 RESET，输入 12345（初始化，以防不经意初始化），再输入一个任意数当要素，本例输入 888。一、创建多线要素库、线路选择FileName:XLSET /:路线文件文件头设置/ Norm 1Prog OFFSETZC+5I:XLSEC?I:IZC+5 ;选择路线 C+ZC+22+4(ZC+5-1)DCls:XL:Locate 9,1,I ZD+3I:PQXDS?I:IZD+3ZD+4I:SQXDS?I:IZD+4 C+ZC+22DD+ZC+11ZD+1 ZD+1+7ZD+3+3ZD+2 For 1J To ZC+10-1 ZD+2

3、+7ZD+4ZD+5 D+4DZD+1+7ZD+3+3ZD+2NextZD+2+7ZD+4ZC+21ZC+21DimZFileName:XLSEC/:选择路线/ Norm 1:ClsProg OFFSETZC+5I:XLSEC?I:IZC+5 ;选择路线 C+ZC+22+4(ZC+5-1)D ZD+1ZC+6ZD+2ZC+7ZD+3ZC+8ZD+4ZC+9 ZC+6+1ZC+30 ZC+7+7ZC+31 ZC+30FZF+1M当前分段要素起点桩号 ZF+2N当前分段要素 N 坐标 ZF+3E当前分段要素 E 坐标ZF+4H当前分段要素起点方位角（正北）ZF+5A当前分段要素起点曲率有 ZF+6

4、R 当前分段要素终点曲率有 ZF+8-ML 当前分段要素长度负右偏正（注意不半径）负右偏正（注意不半径）此两程序是非常重要的。先运行 XLSET 会提示 XLSEC？ 也就叫你输入线路1-10，此时先输入 1，然后会提示 PQXDS?意思是确定平曲线要数段数，如你的工程要输入 4 段线元要素就在再输入 4，接着提示 SQXDS?意思是确定竖曲线变坡点数（起点和终点都算 1 点，因此最少为 3，如果你的工程没有变坡点，那么你就必须在工程终点后自己虚构一个变坡点），本例就先输入 4 吧。如果你要设置第二条线路，就在 XLSEC？输入 2一、要素输入FileName:DATASET/:设要素/ No

5、rm 1Prog OFFSETLbl SProg XLSEC0I:1PQX,2SQX?I;1 输入平曲线要素，2 输入竖曲线要素I0=ProgDATALOCKCls:I=0=StopI=1 = Goto 1I=2 = Goto 2 StopLbl 1 ZC+6+1F-1ZFFor 1J To ZC+8平曲线起点标志Cls:PQX:Locate 9,1,JZF+1M:SZH?M:MZF+1当前分段要素起点桩号J1=ZF+MZF ZF+2N:?N:NZF+2ZF+3E:?E:EZF+3180ZF+4H简单检错码当前分段要素 N 坐标当前分段要素 E 坐标SFWJ?H:H180H:HZF+4当前分段

6、要素起点方位角（正北）：度分秒当前分段要素起点曲率有负右偏正（注意是半径的ZF+5A:SR-1?A:AZF+5倒数）ZF+6R:ER-1?R:RZF+6倒数）N+E-M+H+A+RZF+7 F+7FNext当前分段要素终点曲率有负右偏正（注意是半径简单检错码ZF+1M:EZH?M:MZF+1终点桩号ZF+MZF 1ZF+2Goto S Lbi 2ZC+7D-1ZD+3 0ZD+50ZD+60ZD+7For 1J To ZC+9简单检错码平曲线终点标志;竖曲线要素输入部分竖曲线起点标志Cls:SQX:Locate 9,1,JZD+1I:BPDZH?I:IZD+1;请输入变坡点桩号 ZD+2K:B

7、PDGC?K:KZD+2;请输入变坡点高程 ZD+3R:?R:RZD+3;请输入半径 RJ1=(K-ZD-5)/(I-ZD-6)ZD-3 计算坡度If J2:ThenZD-4Abs(ZD-10-ZD-3)2ZD-2 计算切线长1ZD-1ZD-10-ZD-30=-1ZD-1ZD-10+ZD-6+ZD-5+ZD-4+ZD-3+ZD-2+ZD-1ZDIfEnd D+7D简单检错码Next1ZD-4竖曲线终点标志0ZD-30ZD-20ZD-10ZDGoto S输入线路的平竖曲线要素运行 DATASETXLSEC？ 输入线路11PQX,2SQX?1 输入平曲线要素，2 输入竖曲线要素，1 DATA-PW

8、?要素保护888，或者输入 ZC+39表示第 1 段PQX 1SZH?起点桩号 997.3463854 N？ X 起点坐标 3680.051575 E？ Y 起点坐标 3869.30352SFWJ？ 起点方位角 222548.639570596 SR-1? 起点曲率 11145ER-1？ 终点曲率 0PQX 2表示第 2 段SZH?起点桩号 1137.1963857689.597448 本值为要素检错码，如果你没有看到此值请核对以上程序红色代码是否有加黑三角，可能有误差N？ X 起点坐标 3807.021152 E？ Y 起点坐标 3927.871994SFWJ？ 起点方位角 255545.2

9、04266515SR-1? 起点曲率 0ER-1？ 终点曲率 0PQX 3表示第 3 段SZH?起点桩号 3028.1059999626.25531 本值为要素检错码，如果你没有看到此值请核对以上程序红色代码是否有加黑三角，可能有误差N？ X 起点坐标 5507.581585 E？ Y 起点坐标 4754.691909SFWJ？ 起点方位角 255545.204266515SR-1? 起点曲率 0ER-1？ 终点曲率 11200PQX 4表示第 4 段SZH?起点桩号 3198.10599910432.72688 本值为要素检错码，如果你没有看到此值请核对以上程序红色代码是否有加黑三角，可能有

10、误差N？ X 起点坐标 5658.637 E？ Y 起点坐标 4832.597SFWJ？ 起点方位角 295915.628042351 SR-1? 起点曲率 11200ER-1？ 终点曲率 11200EZH?终点桩号 3471.36138510765.01522 本值为要素检错码，如果你没有看到此值请核对以上程序红色代码是否有加黑三角，可能有误差XLSEC？ 输入线路11PQX,2SQX?1 输入平曲线要素，2 输入竖曲线要素，2 DATA-PW?要素保护888，或者输入 ZC+39表示第 1 点SQX 1BPDZH？ 变坡点桩号 1000BPDGC？ 变坡点高程 30.899R？ 变坡点半径

11、 -1（注意由于是起点所以没有半径，输入-1 特殊值）表示第 2 点SQX 2BPDZH？ 变坡点桩号 1265.467BPDGC？ 变坡点高程 33.288R？ 变坡点半径 12000表示第 3 点SQX 3BPDZH？ 变坡点桩号 2060BPDGC？ 变坡点高程 55.535R？ 变坡点半径 11000表示第 4 点 BPDZH？ 变坡点桩号 2600SQX 4BPDGC？ 变坡点高程 58.775R？ 变坡点半径 1（注意由于是终点所以没有半径，输入 1 特殊值）到此就已经把一条线的平竖曲线要素都输入完成了如果你要输入线路 2 请在XLSEC？ 输入线路20908085800 多线版现