setting .contour_values on ESRI.ArcGIS.SpatialAnalystTools.ContourList

Discussion created by ethoms on Sep 26, 2011
Latest reply on Sep 27, 2011 by ethoms
I am trying to use the .NET wrapper for the ContourList geoprocessing tool by reading in a text file and then supplying the necessary properties. Everything works when I use the wrapper for the Contour tool so I know my code basically works. But when I switch to the ContourList tool and try to set the .contour_values property (instead of the .contour_interval and .base_contour properties of the Contour tool), it fails. The list of contour values coming in from the text file is a single line of comma delimited numbers. I can't figure out how to interpret that line so that the tool will take it.

    Public Function ContourRaster(ByVal sSourcePath As String, ByVal sInterval As String, ByVal sBase As String, ByVal sList As String) As String
            'calculates contours from the input raster and then applies symbology

            Dim gp As ESRI.ArcGIS.Geoprocessor.Geoprocessor = New ESRI.ArcGIS.Geoprocessor.Geoprocessor()
            Dim contour As ESRI.ArcGIS.SpatialAnalystTools.Contour = New ESRI.ArcGIS.SpatialAnalystTools.Contour()
            Dim conlist As ESRI.ArcGIS.SpatialAnalystTools.ContourList = New ESRI.ArcGIS.SpatialAnalystTools.ContourList()

            Dim sSourceDir As String
            Dim sOutName As String
            Dim sOutPath As String

            'tried some different kinds of arrays
            Dim lList As New List(Of Double)
            Dim darray As IDoubleArray = New DoubleArray
            Dim parameters As IVariantArray = New VarArray

            fso = CreateObject("Scripting.FileSystemObject")
            sSourceDir = fso.GetParentFolderName(sSourcePath)                   'gets parent folder of the base file or folder
            sOutName = fso.GetBaseName(sSourcePath)                             'gets the base file (w/o extension) or folder (esri grid)
            sOutPath = sSourceDir & "\" & sOutName & "_cnt.shp"

            If sList = "" Then
                With contour
                    .in_raster = sSourcePath
                    .out_polyline_features = sOutPath
                    .contour_interval = sInterval
                    .base_contour = sBase
                End With
                gp.Execute(contour, Nothing)
                With conlist
                    .in_raster = sSourcePath
                    .out_polyline_features = sOutPath
                    'I have tried to set contour_values to the incoming string as well as a variety of arrays
                    .contour_values = parameters
                End With
                gp.Execute(conlist, Nothing)
            End If

            'return the outputs parameter to what it was
            gp.AddOutputsToMap = bDefOutputs

            'return the path to the contours data source
            ContourRaster = sOutPath

        Catch e As Exception
        End Try
    End Function