Archived Forums

dim pPolyline as ipolyline
dim sClosed as string

set pPolyline = [Shape]
if pPolyline.IsClosed then sClosed = "Y" else sClosed = "N"

' Modify the following value, it's the search tolerance for the polylines
Const TOLERANCE = 100
Static pMxDoc As IMxDocument
Static pFtrLyr As IFeatureLayer
Static pFtrCls As IFeatureClass
Static pSpFltr As ISpatialFilter
Dim pTopOp As ITopologicalOperator
Dim lCnt As Long

    If pMxDoc Is Nothing Then
        Set pMxDoc = ThisDocument
        Set pFtrLyr = pMxDoc.FocusMap.Layer(1)
        Set pFtrCls = pFtrLyr.FeatureClass
        Set pSpFltr = New SpatialFilter
        pSpFltr.SpatialRel = esriSpatialRelIntersects
    End If
    
    Set pTopOp = [Shape]
    Set pSpFltr.Geometry = pTopOp.Buffer(TOLERANCE)
    lCnt = pFtrCls.FeatureCount(pSpFltr)
        
' Put lCnt in the box below the Advanced Window