New Post: HOW TO add or lower the Z of a polyline Z line...

Furthermore with large files it produces an outofmemory exception. The error points to the first line in this code suggesting that the Int32 capacity is a problem....

I have a shape with 70k polylines... 60k doesnt work either but 38k lines does...

Anyone, any idea whats going on?

            For Each f As Feature In flayer.FeatureSet.Features
                Dim countZ As Long = 0
                For Each coord As Coordinate In f.BasicGeometry.Coordinates
                    If countZ = 0 Then
                        HulpX = Round(100 * coord.X, 0)
                        HulpY = Round(100 * coord.Y, 0)
                        HulpZ = Round(100 * flayer.FeatureSet.Z(countZ), 0)
                    Else
                        BodemlijnX1 = HulpX
                        BodemlijnY1 = HulpY
                        BodemlijnZ1 = HulpZ
                        BodemlijnM1 = Round(0, 0)
                        BodemlijnX2 = Round(100 * coord.X, 0)
                        BodemlijnY2 = Round(100 * coord.Y, 0)
                        BodemlijnZ2 = Round(100 * flayer.FeatureSet.Z(countZ), 0)
                        BodemlijnM2 = Round(0, 0)
                        Bodemlijn = New Class_Bodemlijn(BodemlijnX1, BodemlijnY1, BodemlijnX2, BodemlijnY2, BodemlijnZ1, BodemlijnM1, BodemlijnZ2, BodemlijnM2)
                        BodemlijnLijst.Add(Bodemlijn)
                        HulpX = BodemlijnX2
                        HulpY = BodemlijnY2
                        HulpZ = BodemlijnZ2
                    End If
                    countZ = countZ + 1
                Next
                countLine = countLine + 1
                Me.ProgressBar.Value = 90 * (countLine / TotaalAantalPolyLines + 1)
            Next