道路程序终极版.docVIP

5800道路程序终极版(附件为隧道版) 功能:坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要素)另含两个边仰(一个横向坡,一个纵向坡)坡放样模块.FileName:RESET????初始化程序Norm 1:50→C:12345→JRESET 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?J:Cls:J≠Z[C+39]=Stop????2008-08-07修改FileName: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]