转自网络
'功能描述:求两线的交点
'传入参数:
'返回参数:交点
'依赖关系:
'作者:
'创建日期
'**************************************************
Public Function FindIntersection(pLines1 As ITopologicalOperator, plines2 As ITopologicalOperator, maxDev As Double) As IPoint
Dim pIntersect As IGeometry
Set pIntersect = pLines1.Intersect(plines2, esriGeometry0Dimension)
If pIntersect Is Nothing Then Exit Function
&nbs
……