GPS测得的WGS1984经纬度坐标投影到BEIJING1954

<P>问题是这样的~我现在手上有GPS测得的经、纬度地理坐标数据，通过以下代码将它们生成点.shp文件：</P>
<P>    Do Until rs.EOF<BR>   Dim pPoint As IPoint<BR>   Set pPoint = New Point<BR>   pPoint.PutCoords val(rs.Fields("经度")), val(rs.Fields("纬度"))<BR>   Dim pFea As IFeature<BR>   Set pFea = pFeatureclass.CreateFeature<BR>   With pFea<BR>     .value(2) = val(rs.Fields("经度"))<BR>     .value(3) = val(rs.Fields("纬度"))<BR> <BR>     Set .Shape = pPoint<BR>   End With<BR>   pFea.Store<BR>   rs.MoveNext<BR> Loop<BR> pFeaWSEdit.StopEditOperation<BR> Set pFeatureLayer = New FeatureLayer<BR> Set pFeatureLayer.FeatureClass = pFeatureclass<BR> pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName<BR> <BR> Map.AddLayer pFeatureLayer<BR> Map.Refresh</P>
<P>生成之后我想把它进行一次投影变换，将GPS测得的WGS1984经纬度坐标投影到BEIJING1954，哪位高手能告诉我该怎么做？</P>

<P>在arcmap下将图层的坐标设成你想要有54坐标，加入你的shp，将shp导出一定要选择“按图层的坐标系”，ok</P>

<P>谢谢楼上的兄弟~</P>
<P>但是我的意思是想写程序实现这个转化该怎么写~谁能给我一个大体的思路提示吗？</P>