Bienvenue! Inscrivez-vous et rejoignez notre communauté :)
  • Login:

Bienvenue sur Forum SIG - Systèmes d'Information Géographique et Géomatique.

Bienvenue sur le forumSIG. S'il s'agit de votre première visite, assurez vous de faire une recherche préalable dans les FAQ SIG. Vous devez vous inscrire avant de pouvoir poster.

Affichage des résultats 1 à 2 sur 2
  1. #1

    Date d'inscription
    septembre 2010
    Messages
    24

    Par défaut Enregistrer un clic sur une carte

    Bonjour,

    J'avais écrit pour map info 9 (de mémoire) un programme qui permettait, entre autre, de cliquer sur une carte et d'enregistrer les coordonnées de ce clic, malheureusement sous map basic (et info) 10.5 cela ne fonctionne plus (il ne se passe rien) :

    create buttonpad "clic" as
    toolbutton calling activ_clic id 5
    icon 154
    cursor 138

    end sub

    Sub Activ_clic 'procédure qui va activer l'outil pour le clic permettant de récupérer les infos
    Run Menu Command 1720
    call ToolHandler
    End Sub


    Sub ToolHandler
    set map
    CoordSys Earth Projection 8, 104, "m", 57, 0, 0.9996, 500000, 10000000
    Center (346954.05,7662694.347)
    Zoom 85.46924663 Units "km"
    Preserve Zoom Display Zoom
    Distance Units "km" Area Units "sq km" XY Units "m"
    x_recup = CommandInfo(CMD_INFO_X) 'récupère le X du clic
    y_recup = CommandInfo(CMD_INFO_Y) 'récupère le y du clic


    Sauriez vous me dire pourquoi ?

    Cordialement

  2. #2

    Date d'inscription
    mai 2011
    Localisation
    Algérie
    Emploi
    Cadre d'études Carto/SIG
    Organisme
    Bureau National d'Etudes pour le Développement Rural
    Âge
    27
    Messages
    162

    Mes réseaux sociaux

    Add parazitenew on Facebook
    Add parazitenew on Linkedin

    Par défaut Re : Enregistrer un clic sur une carte

    Bonjour,

    Probablement à cause d'une incompatibilité de certaines instructions, voici un code qui marche sous MB 12 et 15, à toi de l'adapter:

    Code:
    Include "mapbasic.def" 
    Include "icons.def"
    
    declare sub Main
    declare sub cliq_detect
    
    Sub Main
    	Create ButtonPad "click_coord" As
        	ToolButton  Calling cliq_detect  ID 1     
    	      	Icon     MI_ICON_arrow
          		Cursor   MI_CURSOR_FINGER_LEFT
    	
    End Sub
    
    sub cliq_detect
    	Dim fx, fy As Float
    	
    	fx = CommandInfo(CMD_INFO_X)
    	fy = CommandInfo(CMD_INFO_Y)
    	
    	print Chr$(12)
    	print "Longitude: " + fx + Chr$(10) + "Latitude: " + fy
    End Sub
    Si j'ai pu t'aider, un petit pouce à gauche serait très apprécié

 

 

Discussions similaires

  1. [MapInfo 9.x] Enregistrer les carte en format WMF ou EMF
    Par maxdu.88 dans le forum Assistance Technique
    Réponses: 0
    Dernier message: 11/04/2014, 14h26
  2. [ArcGIS 9.x] Comment enregistrer une carte et la diffuser à un client
    Par Mister_Meun dans le forum Assistance Technique
    Réponses: 4
    Dernier message: 11/06/2013, 10h51
  3. [GoogleMaps API] Comment récupérer les coordonnées d'un clic sur la carte
    Par xmehdi dans le forum Assistance et Programmation
    Réponses: 2
    Dernier message: 05/05/2010, 07h50
  4. Réponses: 1
    Dernier message: 02/08/2005, 10h58
  5. [MapServer] Ouvrir une url par un clic sur une carte
    Par Dam dans le forum Assistance et Programmation
    Réponses: 2
    Dernier message: 29/07/2005, 16h16

Les tags pour cette discussion

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •