Разбиение на участки

Sub DoAutoInsert
   Radius = 50                                                               
   Set LayerWater = Zulu.ActiveMapDoc.Layers.GetItemByUserName("водопровод")               
   Set LayerValve = Zulu.ActiveMapDoc.Layers.GetItemByUserName("Арматура")         
   Set RetPoint = CreateObject("ZuluLib.ZPoint")                                    
   Set Geom = CreateObject("ZuluLib.ZGeometry")                              
   Set Keys = LayerValve.SelectByType(-1, -1)                                    
   Set Elems = LayerValve.EnumElements
   Elems.MoveFirst
   Set Out = OpenOutputChannel ("Сообщения")                                       
   Out.Clear                                                      
   Out.Put "Start" + CHR(10)                                                   
   j = 0
   n = 0
   Do
      If Elems.IsEOF then exit do                                          
      j = j + 1
      Set Pnts = Elems.GetPoints
      PipeId = LayerWater.GetClosestElementByXY(Pnts.GetX(1),Pnts.GetY(1),Radius,false,RetPoint)      
      If PipeId <> -1 Then                                                   
         Set El = LayerWater.Elements.GetElement(PipeId)                                    
         If El.GraphType = eGraphTypePrimPolyline Or El.GraphType = eGraphTypeTypedPolyline Then         
            Set Ppl = El.PolyPolyLine
            If Ppl.Count = 1 Then                                                      
               Set Pl = Ppl.Item(0)                                                
               For i = 1 To Pl.NumTops - 1
                  D = Geom.Distance(Pl.GetX(i), Pl.GetY(i), Pl.GetX(i + 1), Pl.GetY(i + 1))
                  D1 = Geom.Distance(Pl.GetX(i), Pl.GetY(i), RetPoint.X, RetPoint.Y)
                  D2 = Geom.Distance(Pl.GetX(i + 1), Pl.GetY(i + 1), RetPoint.X, RetPoint.Y)
                  If (D1 + D2 - D) < 2 Then                                          
                     Idx = i   - 1                                                   
                     Exit For
                  End If 
               Next
               InsertedValveId = LayerWater.InsertSymbol(PipeId, Idx, 0, RetPoint.X, RetPoint.Y, 9, 1)   
               If InsertedValveId <> -1 Then n = n + 1                                       
            End If
         End If
      End If
      Out.Clear
      Out.Put CStr(j) + "/" + CStr(Keys.Count) + CHR(10)
      Elems.MoveNext
   Loop   
   Out.Put "Finish" + CHR(10)
   MsgBox "Готово!" + CHR(10) + "Обработано точек: " + CStr(j) + CHR(10) + "Врезано задвижек: " + CStr(n)
End Sub