Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Fri 24 September 2004 14:05
- André Wroblewski
- Invité
Construction d'element rectangulaire
Bonjour,
je cherche a construire une nouvelle table Map Info comportant des elements rectangulaires au moyen de Map Basic.
Comment utiliser des commandes comme Create Rect ?
merci d'avance pour les reponses
#2 Fri 24 September 2004 14:06
- Annick Lagnion
- Invité
Re: Construction d'element rectangulaire
dans l'aide de mapbasic:
Creates a rectangle or square object.
Syntax
Create Rect
[ Into { Window window_id | Variable var_name } ]
( x1, y1) ( x2, y2)
[ Pen . . . ]
[ Brush . . . ]
window_id is a window identifier
var_name is the name of an existing object variable
x1 y1 specifies the starting corner of the rectangle
x2 y2 specifies the opposite corner of the rectangle
The Pen clause specifies a line style
The Brush clause specifies a fill style
#3 Fri 24 September 2004 17:45
- Francois Biju-Duval
- Invité
Re: Construction d'element rectangulaire
Exemple pour créer une table de rectangles à partir d'une table de points
Dim W_Champ as string
Dim Rectangle as Object
Dim X_Point as Float
Dim Y_Point as Float
Fetch First from Table_Points
' crée un rectangle dans la variable Rectangle avec comme coordonnées (x1,y1) (x2,y2) pour les coins opposés, à partir du point, central
Do Until EOT(Table_Points)
W_Champ = Table_Points.Champ
X_Point = CentroidX(Table_Points.obj)
Y_Point = CentroidY(Table_Points.obj)
Create Rect Into Variable Rectangle (X_Point - 10000,Y_Point + 5000) (X_Point + 10000,Y_Point - 5000)
'
[Pen ...]
'
[Brush ...]
Insert Into Table_Rectangles (Champ,obj) Values (W_Champ,Rectangle)
Fetch Next from Table_Points
Loop
