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.

Page 1 sur 8 123 ... DernièreDernière
Affichage des résultats 1 à 15 sur 115
  1. #1
    Modérateur honoraire
    Date d'inscription
    septembre 2003
    Localisation
    Dans l'eau et sur l'eau
    Emploi
    Moniteur de plongée sous marine
    Organisme
    hippocampe-plongee à Mayotte
    Âge
    34
    Messages
    1 178

    Par défaut [MapBasic X.x] Question concernant le Générateur d'Atlas

    Suite à cette discussion sur le générateur d'atlas.

    http://www.forumsig.org/showthread.php?t=1436
    Dernière modification par Thomas ; 31/10/2006 à 11h06.

  2. #2
    Admin' Général Supporter(rice)

    Date d'inscription
    septembre 2003
    Localisation
    ...dans mon TARDIS
    Organisme
    Bad Wolf
    Âge
    37
    Messages
    9 679

    Mes réseaux sociaux

    Follow Le Docteur On Twitter Add Le Docteur on Google+

    Par défaut

    Il serait bon pour ceux ne disposant pas de MapBasic (genre moi lol ! ) de fournir au moins un MBX afin que l'on puisse l'utiliser

    Car si on peut pas le compiler ça va etre tendu

    Tu peux éditer ton message et aller dans la gestion des pièces jointes
    >>>>>>>> Pas d'assistance technique par email ou mp : le forum est là pour ça <<<<<<<<<<<<


  3. #3
    Modérateur honoraire
    Date d'inscription
    septembre 2003
    Localisation
    Dans l'eau et sur l'eau
    Emploi
    Moniteur de plongée sous marine
    Organisme
    hippocampe-plongee à Mayotte
    Âge
    34
    Messages
    1 178

    Par défaut

    Salut Niko !!

    En fait je ne peux pas faire celà pour le moment car la version actuelle de mon générateur d'atlas doit être modifiée en fonction des souhaits de l'utilisateur.

    Il est donc vrai qu'à ce jour seul les personnes disposant de MapBasic pourront l'utiliser en s'inspirant du code source utilisé.

    Cependant je travail actuellement sur une deuxième version plus "universelle" où tout les paramètres servant à générer l'atlas seront à renseigner avant de faire tourner l'appli.

    Ces paramètres sont :

    - couche contenant le cadrillage
    - système de projection utilisé
    - format de la mise en page (A3, A4, portrait ou paysage ...)
    - Titre des cartes ...
    - Champ(s) de telle ou telle table à faire apparaitre...
    - Commentaire.
    - Auteur
    - création de l'échelle
    - ...

    Ainsi celà demande un programme beaucoup plus évolué que je n'ai pas eu le temps de terminer.

    Je ne manquerai pas de vous fournir ce MBX dès que je l'aurai terminé...

    En attendant ... essayez de vous faire offrir une licence MapBasic par votre boîte et, en vopus inspirant de mon code celà fonctionnera très bien j'en suis sur.

    Bon courage

    @ +++

  4. #4
    Modérateur honoraire
    Date d'inscription
    novembre 2003
    Localisation
    Sarrebourg, Moselle, France
    Emploi
    Géomètre
    Organisme
    Cadastre
    Messages
    727

    Par défaut

    Citation Envoyé par Niko
    Il serait bon pour ceux ne disposant pas de MapBasic (genre moi lol ! ) de fournir au moins un MBX afin que l'on puisse l'utiliser
    je me permets d'ajouter :
    Il serait bon pour ceux ne disposant pas de MapBasic de fournir au moins un MBX en plus du fichier source

  5. #5
    Admin' Général Supporter(rice)

    Date d'inscription
    septembre 2003
    Localisation
    ...dans mon TARDIS
    Organisme
    Bad Wolf
    Âge
    37
    Messages
    9 679

    Mes réseaux sociaux

    Follow Le Docteur On Twitter Add Le Docteur on Google+

    Par défaut

    Euh .. vu le prix pour une licence MapBasic c'est hors de question juste pour tester un générateur d'Atlas !! l
    >>>>>>>> Pas d'assistance technique par email ou mp : le forum est là pour ça <<<<<<<<<<<<


  6. #6
    Modérateur honoraire
    Date d'inscription
    septembre 2003
    Localisation
    Dans l'eau et sur l'eau
    Emploi
    Moniteur de plongée sous marine
    Organisme
    hippocampe-plongee à Mayotte
    Âge
    34
    Messages
    1 178

    Par défaut

    Citation Envoyé par Niko
    Euh .. vu le prix pour une licence MapBasic c'est hors de question juste pour tester un générateur d'Atlas !! l
    Humour .....
    Bien sur que tu ne vas pas l'acheter ... j'i dis ça en plaisantant ..

    Je t'envois le MBX dès qu'il est pret

  7. #7
    Admin' Général Supporter(rice)

    Date d'inscription
    septembre 2003
    Localisation
    ...dans mon TARDIS
    Organisme
    Bad Wolf
    Âge
    37
    Messages
    9 679

    Mes réseaux sociaux

    Follow Le Docteur On Twitter Add Le Docteur on Google+

    Par défaut

    Citation Envoyé par Thomas
    Humour .....
    Bien sur que tu ne vas pas l'acheter ... j'i dis ça en plaisantant ..

    Je t'envois le MBX dès qu'il est pret
    Merci
    >>>>>>>> Pas d'assistance technique par email ou mp : le forum est là pour ça <<<<<<<<<<<<


  8. #8

    Par défaut

    Citation Envoyé par Thomas
    Humour .....
    Bien sur que tu ne vas pas l'acheter ... j'i dis ça en plaisantant ..

    Je t'envois le MBX dès qu'il est pret

    Bonjour Thomas !
    je suis hyper intéressé par ce générateur d'atlas mais comme Nico, je n'ai pas Mapbasic...
    Si tu as eu le temps de faire ta version en mbx, je suis donc hautement intéressé..
    Sinon tu sais combien coûte la licence mapbasic. J'en ai tellement besoin...

    Merci et @+

  9. #9

    Date d'inscription
    septembre 2005
    Localisation
    guyancourt
    Emploi
    technicien hydraulique
    Âge
    36
    Messages
    7

    Par défaut

    Bonjour,

    Thomas, ton générateur d'atlas m'interesse aussi fortement. Travailles-tu toujours sur le MBX "universel" ou as-tu abonné le projet?

  10. #10
    Modérateur honoraire
    Date d'inscription
    septembre 2003
    Localisation
    Dans l'eau et sur l'eau
    Emploi
    Moniteur de plongée sous marine
    Organisme
    hippocampe-plongee à Mayotte
    Âge
    34
    Messages
    1 178

    Par défaut

    Bonjour,

    Un p'tit passage rapide sur le forum...

    Pour le g&#233;n&#233;rateur d'Atlas je t'avoue que j'ai pas trop le temps de m'y repencher.

    Il y a &#233;normment de param&#232;tres &#224; prendre en compte et j'avoue que c'est bien plus difficile que je ne le pensais

    @ bient&#244;t tout le monde.

    Thom
    • La chance est la forme la plus élaborée de la compétence ...

  11. #11
    Rédacteur & FAQeur honoraire
    Date d'inscription
    novembre 2004
    Localisation
    Entre Rhône et Saône
    Emploi
    Gêneur d'admin
    Organisme
    Chambre Consulaire
    Âge
    39
    Messages
    713

    Par défaut

    Bonjour,..

    J'ai travaill&#233; un peu sur le g&#233;n&#233;rateur d'atlas pour le faire fonctionner &#224; ma sauce : apr&#232;s la cr&#233;ation du layout, j'enregistre un .wor au lieu d'imprimer la carte...

    Le probl&#232;me est que lorsque j'ouvre mon .wor, ma fen&#234;tre carte est nickel mais la mise en page associ&#233;e, elle, n'est qu'une page blanche... [pas de Fen&#234;tre]..
    En cliquant sur la fen&#234;tre de mise en page, je me rend compte qu'elle ne rep&#232;re pas la carte...

    J'ai plus d'une centaine de carte &#224; effectuer

    J'en appel &#224; vous....

    Code:
    Include "C:\Program Files\MapInfo\MapBasic\tools_perso\cet\Prd\dnode\MAPBASIC2.DEF"
    
    Declare Sub Main 
    Declare sub generer_atlas
    Declare sub information_mbx
    
    '***************************SUB PRINCIPALE************************************************
    Sub Main 
        create menu "GENERATEUR ATLAS" as
            "G&#233;n&#233;rer un nouvel Atlas" calling generer_atlas,
            "Information sur MBX" calling information_mbx
        alter menu bar add "GENERATEUR ATLAS"
    end sub
    
    '***************************SUB GENERER L'ATLAS*******************************************
    
    sub generer_atlas
    
        dim CooEst, CooNord, Cpt as integer
        dim CptEst, CptNord as integer
        dim echelle as float
        dim Numpage as String
    
                        '*****identifiant des fen&#234;tres ouvertes
        dim NbrFenetre,IdMap,IdLayout,Idlegend,Idbasic as SmallInt 
        dim libcommune as string
        dim commune as string
    
                        '*****on ouvre une fen&#234;tre pour y faire afficher des messages
    
        Open Window Message 
      
                        '*****configutaration de la fen&#234;tre
    
        Set Window Message  
              Font ("Helv",1,8,0000)          
              Position (6.5, 0.5)                 
              Width 4.0   ' make window 4" wide  
              Height 2.0  ' make window 2" high
    
        print " ******************"
        print ""
        print " **GENERATION ATLAS**"
        print ""
        print " ******************"
    
                        '*****zone GUYANE
                        '*****CSG 67 UTM 22 DOM TOM IGN Guyane
                        'Set CoordSys Earth Projection 8,9999,4, -193.066, 236.993, 105.447, -0.4814, 0.8074, -0.1276, 1.5649,0,7,-51,0, 0.9996,500000,0
                        
                        '*****ou bien forcer le prog &#224; travailler dans le syst&#232;me de coordonn&#233;e de la table contenant le cadrillage
    Fetch First From Mono2006
                Cpt=1
    
                Do While Not EOT(Mono2006) 
    
                commune = Mono2006.Mono2006
                libcommune = Mono2006.LibMono2006
    
    
    
        Set CoordSys table Mono2006
                        
                        '*****ouverture d'une fenetre Mise en page
    
        Layout
    
                        '***** ici on cherche les ID de la fenetre MAP et de la fenetre layout et legende
    
        NbrFenetre = NumWindows()
    
        For cpt=1 to NbrFenetre Step 1
    
            if WindowInfo(cpt,WIN_INFO_TYPE) = WIN_MAPPER then
                IdMap=cpt
                print "Carte : "+str$(IdMap)
            end if
    
            if WindowInfo(cpt,WIN_INFO_TYPE) = WIN_LAYOUT then
                Idlayout=cpt
                print "Mise en page : "+str$(Idlayout)
            end if
    
            if WindowInfo(cpt,WIN_INFO_TYPE) = WIN_CART_LEGEND then
                Idlegend =cpt
                print "L&#233;gende : "+str$(idlegend )
            end if
        
        next
    
                        '------------------------------------------------------
                        '*****configuration de la fen&#234;tre mise en page (layout) 
                        '------------------------------------------------------
    
        Set Window windowID(IdLayout)  
                        '*****configuration de l'orientation
            Printer Orientation landscape 'ou portrait si besoin
    
    
                        '*****configuration de l'unite en mm (unit&#233; du layout)
                        '*****changement d'unite a faire chaque fois qu'on veux travailler sur le layout
    
        Set CoordSys Layout Units "mm"
    
    
                        '*****insertion de la fenetre Carte
        
        Create Frame (10,20) (410,282) 
        Pen (2,2,0)  
        Brush (2,16777215,16777215) 
        from Window WindowID(IdMap) FillFrame On
    
                        '*****Insertion du titre
    
        Create Text 
            Into Window WindowID(IdLayout)
            "Secteur g&#233;ographique de la monographie " & libcommune
            (100,8)  (110,290)  
            Font ("Helv", 1, 18, 0000)
            Justify Center 
    
        '*****Cr&#233;ation de l'&#233;chelle
    
        Create text
            Into Window WindowID(IdLayout)
            "0                                       1000                                     2000 m"
            (162,282.5)  (250,290)  
            Font ("Arial",1,10,0)
            Justify Center 
    
        Create line
            Into Window WindowID(IdLayout)
            (160,290) (257.6,290)
         Pen (1,2,0)
    
       Create line
            Into Window WindowID(IdLayout)
            (160,290) (160,286)
        Pen (1,2,0)
    
       Create line
            Into Window WindowID(IdLayout)
            (184.4,290) (184.4,288)
        Pen (1,2,0)
    
       Create line
            Into Window WindowID(IdLayout)
            (208.8,290) (208.8,286)
        Pen (1,2,0)
    
       Create line
            Into Window WindowID(IdLayout)
            (233.2,290) (233.2,288)
        Pen (1,2,0)
    
       Create line
            Into Window WindowID(IdLayout)
            (257.8,290) (257.8,286)
        Pen (1,2,0)
         
                        '***** On dessine la fl&#232;che nord
        Create line
            Into Window WindowID(IdLayout)
            (400,35) (400,65)
         Pen (2,2,0)
    
        create region
            Into Window WindowID(IdLayout)
            1        
            4
            (400,35) (395,41)(400,38) (400,35)
            Pen (2,2,0)
            Brush (2,0,16777215)
    
        create region
            Into Window WindowID(IdLayout)
            1        
            4
            (400,35) (405,41)(400,38) (400,35)
            Pen (2,2,0)
            Brush (2,16777215,16777215)
    
        create region
            Into Window WindowID(IdLayout)
            1        
            4
            (400,55) (395,70)(400,65) (400,55)
            Pen (2,2,0)
            Brush (2,16777215,16777215)
    
        create region
            Into Window WindowID(IdLayout)
            1        
            4
            (400,55) (405,70)(400,65) (400,55)
            Pen (2,2,0)
            Brush (2,0,16777215)
        
        Create text
            Into Window WindowID(IdLayout)
            "N"
            (398,25)  (420,40)  
            Font ("Arial",1,18,0)
            Justify Center 
    
    
    
    
                        '*****Insertion d'un commentaire
    
        Create Text 
            Into Window WindowID(IdLayout)
                "Source 8&#176;Enqu&#234;te M&#233;nage / CCI Lyon / " & Curdate()
                (340,285) (410,296.5)  
                Font ("Helvetica",6,8,0)
                Justify Center
    
    
                        '-------------------------------------------------------
                        '**************TRAITEMENTS DES ZONES********************
                        '-------------------------------------------------------
                        
                        'RE sp&#233;cification du syst de coordonnees pour pouvoir travailler sur la carte
    
                        'Set CoordSys Earth Projection 8,9999,4, -193.066, 236.993, 105.447, -0.4814, 0.8074, -0.1276, 1.5649,0,7,-51,0, 0.9996,500000,0
                Set CoordSys Table Mono2006
    
                        '*****cr&#233;ation d'une variable commune permettant d'afficher la commune correspondant &#224; la mise en page en cours
    
                
                print commune & " " & libcommune 
    
                CooEst = centroidX(Mono2006.obj)
                Co         
                print "carte "+Cpt+" : CentX : "+str$(CooEst)+" CentY : "+str$(CooNord)
    
                Set CoordSys     Table Mono2006
    
                Set Map  
                    Window WindowID(IdMap) 
    
    'c est ici qu'il faudra faire les modification sur le parametre 2.64236 pour avoir en sortie l echelle que tu souhaite
    ' la regle de trois est en fait 2.64236/(valeur de zoom dans le layout)*(echelle desirer en km, ici 2.5)
    
                    'Center (CooEst,CooNord) Scale 1 Units "cm" For 0.5 Units "Km"
    
    '################################################################################################################################################
    '#################################################Zoom sur selection temporaire##################################################################
    '################################################################################################################################################
    
            Dim mnumtables As Integer
            mnumtables = NumTables()
            Select * from Mono2006 where Mono2006.M Into __seltable 
            Add Map layer __seltable
            Set Map Zoom Entire Layer __seltable
            'Close Table __seltable
            'If NumTables() > mnumtables Then
            'Close Table TableInfo(NumTables(),TAB_INFO_NAME)
            'End If
    
    
    
    '################################################################################################################################################
    '################################################################################################################################################
    '################################################################################################################################################
    
    
            
                    
                        '*****AFFICHAGE du num&#233;ro de page et de la commune (ou du deuxi&#232;me crit&#232;re d&#233;sir&#233;)
                        '*****ne pas oublier de resp&#233;cifier le syst de mm pour la mise en page
        
            Set CoordSys Layout Units "mm"
        
            Numpage=str$(Mono2006.Mono2006)
    
        Create Region 
            Into Window WindowID(IdLayout)
                   1
               4 (10,283)(158,283)(158,292)(10,292)
                Pen (1,1,0) 
                Brush (2,16777215,16777215)
                Center (210,293)
    
                    
            Create Text 
                Into Window WindowID(IdLayout)
                    " MONOGRAPHIE :  " & commune & " "& libcommune
                    (10,283.5) (145,291)  
                    Font ("Comic Sans MS",5,12,255,16777215)
                    Justify Center 
    
         
                        '*****Quand tout est pr&#234;t on imprime la mise en page
                Save Workspace As "U:\Wor\" & commune &" - "& libcommune & ".wor"
            'PrintWin
    
                Close Table __seltable
                Close Window WindowID(IdLayout)
                        '*****et je reviens dans le systeme de coordonnee de la carte quand j'ai terminer de dessine dans le layout
    
            Set CoordSys Table Mono2006
    
    
    Fetch Next From Mono2006
        Cpt=Cpt+1
    libcommune = Mono2006.LibMono2006
    commune = Mono2006.Mono2006
    print "**"&libcommune
    print "**"&commune
    Loop
    
        print ""
        print " ******************"
        print ""
        print "    FIN DE L'ATLAS"
        print ""
        print " ******************"
    
    Terminate Application  "GENERATEUR ATLAS3.mbx"
    
    End Sub
    
    '******************SUB INFORMATION MBX****************************************
    
    sub information_mbx
    
        'Dialog
        '    Title "Information sur MBX"
        '    Width 200
        '    Height 200
        '    Position 100,100
    
    end sub
    Chacun sait quelque chose | Nul ne sait tout | l'échange est la clé de tout progrès

  12. #12
    Modérateur honoraire
    Date d'inscription
    septembre 2003
    Localisation
    Dans l'eau et sur l'eau
    Emploi
    Moniteur de plongée sous marine
    Organisme
    hippocampe-plongee à Mayotte
    Âge
    34
    Messages
    1 178

    Par défaut

    Pour ma part &#231;a fait bien longtemps que je ne m'y suis pas pench&#233;...

    Si tu ne me dis pas plus pr&#233;cis&#233;ment o&#249; &#231;a plante je crains que je vais avoir du mal &#224; d'aider...

    En tout cas merci de l'utiliser...

    Donne moi plus de pr&#233;cisions et je vais voir ce que je peux faire...
    • La chance est la forme la plus élaborée de la compétence ...

  13. #13
    Rédacteur & FAQeur honoraire
    Date d'inscription
    novembre 2004
    Localisation
    Entre Rhône et Saône
    Emploi
    Gêneur d'admin
    Organisme
    Chambre Consulaire
    Âge
    39
    Messages
    713

    Par défaut

    Il me semble que c'est la ligne 99 qui *******

    --> from Window WindowID(IdMap) FillFrame On

    Dans le .wor créé, on devrait avoir
    -->Create Frame (0.3937,0.7875) (16.1417,11.1021)
    >Pen (2,2,0)
    >Brush (2,16777215,16777215)
    >Title "Mono2006,Departement,Rhône Carte"
    >FillFrame On

    mais le mbx produit :
    --> Create Frame (0.3937,0.7875) (16.1417,11.1021)
    >Pen (2,2,0)
    >Brush (2,16777215,16777215)
    >Title "Mono2006,...,Rhône Carte" <
    >FillFrame On
    Chacun sait quelque chose | Nul ne sait tout | l'échange est la clé de tout progrès

  14. #14

    Date d'inscription
    janvier 2006
    Localisation
    Sur un caillou
    Emploi
    Sigophile
    Organisme
    Sous les cartes
    Âge
    38
    Messages
    1 283

    Par défaut

    Psstt , je passais par l&#224; et je voulais juste dire que ca s'&#233;crit QUADRILLAGE, pas CADRILLAGE.

    Voilu, rien de grave...
    Bon courage pour l'atlas.
    Grob.
    Ps :Une publication int&#233;ressante...
    Grob, what else ?

  15. #15
    Rédacteur & FAQeur honoraire
    Date d'inscription
    novembre 2004
    Localisation
    Entre Rhône et Saône
    Emploi
    Gêneur d'admin
    Organisme
    Chambre Consulaire
    Âge
    39
    Messages
    713

    Par défaut

    Il faut chercher un peu plus loin que la syntaxe... -->ICI<--
    Tu auras compris, la programmation est avant tout de l'art...
    Chacun sait quelque chose | Nul ne sait tout | l'échange est la clé de tout progrès

 

 
Page 1 sur 8 123 ... DernièreDernière

Discussions similaires

  1. [MapInfo 10.x] Générateur d'Atlas
    Par Geographiste dans le forum Assistance Technique
    Réponses: 15
    Dernier message: 17/08/2012, 11h09
  2. [GeoTools X.x] Question concernant une application de webmapping
    Par yako dans le forum Assistance et Programmation
    Réponses: 6
    Dernier message: 31/03/2009, 09h10
  3. [GeoConcept 5.x] Générateur d'atlas ? Où en trouver ?
    Par Delphine dans le forum Assistance Technique
    Réponses: 1
    Dernier message: 04/05/2005, 13h21
  4. [MapBasic] Utilitaire : Générateur d'Atlas
    Par Thomas dans le forum Ressources
    Réponses: 1
    Dernier message: 11/03/2005, 11h22
  5. [ArcGIS 8.x] Générateur d'Atlas
    Par xis dans le forum Assistance Technique
    Réponses: 2
    Dernier message: 26/01/2005, 09h53

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
  •