I have about 4000 points that intersect lines where the lines now need to be broken. I know I can set up a topology rule to find all these areas but is there a way to break all the line at once without going through each one individually.

Any thoughts or suggestions?

Thanks,
Brad

Brad

Sub SplitAll()Dim pMxDoc As IMxDocumentSet pMxDoc = ThisDocument

Dim pMap As IMapSet pMap = pMxDoc.FocusMap

Dim pPointL As IFeatureLayerSet pPointL = pMap.Layer(0) 'point layer to split lines with

Dim pLineL As IFeatureLayerSet pLineL = pMap.Layer(1) 'line layer to be split

Dim pLineFC As IFeatureClassSet pLineFC = pLineL.FeatureClass

Dim pPointFC As IFeatureClassSet pPointFC = pPointL.FeatureClass

Dim pPointCursor As IFeatureCursorSet pPointCursor = pPointFC.Search(Nothing, False)

Dim pPointF As IFeatureSet pPointF = pPointCursor.NextFeature

Do Until pPointF Is NothingDim pPoint As IPointSet pPoint = pPointF.Shape

Dim pSF As ISpatialFilterSet pSF = New SpatialFilter

With pSFSet .Geometry = pPoint.GeometryField = "Shape".SpatialRel = esriSpatialRelIntersectsEnd With

Dim pLineCursor As IFeatureCursorSet pLineCursor = pLineFC.Search(pSF, True)

Dim pLineF As IFeatureSet pLineF = pLineCursor.NextFeature

Do Until pLineF Is NothingDim pPolyCurve As IPolycurveSet pPolyCurve = pLineF.Shape

Dim pToPoint As IPointSet pToPoint = pPolyCurve.ToPoint

Dim pFromPoint As IPointSet pFromPoint = pPolyCurve.FromPoint

If (pFromPoint.x = pPoint.x And pFromPoint.y = pPoint.y) Then'do nothingElseIf (pToPoint.x = pPoint.x And pToPoint.y = pPoint.y) Then'do nothingElseDim pFeatureEdit As IFeatureEditSet pFeatureEdit = pLineFpFeatureEdit.Split pPointF.ShapeEnd IfSet pLineF = pLineCursor.NextFeatureLoop

Set pPointF = pPointCursor.NextFeature

Loop

End Sub

Set pLineCursor = pLineFC.Search(pSF, False)

One pre-condition is all your points (in point layer) must fall exactly on the polyines (in polyine layer). Otherwise, it will not split.

Did you check whether your point layer and geographic network layer are in the same projection? The spatial operators and interfaces will usually fail if this is not true - with or without generating an error message.

My (.mxd) have first shape point and second shape lines.
When execuute the scrist my Status Bar of ArcView "say" Create, Edit or Execute a VBA code...

What is this?

Thank.
Adriano