Le portail francophone de la géomatique

Bonjour,
J'arrive à afficher une Pline mais pas une Pline Multiple !!
Le code est le suivant:

objType1=ObjectInfo(Fusion .obj, OBJ_INFO_TYPE)
if (objType1=OBJ_TYPE_PLINE) then
    counter=ObjectInfo(Fusion .obj, OBJ_INFO_NPNTS)
    for i=1 to counter
        PX1=ObjectNodeX(Fusion .obj, 1, i) 'erreur!!!
        PY1=ObjectNodeY(Fusion .obj, 1, i)
    next
end if

l'erreur est la suivante: argument 3  en dehors des limites (voir ligne erreur ci-dessus).
Merci de votre aide