用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整理发布,版权归原作者所有。]
------分隔线----------------------------