凡人之学

摘要： Public Function PolgonToRaster(pFeatureClass As IFeatureClass, pFldname As String, pCellsize As Double, pRasterPath As String, pRasterName As String) As IRaster Dim pRasterAnalysisEnvironment As I... 阅读全文

摘要： Public Function ClipRasterByPolgon(pInGeoDataset As IGeoDataset, pPolygon As IPolygon) As IRaster Dim pRaster As IRaster If TypeOf pInGeoDataset Is IRasterLayer Then Dim pRasterlayer A... 阅读全文

摘要： Private Sub ComboBox1_Change() Dim pMxDoc As IMxDocument Set pMxDoc = Application.Document Dim pActiveView As IActiveView Set pActiveView = pMxDoc.activeView Dim pEnvelop As IEnvel... 阅读全文