1. Deg：Fix 3:20 →DimZ82. “BPS[1],BPS[2]”? J83. If J=1:Then Goto 0：Else Goto 1：IfEend84. Lbl 085. “B”?A: “SJG”B:“CLG”?C:“i1”？D86. “L=”:A+（B-C）×D◢7. Goto 088. Lbl 189. B”?A: “sjg” ？B:“CLG”?C:“i2”？D8
2. “BPS[1],BPS[2]”? J8
3. If J=1:Then Goto 0：Else Goto 1：IfEend8
4. Lbl 08
5. “B”?A: “SJG”B:“CLG”?C:“i1”？D8
6. “L=”:A+（B-C）×D◢
7. Goto 08
8. Lbl 18
9. B”?A: “sjg” ？B:“CLG”?C:“i2”？D8
10. “L=”:A+(B-8-C) ×D+128
11. Goto 1
操作说明: 1 “BPS[1],BPS[2]”? 1为单级边坡 2为两级边坡
2．B? 输入路基半宽
3.SJG? 输入设计高程
4.CLG? 输入测量高程
5i(1.2) 输入坡率
6 L得出坡脚距离中装距离
这样一个小程序可以帮助很快的计算出实地坡脚距离中桩长度，再用全站仪或5800坐标正反算程序空间有ROAD-2可以很快的得到放样坐标，程序中的8和12按道路设计自己计算！
[ 本帖最后由 csccbjs 于 2011-1-25 16:59 编辑 ]
