求助！高手进来

<P>在ｍａｐ上画一个线端，怎么得到所有与这个线端相交的元素以及它们的交点</P>

<P>'*************************************************<BR>'‖功能：获取两条相交线段的交点集合<BR>'‖参数：pPolyline1 线段1<BR>'‖     pPolyline2 线段2<BR>'‖输出：交点集<BR>'*************************************************<BR><BR>Private Function GetPointsFromIntersectingPolylines(pPolyline1 As IPolyline, _<BR>                    pPolyline2 As IPolyline) As IPointCollection<BR>  Dim pTopoOptr As ITopologicalOperator</P>
<P>  On Error GoTo ErrorHandler</P>
<P>  Set pTopoOptr = pPolyline1<BR>  Set GetPointsFromIntersectingPolylines = pTopoOptr.Intersect(pPolyline2, esriGeometry0Dimension)</P>
<P>  Exit Function<BR>ErrorHandler:<BR>End Function</P>