计算器坐标放样程序.docVIP

一般直线，曲线任意桩号放样程序A 7QX(文件名) LbI3:Fixm:{L}:L≤53459.53=Prog”7”:GotoAΔLbIA: Prog”2”:T≤0=Goto7ΔTE=Goto0ΔProg”3”:Prog”4”: LbI1:{SU}:S=0=Goto3ΔRec(S,Z+QF+U):Prog”5”:Goto1: LbI0:TH-P-V=Goto6Δprog”6”:Prog”4”: LbI2:{SU}:S=0= Goto3ΔRec(S,Z+OF+U):Prog”5”:Goto2: LbI7: Rec(-T,Z+180):Prog”4”: LbI4:{SU}:S=0= Goto3ΔRec(S,Z+U:Prog”5”: Goto4: LbI6:I=W:G=Z+180(H-P-(V+E)÷2)÷兀RF:Z=G+180: Rec(I,G:K=I+C:G=J+D:T≥H-P= Goto5ΔT=H-L:F=-F:E=V:Prog”3”:F=-F:N=K+I▲M=G+J▲ LbI8:{SU}:S=0=Goto3ΔRec(S,Z+180-QF+U:Prog”5”: Goto8: LbI5 :Rec(T-H+P,Z+180):N=K+I▲M=G+J▲ LbI9: {SU}:S=0=Goto3ΔRec(S,Z+180+U):Prog”5”:Goto9 2(文件名) T=L-P:Po