摘要:
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... 阅读全文