我有一个mapx所编写的设置北京54坐标的程序,请问如何转换成mapxtreme for java的程序,急啊~~~

<P>下面是mapx的程序,请问高手,如何变成mapxtrem for java的程序,急~~~~</P>

<P>'设置地图显示坐标系统为北京54坐标<BR>Function SetMapCoordSys54()<BR> Dim bResult<BR> Dim objMapX<BR> Dim objDatum,objAffineTransform,objBounds,objCoordSys<BR> <BR> Set objMapX = GetMapEngine()<BR> <BR> bResult = CreateMapRectangle(objBounds)<BR> bResult = CreateMapCoordSys(objCoordSys)<BR> <BR> objBounds.Set 0,0,20700000,4300000<BR> <BR> 'OBJECT.Set (Type, [Datum], [Units], [OriginLongitude], [OriginLatitude],<BR> '   [StandardParallelOne], [StandardParallelTwo], [Azimuth], [ScaleFactor],<BR> '   [FalseEasting], [FalseNorthing], [Range], [Bounds], [AffineTransform] )</P>
<P><BR> objCoordSys.Set 0,,7,,,,,,,,,,objBounds<BR> <BR> Set objMapX.DisplayCoordSys = objCoordSys<BR> Set objMapX.NumericCoordSys = objCoordSys<BR> <BR>    SetMapCoordSys54 = True<BR> <BR>End Function</P>