同一坐标系统下坐标有多种不同的表现形

式，一种形式实际上就是一种坐标系。如空间直

角坐标系（ ， ， ）、大地坐标系（ ， ）、

平面直角坐标（ ， ）等。通过坐标统的转换我

们得到了BJ54坐标系统下的空间直角坐标，我们

还须在BJ54坐标系统下再进行各种坐标系的转

换，直至得到工程所需的坐标。

1）将空间直角坐标系转换成大地坐标系，得-Sub btnCal_OnClick

dim SpaceForm

dim X, Y, Z, B, L, H, Elli, i, A_earth, E_earth

set SpaceForm=document.Space

for i = 0 to 2

if SpaceForm.optElli（i）.checked Then Elli =

SpaceForm.optElli（i）.value