Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#1 Mon 14 February 2011 10:14

Marie75
Participant occasionnel
Date d'inscription: 18 Apr 2009
Messages: 13

Suppression cadre légende ds carte pour 1 prod automatique de cartes

Bonjour,

Je cherche à mettre au point un module  pour produire automatiquement des cartes sous MapBasic. J'ai mis au point un script mais pour certaines  cartes, il ne fait pas apparaitre la légende.
Voici mon script concernant la mise en page, pouvez vous m'aider à comprendre d'ou vient l'erreur? A noter : aucun message d'erreur apparait sous Mapinfo

Marie75

Sub MAP

Layout   
   
  Position (1,1.30208) Units "in"
  Width 6.625 Units "in" Height 4.47917 Units "in"
    Dim uniqueStringName As String
    uniqueStringName = "Set " + SessionInfo(1)
    Set CoordSys Layout Units "in"
    OnError Goto HandleError
    Create Frame (0.3806,0.291) (11.2271,6.6229)    Pen (1,1,0)     Brush (2,13693183,16777215)    Title "carte"    FillFrame Off
    Create Frame (0.7382,6.7486) (11.3944,8.0507)    Pen (1,1,0)     Brush (2,16777215,16777215)    Title "Légende de carte:2"    FillFrame Off
    Create Rect (0.3389,0.2389) (11.2868,8.0847)    Pen (1,2,0)     Brush (1,16777215,16777215)
    Create Line (11.2778,6.6125) (0.3194,6.6333)    Pen (1,2,0)
    Set Layout Ruler On Pagebreaks On Frame Contents Active  Zoom 34.9169 Center (8.87044,5.84722) Extents To Fit  Set Window FrontWindow() Autoscroll On
    Run Command uniqueStringName
    '
    Set Window FrontWindow() Printer
    Name "\\montreal\Xerox WorkCentre 7335 PS" Orientation Landscape Copies 1 Papersize 9
    Dim WorkspaceMaximizedWindow As Integer
    WorkspaceMaximizedWindow = Frontwindow()
    Set Window WorkspaceMaximizedWindow Max
    Set Map Window WorkspaceMaximizedWindow 'Preserve Scale
    'Undim WorkspaceMaximizedWindow

    HandleError:
    'Undim WorkspaceMaximizedWindow
   
End Sub

Hors ligne

 

Pied de page des forums

Powered by FluxBB