Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: adam.nagy

Thanks Adam, Just what i was looking for.

 

 Dim oFlatPattern As FlatPattern

        oFlatPattern = oSheetMetalCompDef.FlatPattern

        Dim oBendResults As FlatBendResults = oFlatPattern.FlatBendResults

        'Dim oTotalBends As Integer = oBendResults.Count / 2 ( This was wrong )

        Dim oBendresult As FlatBendResult

        Dim oBendCountReal As Long = Nothing

        For Each oBendresult In oBendResults

            Dim oBendordernumber As Long
            Dim oBendorderSource As BendOrderSourceTypeEnum

            Call oBendresult.GetBendOrder(oBendordernumber, oBendorderSource)

            If oBendordernumber > oBendCountReal Then

                oBendCountReal = oBendordernumber

            End If

        Next

        'MsgBox("oBendCountReal = " & oBendCountReal)

        Return oBendCountReal