I'm very new to Mapbasic.
I tried to make a short code to draw some BTS in GSM but I can't do thant (over 1 month).
I have a table with these column: Sitename, Lon, Lat, Azi, Beam, Dist.
Can someone help me to correct the code.
Trash=ApplicationDirectory$()+"Sectors.tab"Create Table Sectors (id Char(10)) file Trash TYPE NATIVE Charset "WindowsLatin1"Create Map For Sectors CoordSys Earth Projection 1, 0Map From SectorsSet Map Layer 1 Editable On i=1Fetch First From TempDo While Not EOT (Temp) '---Cell 1 ------ Lon1=Temp.Longitude Lat1=Temp.Latitude Bearing1=Temp.Azimuth Beam1=60 Dist1=1 oSite = CreatePoint(Lon1,Lat1) oSite2 = OffSet(oSite, Bearing1, Dist1, "m") oDirection = CreateLine(Lon1, Lat1, CentroidX(oSite2), CentroidY(oSite2)) oRotateAtPoint1 = RotateAtPoint (oDirection, (Beam1)/2, oSite) oRotateAtPoint2 = RotateAtPoint (oDirection, -1 * (Beam1)/2, oSite) 'Insert Into Sectors (Obj) Values (oRotateAtPoint1) Update Sectors set Obj=oRotateAtPoint1 where rowid = i i=i+1 Fetch Next From TempLoopEnd IfThe result is a white map
أكثر...
I tried to make a short code to draw some BTS in GSM but I can't do thant (over 1 month).
I have a table with these column: Sitename, Lon, Lat, Azi, Beam, Dist.
Can someone help me to correct the code.
Trash=ApplicationDirectory$()+"Sectors.tab"Create Table Sectors (id Char(10)) file Trash TYPE NATIVE Charset "WindowsLatin1"Create Map For Sectors CoordSys Earth Projection 1, 0Map From SectorsSet Map Layer 1 Editable On i=1Fetch First From TempDo While Not EOT (Temp) '---Cell 1 ------ Lon1=Temp.Longitude Lat1=Temp.Latitude Bearing1=Temp.Azimuth Beam1=60 Dist1=1 oSite = CreatePoint(Lon1,Lat1) oSite2 = OffSet(oSite, Bearing1, Dist1, "m") oDirection = CreateLine(Lon1, Lat1, CentroidX(oSite2), CentroidY(oSite2)) oRotateAtPoint1 = RotateAtPoint (oDirection, (Beam1)/2, oSite) oRotateAtPoint2 = RotateAtPoint (oDirection, -1 * (Beam1)/2, oSite) 'Insert Into Sectors (Obj) Values (oRotateAtPoint1) Update Sectors set Obj=oRotateAtPoint1 where rowid = i i=i+1 Fetch Next From TempLoopEnd IfThe result is a white map
أكثر...