#1 Mon 07 February 2011 10:02
- Marie75
- Participant occasionnel
- Date d'inscription: 18 Apr 2009
- Messages: 13
Impossible d'insérer un objet cadre dans une carte
Bonjour,
Toujours dans le cadre de ma production automatique de carte, mapinfo avec mon programme arrive à produire d'affilée un certain nombre de carte (5-6) mais apres le message d'erreur suivant apparait :"Impossible d'insérer un objet cadre dans une carte". mOn bout de code concernant la partie "Create frame" est la suivante :
Sub carte
Layout
Position (0.270833,0.364583) 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"
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)
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
End Sub
Merci d'avance pour vos conseils !
Marie
Hors ligne
#2 Mon 07 February 2011 22:28
- Maurice
- Membre
- Lieu: Montpellier
- Date d'inscription: 5 Sep 2005
- Messages: 5331
Re: Impossible d'insérer un objet cadre dans une carte
Bonjour
Il semble que le Create Frame ne s'applique pas à la fenêtre Layout ...
Il faudrait utiliser un Create Frame Into Window layout_win_id ... et donc récupérer avant le layout_win_id, au moment de la création du layout, par FrontWindow() ou WindowID()
Hors ligne
#3 Tue 08 February 2011 13:27
- Marie75
- Participant occasionnel
- Date d'inscription: 18 Apr 2009
- Messages: 13
Re: Impossible d'insérer un objet cadre dans une carte
Merci maurice pour ton aide, Voilà ce que j'ai fait mais ca ne fonctionne toujours pas...
Sub carte
Layout
Position (0.270833,0.364583) Units "in" Width 6.625 Units "in" Height 4.47917 Units "in"
Dim uniqueStringName As String, layout_win_id as string
layout_win_id=FrontWindow()
uniqueStringName = "Set " + SessionInfo(1)
Set CoordSys Layout Units "in"
Create Frame Into Window layout_win_id(0.3806,0.291) (11.2271,6.6229) Pen (1,1,0) Brush (2,13693183,16777215) Title "carte" FillFrame Off
Create Frame Into Window layout_win_id (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 Into Window layout_win_id (0.3389,0.2389) (11.2868,8.0847) Pen (1,2,0) Brush (1,16777215,16777215)
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
End Sub
Hors ligne
