程序隧道专版.docVIP

5800程序隧道专版FileName:RESET????初始化程序 Norm 1:50→C:12345→J RESET PW?I:I=J=500→DimZ?? 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量以保证不浪费内存 50→Z[C+22]：本程序设置变量个数目前50个刚刚够用。 PASSWORDS?I:I→Z[C+39]??????重设要素保护密码 Cls:Stop FileName:DATLOCK??????要素保护密码确定认程序 Cls:Norm 1:50→C PASSWORDS?J:Cls:J≠Z[C+39]=Stop FileName:SHELL(外壳程序) 50→C????;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致 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