功能 : 坐标正反算 ( 含高程 ), 把要素内置化( 无需改程序文件, 即可更换路线, 同时存两条线要素) 另含两个边仰( 一个横向坡 , 一个纵向坡 ) 坡放样模块 .帮助文件未完成程序浏览 :FileName:RESET 初始化程序Norm 1:50 →C:12345 →J "RESET PW"I:I=J=>500→DimZ 为数据库增加额外变量500 个，在 SET、 SETPFDYS程序根据实际再增减变量50→ Z[C+22] "PASSWORDS"I:I→Z[C+39] 重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50→C "PASSWORDS"I:Cls:I≠Z[C+39]=>StopFileName:SHELL( 外壳程序 ) 50→ C ; 在扩充变量预留前50 个给别的程序用。如不够就适量加大。RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致Z[C+35] →I:"STATION-N"I:I→Z[C+35] 设置测站N坐标Z[C+36] →I:"STATION-E"I:I→Z[C+36] 设置测站E坐标Z[C+44] →I:"STATION-Z"I:I→Z[C+44] 设置测站Z 坐标Z[C+45] →I:"STATION-HI"I:I→Z[C+45] 设置仪高Z[C+41] →I:"GC-DH"I:I→Z[C+41] 放样点高差常数Norm 1 Z[C+23] →N 当前分段要素N 坐标Z[C+24] →E 当前分段要素E 坐标Z[C+25] →M 当前分段要素起点桩号Z[C+26] →H 当前分段要素起点方位角（正北）单位：弧度Z[C+27] →A 当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[C+28] →R 当前分段要素终点曲率有左偏负右偏正（注意不半径）Z[C+29] →L 当前分段要素长度Z[C+3] →W Z[C+32] →I:"DAT1 2 3"I:I→ Z[C+32] 平曲线要素数库类型选择1 为内置式， 2 文件式， 3 实时输入 ( 查看当前要素值) 0→I Z[C+4] →I:"1 2 3"I:I→Z[C+4] 选择本程序模式默认为坐标正算，1 坐标反算，2 横向边仰坡放样， 3，纵向边仰坡放样( 隧道进出口用到)Lbi 1 Z[C+4] →I I=1=>Prog"TURNZH" I=2=>Prog"HXBYP" I=3=>Prog"ZXBYP" Lbi A Deg:Norm 1:Cls Z[C+1] →G:"ZH"G:G →Z[C+1] ;G 桩求桩号Z[C+2] →B:"JL"B:B→Z[C+2] ;B 横向距离，左正右负Lbi B Prog "ZBJS" ; 坐标正算Prog "GCJS" ; 高程计算Fix 3:Cls ; 设置三位小数"ZH＝":Locate 4,1,G ; 第一行显示桩号"X＝ ":Locate 3,2,X ; 第二行显示X(N) 坐标"Y＝ ":Locate 3,3,Y ；第三行显示Y(E) 坐标Prog "GCJS" ; 高程计算"Z":Locate 2,4,Z+Z[C+41] ；第四行显示Z 坐标Locate 10,4,Z[C+2] ；第四行显...
VIP
