Dim pConversionOp As IConversionOp
Set pConversionOp = New RasterConversionOp
‘Get the raster
Dim pRas01 As IRaster
Set pRas01 = getRasterFromFileFunction(“c:\data\myRaster”)
Dim pFClassOut As IGeoDataset
Dim pWSF As IWorkspaceFactory
Set pWSF = New ShapefileWorkspaceFactory
Dim pWS As IWorkspace
Set pWS = pWSF.OpenFromFile(“c:\data”, 0)
Dim sOutFCname As String
sOutFCname = “myShapeFile.shp”
Set pFClassOut = pConversionOp.RasterDataToLineFeatureData(pRas01, pWS, sOutFCname, False, False, 1.0)
Advertisements