PdcNesting.NestingLineList

From External Bemet Wiki
Jump to navigation Jump to search

Declaration

NestingLineList as PdcNestingLineList

Description

Returns the NestingLineList object

Notes

This property returns the 'NestingLineList ' object of the current nesting object.

Code example

This code example loops through the NestingLineList of the active nesting object and displays the calculation number of the line.

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

    Nest = PDC.App.MasterData.Nesting
    NestLineList = Nest.NestingLineList
    For index = 0 To NestLineList.Count -1
      NestLine = NestLineList.Items(index)
      MsgBox(NestLine.CalculationNo)
    Next
    Nest.Save

    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