Le portail francophone de la géomatique

include "C:\Program Files\MapInfo\MapBasic\MAPBASIC.DEF"

declare sub main

sub main

set coordsys Earth Projection 8, 9999, 4, 97.295, -263.237, 310.866, 1.599931, -0.838952, -3.14118, 13.325864, 0, "m", 165, 0, 0.9996, 500000, 10000000 Bounds (-7746230.6469, 1712.61611073) (8746230.6469, 19998287.3839) 

dim nom_de_table as string
dim nom_table_chemin as string
dim nom_de_table_to_record as string
dim coordX as float
dim coordY as float
dim Z_value as float
dim compteur as integer
dim n as integer

'ouverture des différentes tables   
nom_de_table = FileOpenDlg ("C:\Etude","","tab", "Ouvrir la table des courbes à traiter")
open table nom_de_table as CDN
nom_de_table_to_record = tableinfo(CDN, TAB_INFO_NAME)
nom_de_table_to_record = nom_de_table_to_record & "_PT_UNIQUE.tab"

nom_table_chemin = pathtodirectory$(nom_de_table) & nom_de_table_to_record
Create Table POINTS_UNIQUES (ID_PT integer, X float, Y float, Z float) file nom_table_chemin TYPE NATIVE Charset "WindowsLatin1"

'création d'une carte avec CDN et table POINTS_UNIQUES qui va recevoir les points extraits
Create Map For POINTS_UNIQUES CoordSys Earth Projection 8, 9999, 4, 97.295, -263.237, 310.866, 1.599931, -0.838952, -3.14118, 13.325864, 0, "m", 165, 0, 0.9996, 500000, 10000000 Bounds (-7746230.6469, 1712.61611073) (8746230.6469, 19998287.3839)
Map from POINTS_UNIQUES, CDN

Set Map Layer 1 Editable On

compteur = tableinfo(CDN, TAB_INFO_NROWS)

for n = 1 to compteur

select * from CDN where rowid = n
coordX = objectNodeX(selection.obj, 1, 1)
coordY = objectNodeY(selection.obj, 1, 1)
Z_value = selection.col2    
  
'create point into window frontwindow() (coordX, coordY)
update POINTS_UNIQUES set obj = createpoint(coordX, coordY)
update POINTS_UNIQUES Set ID_PT = n, Z_value = Z, X = coordX, Y = coordY)
close table selection

next

commit table POINTS_UNIQUES

end sub