IConversionOp RasterDataToLineFeatureData Example

  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)

 

http://edndoc.esri.com/arcobjects/9.2/ComponentHelp/esriGeoAnalyst/IConversionOp_RasterDataToLineFeatureData_Example.htm

Advertisements