PdcNestingLineList.Items

Declaration

Items(Index as Integer) as PdcNestingLine

Description

Returns a nesting line

Code example

This code loops through the lines in a nesting object.

    Dim Nest As PDCEXT.INesting
    Dim NestLineList As PDCEXT.INestingLineList
    Dim NestLine As PDCEXT.INestingLine

    Nest = PDC.App.MasterData.Nesting
    Nest.Read("00000001")
    NestLineList = Nest.NestingLineList

    For index = 0 To NestLineList.Count -1
      NestLine = NestLineList.Items(index)
    Next

    Try
      System.Runtime.InteropServices.Marshal.FinalReleaseComObject(NestLine)
      System.Runtime.InteropServices.Marshal.FinalReleaseComObject(NestLineList)
      System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Nest)
      NestLine = Nothing
      NestLineList = Nothing
      Nest = Nothing
    Catch ex As Exception
      NestLine = Nothing
      NestLineList = Nothing
      Nest = Nothing
    Finally
      GC.Collect()
    End Try

Availability

Since pdC 5.4