Le portail francophone de la géomatique

Bonjour,
Je dois regrouper des segments de droites entre eux (en fait des droites représentant une voie de chemin de fer).
Tous se passe bien lorsque je les "Combine" sous MapBasic (Objects Combine Data....)

Mais lorsque je veux récupérer les coordonnées de chaques points, tous se passe bien
sauf dans un cas très particulier que je retrouve malheuresement souvent. Le voici:
Du point A je vais à B, puis de B à C, puis de C à D, puis ....=>pas d'erreur
Du point A je vais à B, puis de B à C, puis de C à B, puis de B à A => pas d'erreur
Du point A je vais à B, puis de B à C, puis de C à B, puis de B à D =>erreur

Programme pour récuperer les coordonnées X, Y:
fetch first from Fusion
do while not eot(Fusion)
    objType=ObjectInfo(Fusion .obj, OBJ_INFO_TYPE)
     if (objType=OBJ_TYPE_PLINE)
         counter=ObjectInfo(Fusion .obj, OBJ_INFO_NPNTS)
         for i=1 to counter
    PX1=ObjectNodeX(Fusion .obj, 1, i)
    PY1=ObjectNodeY(Fusion .obj, 1, i)
          next
      end if
      fetch next from Fusion
loop

Une erreur apparait sur PX1: argument 3 en dehors des limites.

Quelqu'un connait -il la ruse de sioux pour contourner ce problème?
Merci