多边形影像化

Public Function PolgonToRaster(pFeatureClass As IFeatureClass, pFldname As String, pCellsize As Double, pRasterPath As String, pRasterName As String) As IRaster
    Dim pRasterAnalysisEnvironment As IRasterAnalysisEnvironment
    Dim pConversionOp As IConversionOp
    Set pConversionOp = New RasterConversionOp
    Set pRasterAnalysisEnvironment = pConversionOp
    pRasterAnalysisEnvironment.SetCellSize esriRasterEnvValue, pCellsize
    Dim pFDesc As IFeatureClassDescriptor
    Set pFDesc = New FeatureClassDescriptor
    pFDesc.Create pFeatureClass, Nothing, pFldname
    Dim rWksFac As IWorkspaceFactory
    Set rWksFac = New RasterWorkspaceFactory
    Dim pRasWS As IRasterWorkspace
    Set pRasWS = rWksFac.OpenFromFile(pRasterPath, 0)
    Dim pRasout As IRasterDataset
    Set pRasout = pConversionOp.ToRasterDataset(pFDesc, "IMAGINE Image", pRasWS, pRasterName)
    Set PolgonToRaster = pRasout.CreateDefaultRaster
End Function