======================================================== 怎样在buffer里面选择要素：
======================================================== 1. Dim pSpFilter As ISpatialFilter 2. Set pSpFilter = New SpatialFilter 3.
4. Dim pTopOper As ITopologicalOperator 5. Set pTopOper = pfeature.Shape 6. Dim pGeometry As IGeometry 7. Set pGeometry = pTopOper.Buffer(1) 8.
9. Set pSpFilter.Geometry = pGeometry
10. pSpFilter.SpatialRel = esriSpatialRelContains
11. '（esriSpatialRelContains是ISpatialFilter里面SpatialRel的一种参数
esriSpatialRelEnum，值为8，代表在这个区域内包含的要素） 12. 13. Set m_pSelGW_D = pLyr_D
14. m_pSelGW_D.SelectFeatures pSpFilter, esriSelectionResultNew, False 15. '（m_pSelGW_D是IfeatureSelection类型的变量） 16. pSpFilter.SpatialRel = esriSpatialRelIntersects 17.
18. Set m_pSelGW_X = pLyr
19. m_pSelGW_X.SelectFeatures pSpFilter, esriSelectionResultNew, False
25. Merge要素Union要素
1. Private Sub UnionSelected() 2. Dim pMxDoc As IMxDocument 3. Dim pFtrLyr As IFeatureLayer 4. Dim pFtrCls As IFeatureClass 5. Dim pFtrSel As IFeatureSelection
6. Dim pFtr As IFeature
7. Dim pEnumGeom As IEnumGeometry 8. Dim pEnumGeomBind As IEnumGeometryBind 9. Dim pTopOp As ITopologicalOperator 10. Dim pUnionedPolylines As IPolyline 11.
12. ' Get a ref to the selected polylines in the 1st layer 13. Set pMxDoc = ThisDocument
14. Set pFtrLyr = pMxDoc.FocusMap.Layer(0) 15. Set pFtrSel = pFtrLyr
16. Set pFtrCls = pFtrLyr.FeatureClass 17.
18. ' Create an enumeration of the selected polyines 19. Set pEnumGeom = New EnumFeatureGeometry 20. Set pEnumGeomBind = pEnumGeom
21. pEnumGeomBind.BindGeometrySource Nothing, pFtrSel.SelectionSet 22. pEnumGeom.Reset 23.
24. ' Union the polylines
25. Set pUnionedPolylines = New Polyline 26. Set pTopOp = pUnionedPolylines 27. pTopOp.ConstructUnion pEnumGeom 28.
29. ' Add this new unioned polyline to the featureclass 30. Set pFtr = pFtrCls.CreateFeature 31. Set pFtr.Shape = pUnionedPolylines 32. pFtr.Store 33. 34. End Sub C#语言
1. if (pFC.ShapeType ==
ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolygon) 2. {
3. IEnumGeometry pEnumGeom;
4. IEnumGeometryBind pEnumGeomBind = new EnumFeatureGeometryClass(); 5. IFeatureLayer pLyr = new FeatureLayerClass(); 6. pLyr.FeatureClass = pFC;
7. IFeatureSelection pFeatSel = (IFeatureSelection)pLyr; 8.
9. IQueryFilter pQfliter = new QueryFilterClass(); 10. pQfliter.WhereClause = this.SQLText.Text; 11. 12.
pFeatSel.SelectFeatures(pQfliter,
esriSelectionResultEnum.esriSelectionResultNew, false); 13.
14. pEnumGeomBind.BindGeometrySource(null, pFeatSel.SelectionSet); 15. pEnumGeom = (IEnumGeometry)pEnumGeomBind; 16. ITopologicalOperator pTopo = new PolygonClass(); 17. pTopo.ConstructUnion(pEnumGeom); 18. pGeom = (IGeometry)pTopo; 19. }
20. return pGeom;
26. 怎样从Table中获取具体需求值的Row
1. ITable pTable = (ITable)pFC; 2.
int
index
=
pTable.Fields.FindField(\
3. IQueryFilter pQFilter = new QueryFilterClass(); 4. ICursor pCur;
5. pCur = pTable.Search(pQFilter, false);
6. IRow pRow = new Row(); 7. IRow pAnswerRow = new Row(); 8. pRow = pCur.NextRow(); 9. while (pRow != null) 10. { 11.
string
Value
=
pRow.get_Value(index).ToString();
12. if (Value == \13. {
14. pAnswerRow = pRow; 15. break; 16. }
17. pRow = pCur.NextRow(); 18. }
27. 怎样ZoomInCenter
1. Public Sub ZoomInCenter()
2. Dim pMxDocument As IMxDocument 3. Dim pActiveView As IActiveView
4. Dim pDisplayTransform As IDisplayTransformation 5. Dim pEnvelope As IEnvelope 6. Dim pCenterPoint As IPoint 7.
8. Set pMxDocument = Application.Document 9. Set pActiveView = pMxDocument.FocusMap 10. Set
pDisplayTransform
=
pActiveView.ScreenDisplay.DisplayTransformation 11. Set pEnvelope = pDisplayTransform.VisibleBounds
12. 'In this case, we could have set pEnvelope to IActiveView::Extent 13. 'Set pEnvelope = pActiveView.Extent 14. Set pCenterPoint = New Point
15.
16. pCenterPoint.x = ((pEnvelope.XMax - pEnvelope.XMin) / 2) + pEnvelope.XMin 17. pCenterPoint.y = ((pEnvelope.YMax - pEnvelope.YMin) / 2) + pEnvelope.YMin 18. pEnvelope.width = pEnvelope.width / 2 19. pEnvelope.height = pEnvelope.height / 2 20. pEnvelope.CenterAt pCenterPoint
21. pDisplayTransform.VisibleBounds = pEnvelope 22. pActiveView.Refresh 23. End Sub
28. 怎样读取一个字段内的所有值 1.
IFeatureClass
pFC
=
m_SDEQuery.getFeatureClass();
2. IFeatureCursor pFeaCur = pFC.Search(null, false); 3. IFeature pFeature = pFeaCur.NextFeature(); 4.
int
pFieldIndex
=
pFC.Fields.FindField(this.m_cboQryFld.SelectedItem.Value.ToString()); 5. System.Collections.ArrayList pArr = new
System.Collections.ArrayList();
6. while (pFeature != null) 7. { 8.
string
theFieldValue
=
pFeature.get_Value(pFieldIndex).ToString();
9. if (!pArr.Contains(theFieldValue) &&
(theFieldValue.Trim() != \10. {
11. m_cboQryText.Items.Add(theFieldVa
lue);
12. pArr.Add(theFieldValue); 13. }
14. pFeature = pFeaCur.NextFeature();