Le portail francophone de la géomatique

Sub Tech_Line

    ' Centre la carte tous les 5km le long du parcours

    'Récupère les noeuds de la ligne
    Dim map_win_id as integer
    map_win_id = FrontWindow()

    Dim mapx as float, mapy as float
    Dim i as integer
    Dim x() as float, y() as float
    Dim Xi as float, Yi as float
    Dim coeff as float
    Dim more As Logical

    Redim x(objectInfo (Loire_45.obj, OBJ_INFO_NPNTS))
    Redim y(objectInfo (Loire_45.obj, OBJ_INFO_NPNTS))

    ' Premier cadrage et création de point
    x(1) = ObjectNodeX(Loire_45.obj, 1, 1)
    y(1) = ObjectNodeY(Loire_45.obj, 1, 1)
    Set Map  Center (x(1), y(1))
    Create Point (x(1), y(1)) 

    Dim xa as float, ya as float, xb as float, yb as float

    For i = 1 to objectInfo (Loire_45.obj, OBJ_INFO_NPNTS)

        ' Point de départ
        xa = ObjectNodeX(Loire_45.obj, 1, i)
        ya = ObjectNodeY(Loire_45.obj, 1, i)

        ' Point d'arrivée
        xb = ObjectNodeX(Loire_45.obj, 1, i + 1)
        yb = ObjectNodeY(Loire_45.obj, 1, i + 1)

        ' Calcul du coefficient
        coeff = 5000 / Distance(xa,ya,xb,yb,"m")

        while coeff < 1            
            xi = xa + (xb - xa) * coeff
            yi = ya + (yb - ya) * coeff
            Set Map  Center (Xi, Yi)
             Create Point (Xi, Yi)   
            more = Ask("Voulez-vous continuer?", "OK", "Annuler") 
            If more = false then exit sub End if
            xa = xi
            ya = yi
            coeff = 5000 / Distance(xa, ya, xb, yb,"m")
        wend

    Next