秦艽 管线管点的平移，旋转，复制，延长，该怎么做，

<P>程序第一步需要在地图上选择（矩形选，多边选，点选），获取选择集，即FEATURESELECTION ，在这里获取选择集合中的每个FEATURE ， 但是没有办法把他转为ILINE，或者IPOINT 类型，</P>

<P>不知道该怎么实现这些功能，或者有其他的思路，</P>

<P>你选择到的要素能取出来的话</P>
<P>再定义你的ipoint和iline等，直接可以=同你选择的要素的</P>
<P>那样就可以进行操作了</P>

<P>程序代码，是这样的，</P>
<P> Set pFeatureLayer = g_pFeatureSelect<BR>       Set pFeatureClass = pFeatureLayer.FeatureClass<BR>       Set pFeatureCursor = pFeatureClass.Search(Nothing, False)<BR>       Set pFeature = pFeatureCursor.NextFeature<BR>       While Not pFeature Is Nothing<BR>               set Pline =pFeature.shape<BR>               pLine.FromPoint.x = pLine.FromPoint.x + (g_pMoveLinePoint2.x - g_pMoveLinePoint1.x)<BR>               pLine.FromPoint.y = pLine.FromPoint.y + (g_pMoveLinePoint2.y - g_pMoveLinePoint1.y)<BR>               pLine.ToPoint.x = pLine.ToPoint.x + (g_pMoveLinePoint2.x - g_pMoveLinePoint1.x)<BR>               pLine.ToPoint.y = pLine.ToPoint.y + (g_pMoveLinePoint2.y - g_pMoveLinePoint1.y)<BR>                Next I<BR>          Set pFeature = pFeatureCursor.NextFeature<BR>       Wend</P>

<P>但是在进入这个函数的时候就提示  set Pline =pFeature.shape<BR> 类型不匹配，  我设了一个，GEOMEATRY 对象，如下，set pGeometry =pfeature.shape </P>
<P>set pline=pGeometry  ,结果在这句时也提示错，</P>