摘要： Dim app As IApplicationSet app = ApplicationDim pMxDocument As IMxDocumentSet pMxDocument = Application.DocumentDim pMap As IMapSet pMap = pMxDocument.FocusMapDim pFeatureLayer As IFeatureLayerSet pFeatureLayer = pMap.Layer(0)Dim pRasterLayer As IRasterLayerSet pRasterLayer = pMap.Layer(1)Dim pRaste 阅读全文