ldystf221 发表于 2013-5-15 19:43:24

坐标反算程序，带自动计算方位角

Filename:ZBFS
"x/y鉎D/#E640 Q1V1"?
Deg:Fix 3?
"x@E773@E774@E761@E772(m)="?鉇:"y@E773@E774@E761@E772(m)="?鉈?
Lbl 0:"x@E765@E76E@E764(m),0譭nd="?鉉?
C=0譍oto E?
"y@E765@E76E@E764(m)="?鉊?
Pol(C-A,D-B)?
List Ans鉐:J<0譐+360鉐?
"HD(m)=":List Ans?
"#E640=":J>DMS?
Goto 0?
Lbl E:"Q1V1譋nd"

DAS 发表于 2013-5-15 20:18:23

请修正乱码
页: [1]
查看完整版本: 坐标反算程序，带自动计算方位角