返回首页
当前位置: 主页 > GPS学院 > 应用软件 >

用MapX快速开发(2)

时间:2008-01-18 10:58来源:GPS之家-导航之家 作者:www.gpsuu.com
园查找:在临时图层上画一个不保存的圆,然后查找被这个圆所包含的所有图层的图元对象。 Dim Pnt AS MapXlib.Point Dim TempCir AS MapXlib.Feature Dim FeaFac AS MapXLIB.featurefactory Pnt.Set X,Y Set tempcir
                      ² 园查找:在临时图层上画一个不保存的圆,然后查找被这个圆所包含的所有图层的图元对象。
Dim Pnt AS MapXlib.Point
Dim TempCir AS MapXlib.Feature
Dim FeaFac AS MapXLIB.featurefactory

Pnt.Set X,Y
Set tempcir=FeaFac.CreateCircularRegion(miCircleTypeMap ,Pnt,1, MainMap.MapUni
t,,)

 

 

Set Ftrs=Lyr.SearchWithinFeature (TempCir, miSearchTypePartiallyWithin)

 ‘miSearchTypeCentroidWithin :中心点包含
‘miSearchTypePartiallyWithin :部分包含
‘miSearchTypeEntirelyWithin :全部包含
 (责任编辑:admin)
[ GPSUU整理发布,版权归原作者所有。]
顶一下
(1)
50%
踩一下
(1)
50%
------分隔线----------------------------

推荐内容