Le portail francophone de la géomatique

Include "c:\program files\mapinfo\mapbasic\MapBasic.def"
Include "c:\program files\mapinfo\mapbasic\Icons.def"
Include "c:\program files\mapinfo\mapbasic\Menu.def"
'
'
Declare Sub Main
'
Sub Main
close all
' Decalarations
'
dim i as Integer
dim intLayerNbr as Integer
dim intLayerNbrToSeamless as Integer
dim intLayerID as Integer
'
'
dim strActiveScreenName as String
'
dim strPathToFiles as String
dim strFileName(3) as String
dim strThisFile as String 
dim strSeamlessName as String
Dim tablename As String
Dim TableFullName As String
'
Dim new_name As String
'
dim strCurrentLayer as String
'
strFileName(1)="CollectorRtes.TAB"
strFileName(2)="localRtes.TAB"
'
new_name="D:\Documents and Settings\hamdoab\My Documents\seamless_roads"
'
strPathToFiles="D:\Documents and Settings\hamdoab\My Documents\seamless_roads"
'
'
'
'
dim fltLonMIN, fltLonMAX ,fltLatMIN, fltLatMAX  as Float
'
dim objThisObject as Object
'
'
'
dim boolIsSeamless as Logical
dim boolDoesItWork as Logical
'
'
 
Open Table "D:\Documents and Settings\hamdoab\My Documents\seamless_roads\localRtes.tab" Interactive
Map From localRtes
Open Table "D:\Documents and Settings\hamdoab\My Documents\seamless_roads\CollectorRtes.TAB" Interactive
Add Map Auto Layer CollectorRtes
'
'
'
intLayerID =FrontWindow()
tablename = PathToTableName$(new_name)
note ("tablename ="+tablename )
'
'
Create Table tablename (Table Char(100),Description Char(25) )
 
File new_name 
     TYPE NATIVE

Create Map For tablename CoordSys Window intLayerID 

'

'
intLayerNbr =MapperInfo(intLayerID ,MAPPER_INFO_LAYERS )
'
' 
for i =1 to 2

 strCurrentLayer =LayerInfo( intLayerID ,i, LAYER_INFO_NAME)

 TableFullName = LayerInfo(intLayerID , i, LAYER_INFO_PATH)
 
 TableFullName = PathToFileName$(TableFullName)
 
    fltLonMIN  = TableInfo( strCurrentLayer , TAB_INFO_MINX ) 
    fltLatMIN  = TableInfo( strCurrentLayer , TAB_INFO_MINY ) 
    fltLonMAX  = TableInfo( strCurrentLayer , TAB_INFO_MAXX )
    fltLatMAX  = TableInfo( strCurrentLayer , TAB_INFO_MAXY )

 
       Create Rect Into Variable objThisObject (fltLonMIN,fltLatMIN)(fltLonMAX,fltLatMAX)
       Insert Into tablename (Table, Description, Obj) Values (TableFullName, strCurrentLayer , objThisObject )

 
'intLayerNbr  = intLayerNbr + 1

Next
   
  
 Set Table tablename Seamless On

  Commit Table tablename

 


end sub