| |
Static pMxDoc As IMxDocument
Static pFtrLyr As IFeatureLayer
Static pFtrCls As IFeatureClass
Static lID As Long
Static dDis As Double
Static lThisOID As Long
Static pQryFltr As IQueryFilter
Dim pFtrCsr As IFeatureCursor
Dim pFtrIdx As IFeatureIndex
Dim pIdxQry As IIndexQuery
lThisOID = [FID]
If pMxDoc Is Nothing Then
Set pMxDoc = ThisDocument
Set pFtrLyr = pMxDoc.FocusMap.Layer(0)
Set pFtrCls = pFtrLyr.FeatureClass
Set pQryFltr = New QueryFilter
End If
pQryFltr.WhereClause = pFtrCls.OIDFieldName + " <> " & lThisOID
Set pFtrCsr = pFtrCls.Search(pQryFltr, False)
Set pFtrIdx = New FeatureIndex
Set pFtrIdx.FeatureClass = pFtrCls
Set pFtrIdx.FeatureCursor = pFtrCsr
pFtrIdx.Index Nothing, Nothing
Set pIdxQry = pFtrIdx
pIdxQry.NearestFeature pFtrCls.GetFeature(lThisOID).Shape, lID, dDis
Set pIdxQry = Nothing
Set pFtrIdx = Nothing
'
' Put lID in the box below the Advaned Window
'
|