06-01-2015
06:43 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-01-2015
06:43 AM
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