Private Sub Command1_Click()
Dim cir As Feature
Dim pt As New MapXLib.Point
Dim pts As New MapXLib.Points
Dim radSec, Azimuth, Beam, counter As Integer
Dim ptX, ptY As Double
Dim calc_azi As Single
Dim radiu As Single
Const PI = 3.141592654
radiu = 300 '扇区半径长度
Dim m_TempLayer As MapXLib.Layer
Dim LayerInfo2 As New MapXLib.LayerInfo
Set m_TempLayer = Map1.Layers.CreateLayer("DispBSC")
' 定义样式表
Dim BSCStyle As New MapXLib.Style
With BSCStyle
.RegionColor = RGB(255, 222, 0)
.RegionPattern = miPatternDiagCross
.RegionTransparent = True
End With