Le portail francophone de la géomatique

include "mapbasic.def"
declare sub main
declare sub addbuilding(ByVal pref as string, ByVal x1 as float, ByVal y1 as float,ByVal  xwidth as float,ByVal ydepth as float, ByVal zheight as float,ByVal utype as string)

sub main
set coordsys NonEarth Units "m" Bounds(0, 0)  (30, 30)
Create Table Building (parcel_ref char(40),areaperfloor float,height float, X_Center float,Y_Center float, type char(8), aux float)
Create Map for Building 
call addBuilding("A",1,6, 3, 3, 42, "prive")
call addBuilding("B",1,11, 3, 3,  36, "prive")
call addBuilding("C",16, 6, 4,3,  27,"public")
call addBuilding("D",20, 7, 10, 1, 30,"prive")

Commit table Building
end sub

'batiments rectangulaires
sub addBuilding(ByVal pref as string, ByVal x1 as float, ByVal y1 as float, ByVal  xwidth as float, ByVal ydepth as float, ByVal zheight as float,ByVal utype as string)
Dim  x2 as float, y2 as float, x3 as float, y3 as float, x4 as float, y4 as float
dim regionObj as Object
dim area_per_floor , center_x, center_y as float
x2 = x1+xWidth
x3=x2
y2=y1
y3= y1+ydepth
x4=x1
y4=y3
create Region into variable regionObj 1 4 (x1,y1)(x2,y2)(x3,y3)(x4,y4)
area_per_floor = Area( regionObj, "sq m" )
insert into Building  (Obj, parcel_ref,areaperfloor,height,X_Center,Y_Center, type, aux)  values (regionObj, pref, area_per_floor, zheight, CentroidX(regionObj), CentroidY(regionObj), utype,0)
end sub