Le portail francophone de la géomatique

--- Introduction d'un répertoire de fonctions MapBasic prédéfinies
include "mapbasic.def"


'--- Déclaration des différentes procédures
declare sub main
declare sub Exporter


'--- Déclaration impérative de la procédure principale propre à MapBasic
'--- Appel de la procédure Exporter
sub main
    call Exporter
end sub


sub Exporter 

'--- Déclaration des variables utilisées au cours de la procédure Exporter
dim carte_win_id, i as integer
dim X, Y, P, v_perimetre_brick as float
dim v_chem_exe, v_nom_brik as string


    '--- Enregistrement du chemin d'accès de l'application
    v_chem_exe=ApplicationDirectory$()

    '--- Ouverture de NomTable
    Open Table v_chem_exe & "03_Brick\NomTable.TAB" Interactive

    '--- Ouverture de la fenêtre carte
    Map From NomTable

    '--- Attribution du numéro identifiant la fenêtre lors de chaque nouvelle session
    carte_win_id = FrontWindow() 

    '--- Lancement de la boucle
    select * from NomTable 
    fetch Rec 1 from NomTable 
    do until eot(NomTable)=true 

        '--- Renseignement de la longitude de l'enregistrement sélectionné 
        X = CentroidX(NomTable.obj) 

        '--- Renseignement de la latitude de l'enregistrement sélectionné 
        Y = CentroidY(NomTable.obj) 

        '--- Renseignement du périmètre de l'enregistrement sélectionné 
        P = CartesianPerimeter(NomTable.obj, "km") 

        '--- Passage du périmètre de l'objet sélectionné dans une variable
        v_perimetre_brick = P 

        '--- Recentre la carte sur le barycentre de l'enregistrement sélectionné
        Set Map Center (X,Y) XY Units "m"     

        '--- Détermine un seuil de zoom égal au périmètre de l'enregistrement sélectionné divisé par 2 (seuil déterminé empiriquement au préalable)
        Set Map Zoom v_perimetre_brick/2 Units "km" 

        '--- Passage du libellé de l'objet sélectionné dans une variable
        v_nom_brik = NomTable.Libelle

        '--- Export de la fenêtre carte, actuellement centrée sur l'enregistrement sélectionné 
        Save Window carte_win_id As v_chem_exe & "05_Resultats\" & v_nom_brik & ".JPG" Type "JPEG"

        fetch next from NomTable
    loop 
end sub