Le portail francophone de la géomatique

Bonjour,

Je ne trouve pas la meilleure façon de procéder pour l'interface de mon programme mapbasic.

Il faut que l'utilisateur clic sur la carte pour localiser un endroit de dysfonctionnement, ensuite le programme s'exécute pour sélectionner des objets d'une ou plusieurs tables pouvant être responsables du problème.

Il faut donc cliquer dans une map pour placer le point, dessiner un symbole, récupérer les coordonnées, puis lancer la recherche dans les tables. Concrètement, Pour commencer je lance mon programme avec un bouton, il y a dans un premier temps vérification des tables ouvertes et affichées, ensuite je voudrais avoir la main avec un curseur pour placer ce point et récupérer les coordonnées, puis je continue avec un nearest pour sélectionner l'objet le plus proche et cela fonctionne bien.

J'ai réussi à leur faire avec un bouton spécial, mais comme celui-ci ne sert qu'une fois j'aimerai mieux m'en passer, y a t'il une solution autre, comme utiliser le bouton de dessin de point ?

Voila le bout de code que j'utilise pour l'instant, quand je clique sur mon bouton spécial :

Set CoordSys Earth Projection ....
    xdys = Round(CommandInfo(CMD_INFO_X), 0.1)
    ydys = Round(CommandInfo(CMD_INFO_Y), 0.1)
    '
    Create Point 
        Into Window nomcarte
        (xdys,ydys)
        Symbol (53,16711680,15,"MapInfo Cartographic",288,0)
    nom_objet_creer = "Dysfonctionnement_" + Str$(n_dys+1)
    Update nomtable1 Set NOM = nom_objet_creer

'
'trouve l'objet le plus proche du point de dysfonctionnement
alias1 = nomtable1 + ".RowID"
Nearest 1
    From Table selection
    To nomtable1 Into nomtable2
    Type Cartesian'
    Data NOM = alias1

merci pour votre aide

Dernière modification par olreb (Wed 15 April 2009 12:11)