用2007画扇区源码-mapbasic

Sub Main
Create Menu "CELL工具" As
"导入excel表" Calling 导入程序
Alter Menu Bar Add "CELL工具"
End Sub
Sub 导入程序
Dim sxls,stab,基站类型,是否室内外 as String
Dim i,j As Integer
Else
getArcENDX=0
End If
End Function
Function getArcENDY(byval obj as object) as float
If objectinfo(obj,OBJ_INFO_TYPE )=1 then
'此处的方向角是经过处理后的方向角
Create Arc into Variable arc_obj (minx,miny) (maxx,maxy) start_angle end_angle
dim xx1,yy1,xx2,yy2 as float
Exit sub
End If
Register Table sxls TYPE XLS Titles Range "工参" Into stab
Open Table stab as ~xls
Create Map For ~xls
i=1
j=TableInfo(~xls,TAB_INFO_NROWS)'表的行数
End If
End Function
End If
stab=PathToFileName$(sxls)
stab=left$(stab,len(stab)-4)&"TAB"
stab=FileSaveAsDlg(PathToDirectory$(sxls),stab,"TAB","保存文件为")
If stab="" Then
Do
Fetch Rec i From ~xls
经度 = ~xls.col(8)
纬度 = ~xls.col(9)
方向角=~xls.col(10)
是否室内外=~xls.col(14)
基站类型=~xls.col(15)
If 基站类型="DCS1800" Then
miny=ObjectGeography(circle_obj,obj_geo_miny)
maxx=ObjectGeography(circle_obj,obj_geo_maxx)
maxy=ObjectGeography(circle_obj,obj_geo_maxy) '这四行取得绘制圆弧的关键点坐标，
Update ~xls Set obj=cir Where RowID=i '更新设置表的obj列，也就是图形列
i=i+1
Loop Until i=j+1
Map From ~xls
Commit Table ~xls
Set Map
Center (经度, 纬度)
zoom 12 units "km"
Dim 经度,纬度,方向角,半功率角,半径 As Float
Dim cir As Object
Dim un_select_style As Brush
Close All
sxls=FileOpenDlg("","","xls","请选择导入文件")
If sxls="" Then
Exit Sub
dim d as object
d=ConvertToPline( obj )
getArcENDY =ObjectNodeY( d , 1 , objectinfo(d,OBJ_INFO_NPNTS))
Else
getArcENDY=0
un_select_style = MakeBrush(61,YELLOW,YELLOW)'创建一个颜色刷子，用来填充区域
End If
If 是否室内外="是" Then
cir=CreateCircle(经度,纬度,0.01)
cir=ConvertToRegion(cir)
getArcBEGY =ObjectNodeY( d , 1 , 1)
Else
getArcBEGY=0
End If
End Function
Function getArcENDX(byval obj as object) as float
dim d as object
d=ConvertToPline( obj )
getArcBEGX =ObjectNodeX( d , 1 , 1)
Else
getArcBEGX=0
End If
Display position
CoordSys earth
End Sub
Function mycreateregion(经度,纬度,方向角,半功率角,半径 as float) as Object
dim x,y,r,x1,y1,x2,y2,start_angle,end_angle as float
Include "mapbasic.def"
Declare sub Main
Declare sub 导入程序
Declare Function mycreateregion(经度,纬度,方向角,半功率角,半径 as float) as Object
Declare Function getArcBEGX(ByVal obj as Object) as Float
End If
If 是否室内外="否" Then
cir=mycreateregion(经度,纬度,方向角,半功率角,半径)
cir=ConvertToRegion(cir)
End If
Alter Object cir Info OBJ_INFO_BRUSH,un_select_style '把颜色搞上去
Create Line into Variable line1_obj (x,y) (xx1,yy1)
Create Line into Variable line2_obj (x,y) (xx2,yy2) '这里是绘制两条直线
obj1 =ConvertToRegion(Combine(arc_obj,Combine(line1_obj,line2_obj))) '合并
End Function
Function getArcBEGY(byval obj as object) as float
If objectinfo(obj,OBJ_INFO_TYPE )=1 then
dim d as object
d=ConvertToPline( obj )
X=经度
Y=纬度
r=半径
方向角=90-方向角
start_angle=方向角-半功率角/2
end_angle=半功率角/2+方向角
circle_obj=CreateCircle(x,y,r) '这里绘制辅助圆，
minx=ObjectGeography(circle_obj,obj_geo_minx)
xx1=getArcBEGX(arc_obj)
yy1=getArcBEGY(arc_obj)
xx2= getArcENDX(arc_obj)
yy2= getArcENDY(arc_obj) '这里是取得圆弧的端点坐标
If objectinfo(obj,OBJ_INFO_TYPE )=1 then
dim d as object
d=ConvertToPline( obj )
getArcENDX =ObjectNodeX( d , 1 , objectinfo(d,OBJ_INFO_NPNTS))
Declare Function getArcBEGY(ByVal obj as Object) as Float
Declare Function getArcENDX(ByVal obj as Object) as Float
Declare Function getArcENDY(ByVal obj as Object) as Float
mycreateregion=obj1 '返回扇形。
End Function
''''求圆弧端点的程序''''''''''''''''''
Function getArcBEGX(byval obj as object) as float
If objectinfo(obj,OBJ_INFO_TYPE )=1 then
半功率角 = 20
半径=0.08
un_select_style = MakeBrush(61,GREEN,GREEN)'创建一个颜色刷子，用来填充区域
End If
பைடு நூலகம்
If 基站类型="GSM900" Then
半功率角 = 45
半径=0.04