' 缓冲区 ' 参数说明:pFeature - 生成缓冲区的对象;radius - 缓冲区半径 ' pPolygonLayer - 存储缓冲区的面图层 Private Sub GetBuffer(pFeature As IFeature, radius As Integer , pPolygonLayer As IFeatureLayer) Dim pTopoOper As ITopologicalOperator Set pTopoOper = pFeature.Shape() Dim pBufferPoly As IPolygon Set pBufferPoly = pTopoOper.Buffer(radius) Dim pPolygonFeature As IFeature Set pPolygonFeature = pPolygonLayer.FeatureClass.CreateFeature Set pPolygonFeature.Shape = pBufferPoly pPolygonFeature.Store End Sub