【文章內(nèi)容簡介】 空間查詢的實(shí)現(xiàn)空間查詢是一個經(jīng)常要用到的功能，它是通過給定一定的范圍，查詢得到在這個空間范圍內(nèi)的要素的查詢方式。下面的代碼是在返回鼠標(biāo)點(diǎn)擊點(diǎn)周圍長寬100個地圖單位的矩形范圍內(nèi)的要素。過程描述Dim pMap As IMapDim pPoint As IPointSet pMap = Dim pFeatureLayer As IFeatureLayerSet pFeatureLayer = (1)Set pPoint = (x, y)Dim pEnv As IEnvelopeSet pEnv = New EnvelopeSet pEnv = = 100 = 100 pPointMsgBox MsgBox Dim pGeometry As IGeometrySet pGeometry = pEnvSet = = TrueDim pSFilter As ISpatialFilterSet pSFilter = New SpatialFilterWith pSFilterSet .Geometry = pGeometry.GeometryField = .SpatialRel = esriSpatialRelIntersectsEnd WithDim b As Booleanb = Dim pFeatureCursor As IFeatureCursorSet pFeatureCursor = (pSFilter, False)創(chuàng)建帶Z值的Feature編號：000484相關(guān)產(chǎn)品及版本：ArcInfo Desktop,ArcGIS Engine Developer Kit,ArcGIS Engine Runtime90平臺：PCIntel Windows2000提交時間：20050701修改時間：20050701提交人：黃齊飛內(nèi)容摘要使用IZAware接口，對Feature設(shè)置Z值。例子中構(gòu)建了三個點(diǎn)的多邊形。測試條件：，創(chuàng)建一個有Z值的多邊形圖層。加載圖層，運(yùn)行程序。過程描述Option ExplicitDim pAoInitialize As Dim pWorkSpace As Dim Pt1 As Dim Pt2 As Dim Pt3 As Dim pPtC As Private Sub Form_Load()39。許可初始化Set pAoInitialize = New AoInitializeIf pAoInitialize Is Nothing ThenMsgBox 不能初始化，程序退出！Unload MeEndEnd IfIf (esriLicenseProductCodeEngineGeoDB) = esriLicenseAvailable ThenElseMsgBox 沒有合適的運(yùn)行許可，退出程序！Unload MeEndEnd If39。加載數(shù)據(jù)Dim pWorkspaceFactory As Set pWorkspaceFactory = New Set pWorkSpace = ( amp。 , 0)Dim pFeatureWorkSpace As Dim pFeatureClass As Dim pFeatureLayer As Set pFeatureWorkSpace = pWorkSpaceSet pFeatureClass = (afeitest)Set pFeatureLayer = New Set = pFeatureClass pFeatureLayerSet pFeatureClass = NothingSet pFeatureClass = (afeitestpolygon)Set pFeatureLayer = New Set = pFeatureClass pFeatureLayerSet pFeatureClass = NothingEnd SubPrivate Sub Form_Unload(Cancel As Integer)End SubPrivate Sub MapControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long, ByVal mapX As Double, ByVal mapY As Double)Dim Pt As Set Pt = (x, y) = 10Dim pPtZAware As Set pPtZAware = PtWith pPtZAware.ZAware = TrueEnd WithIf Pt1 Is Nothing ThenSet Pt1 = PtElseIf Pt2 Is Nothing ThenSet Pt2 = PtElseSet Pt3 = PtSet pPtC = New Dim pPtCZAware As Set pPtCZAware = pPtCWith pPtCZAware.ZAware = TrueEnd With Pt1 Pt2 Pt3 Pt1Dim pFeatureLayer As Dim pFeatureClass As Dim pWorkSpaceEdit As Set pFeatureLayer = (0)Set pFeatureClass = Set pWorkSpaceEdit = pWorkSpace TrueDim pFeature As Set pFeature = With pFeatureSet .Shape = pPtC.StoreEnd With TrueSet Pt1 = NothingSet Pt2 = NothingSet Pt3 = NothingSet pPtCZAware = NothingSet pPtC = NothingEnd IfSet pPtZAware = NothingSet Pt = NothingEnd Sub在AO或者ENGINE中為SHAPEFILE添加SPATIAL INDEX編號：000390相關(guān)產(chǎn)品及版本：ArcInfo Desktop,ArcGIS Engine Developer Kit,平臺：N/A提交時間：20050421修改時間：20050421提交人：許春杰內(nèi)容摘要在ENGINE中修改SHAPE文件后，在ARCIMS中會出現(xiàn)無法正確顯示，特別是修改比較大的時候。這個時候需要重建SHAPE文件的SPATAIL INDEX。過程描述重建代碼如下，可以在AO或者ENGINE中使用Sub CheckforSpatialIndex()Dim pDoc As IMxDocumentSet pDoc = ThisDocument39。Get the first layer in the mapDim pLayer As IFeatureLayerSet pLayer = (0)Dim pFc As IFeatureClassSet pFc = 39。Check the shapefile to see if it39。already has a spatial indexDim pIndexes As IIndexesDim pEnumIndex As IEnumIndexSet pIndexes = Set pIndexes = If (Shape).Next Is Nothing Then Call AddMyIndex(pFc, )End IfEnd SubPublic Sub AddMyIndex(pFc As IFeatureClass, strFieldName As String)39。Set up fieldsDim pFields As IFieldsDim pFieldsEdit As IFieldsEditDim pField As IFieldDim lfld As LongSet pFields = New FieldsSet pFieldsEdit = pFields = 1lfld = (strFieldName)Set pField = (lfld)Set (0) = pFieldDim pIndex As IIndexDim pIndexEdit As IIndexEditSet pIndex = New Index39。QI for IIndexEditSet pIndexEdit = pIndexWith pIndexEditSet .Fields = pFields.Name = Idx_1End With39。Add index to feature class pIndexEnd Sub如果把一個圖層ILayer數(shù)據(jù)COPY到三維Scenecontrol控件中（進(jìn)行相關(guān)操作）編號：000791相關(guān)產(chǎn)品及版本：ArcGIS Engine Developer Kit,ArcGIS Engine Runtime、平臺：win提交時間：20060731修改時間：20060731提交人：譚軍輝內(nèi)容摘要把Mapcontrol中的數(shù)據(jù)或一個ILayer圖層的數(shù)據(jù)或一個選擇集的數(shù)據(jù)COPY到Scenecontrol三維控件中來。過程描述 Dim pfeatureselection As IFeatureSelection Dim pSpatialFilter As ISpatialFilter Dim pFeatureLayerDefinition As IFeatureLayerDefinition Dim pFeatureLayerMx As IFeatureLayer Dim pFeatureLayerSx As IFeatureLayer Dim p3DProperties As I3DProperties Dim pGeoFeatureLayerMx As IGeoFeatureLayer Dim pGeoFeatureLayerSx As IGeoFeatureLayer Dim pLayerSx As ILayer Dim pColor As IColor Dim pSymbol As ISymbol Dim pObjectCopy As IObjectCopy 39。 39。 Dim pListItems As Dim pListItem As 39。 39。 Select Features That pass through the current extent 39。 Set pLayerSx = Nothing If TypeOf pLayerMx Is IFeatureLayer Then Set pFeatureLayerMx = pLayerMx If = esriFTSimple Then Set pSpatialFilter = New SpatialFilter Set = mEnvelope 39。 39。 = = esriSpatialRelIntersects 39。 Set pfeatureselection = pFeatureLayerMx Call (pSpatialFilter, esriSelectionResultNew, False) 39。 Set pFeatureLayerDefinition = pFeatureLayerMx Set pFeatureLayerSx = (, True, , ) = 39。 Call 39。 Set pGeoFeatureLayerMx = pFeatureLayerMx Set pGeoFeatureLayerSx = pFeatureLayerSx Set pObjectCopy = New ObjectCopy Set = () 39。 Set pLayerSx = pFeatureLayerSx End If Else If TypeOf pLayerMx Is IRasterLayer Then Dim pRasterLayerMx As IRasterLayer Set pRasterLayerMx = pLayerMx16