Le portail francophone de la géomatique

Insert Into pointS (obj) 
Values ( CreatePoint (311253,223720))

dim nouveau as string
dim x as INTEGER
dim y as INTEGER
dim no as string

Create Table "pointS" (Champ1 Char(10)) file "C:\boyer\pointS.TAB" TYPE NATIVE Charset "WindowsLatin1"
Create Map For pointS CoordSys Earth Projection 3, 1002, "m", 0, 49.5, 48.5985227778, 50.39591167, 600000, 200000 Bounds (-40092, -818525) (1264450, 486383)
Map From pointS
Set Map Layer 1 Editable On

Set Map Layer 1 Editable On
Open Table "C:\boyer\Equeurdreville.TAB" Interactive
Add Map Auto Layer Equeurdreville
Open Table "C:\boyer\Voies_filaire.TAB" Interactive
Add Map Auto Layer Voies_filaire

Set Window FrontWindow() Enhanced On
Set Map Layer 3 Display Global Global Line (2,2,16776960)  Label Font ("Arial",1,3,0,16777215) With Nom2 Follow Path Auto On Offset 0 Alpha 104
set map redraw on
Set Window FrontWindow() Title "carte"
NOUVEAU = "C:\boyer\pointl1.txt"
Open file NOUVEAU For Input As #1

do Until EOF(1)

Input #1, no,x,y
print x
print y 
Insert Into pointS (obj) 
Values ( CreatePoint (311253,223720))
Set Map Layer 1 Display Global Global Symbol (34,255,14) 
select * from pointS   into Selection
Set Map  Zoom Entire 
Set Map  Center (x, y) 
NOTE ""

Set Map  Scale 1 Units "cm" For 2460 Units "cm"
Layout
Set CoordSys Layout Units "cm"
Create Frame (0.1,0.1) (13.899,7.4) Pen (1,2,0) Brush (2,16777215,16777215) Title"carte" FillFrame On
Set Window FrontWindow() Title NO

Dim win_id As Integer 
 win_id = FrontWindow( )
 PrintWin Window win_id 

note no

close Window FrontWindow() 
Delete Object From selection

Loop