求一用arcengine开发的 裁剪 的程序。

<P> Dim pEvlop As IEnvelope<BR>        pEvlop = New Envelope<BR>        pGeo.QueryEnvelope(pEvlop)<BR>        Dim pGeoCol As IGeometryCollection<BR>        pGeoCol = New GeometryBag<BR>        pCur = pFc.Search(Nothing, False)<BR>        pFtr = pCur.NextFeature()<BR>        While Not pFtr Is Nothing<BR>            pGeoCol.AddGeometry(pFtr.ShapeCopy)<BR>            pFtr = pCur.NextFeature()<BR>        End While<BR>        Dim pTopo1 As ITopologicalOperator<BR>        pTopo1 = New Polyline<BR>        pTopo1.ConstructUnion(pGeoCol)<BR>        pTopo1.Simplify()<BR>        pTopo1.Clip(pEvlop)<BR>        AxMapControl1.Refresh()</P>
<P>怎样才能在图上看到所裁剪出来的区域呢？程序处理的是一个路网。</P>

有ARCENGINE下载吗？