画基站扇区的一种方法.docVIP

画基站扇区的一种方法 开发环境：VB + MapX 代码： 创建扇区Private?Function?FeatureFactoryCell(ByVal?longitude?As?Double,?ByVal?latitude?As?Double,?ByVal?angle?As?Integer,?ByVal?Lac?As?Integer,?ByVal?sectorSign?As?Integer)?As?Feature Dim?FeatureRegion?As?FeatureDim?FeatureCircular燗s燜eatureDim燜eatureSector牋As燜eatureDim爌ointCenter牋As燦ew燩ointDim爌ointTemp牋As燦ew燩ointDim爌ointRegion燗s燦ew燩ointsDim燼ngleInteger燗s營ntegerDim燼ngleMod燗s營ntegerDim燼ngleTemp1燗s營ntegerDim燼ngleTemp2燗s營nteger pointCenter.Set爈ongitude,爈atitude If?angle??燨r燼ngle??60)燭hen燤sgBox?基站小区角度存在误差?End?If 增加扇区的中心点pointTemp.Set?longitude,?latitudepointRegion.Add?pointTemp 三角形的右上角坐标，并添加到点集angleTemp1?=?angle?+?30 If?(angleTemp1??360)?Then???angleTemp1?=?angleTemp1?-?360End?If ??angleInteger?=?angleTemp1?\?90??angleMod?=?angleTemp1?Mod?0牋 牋牋Select燙ase燼ngleInteger牋牋牋牋Case?牋牋牋牋牋牋pointTemp.Set爈ongitude?燿istanceRegion?燬in(angleMod??80??.14159265358979),?latitude?燿istanceRegion?燙os(angleMod??80??.14159265358979)牋牋牋牋Case?牋牋牋牋牋牋pointTemp.Set爈ongitude?燿istanceRegion?燙os(angleMod??80??.14159265358979),?latitude?燿istanceRegion?燬in(angleMod??80??.14159265358979)牋牋牋牋Case?牋牋牋牋牋牋pointTemp.Set爈ongitude?燿istanceRegion?燬in(angleMod??80??.14159265358979),?latitude?燿istanceRegion?燙os(angleMod??80??.14159265358979)牋?牋牋燙ase?牋牋牋牋牋牋pointTemp.Set爈ongitude?燿istanceRegion?燙os(angleMod??80??.14159265358979),?latitude?燿istanceRegion?燬in(angleMod??80??.14159265358979)牋牋牋牋Case?牋牋牋牋牋牋pointTemp.Set爈ongitude?燿istanceRegion?燬in(angleMod??80??.14159265358979),?latitude?燿istanceRegion?燙os(angleMod??80??.14159265358979)牋牋牋牋End燬elect pointRegion.Add爌ointTemp 三角形的左上角坐标，并添加到点集????angleTemp1?=?angle?-?30 If?(angleTemp1??0)?Then???angleTemp1?=?angleTemp1?+?360End?If ????angleInteger?=?angleTemp1?\?90????angleMod?=?angleTemp1?Mod?90 ????Select?Case?angl