Hi,
FlatBendResult.IsDirectionUp tells this info. The following is a small code.
Public Sub GetBendResults()
' Set a reference to the sheet metal document.
' This assumes a part document is active.
Dim oPartDoc As PartDocument
oPartDoc = _InvApplication.ActiveDocument
' Make sure the document is a sheet metal document.
If oPartDoc.SubType <> "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
MsgBox("A sheet metal document must be open.")
Exit Sub
End If
Dim oSheetMetalCompDef As SheetMetalComponentDefinition
oSheetMetalCompDef = oPartDoc.ComponentDefinition
If (Not oSheetMetalCompDef.HasFlatPattern) Then
oSheetMetalCompDef.Unfold()
End If
Dim oFlatPattern As FlatPattern
oFlatPattern = oSheetMetalCompDef.FlatPattern
Dim oBendResult As FlatBendResult
For Each oBendResult In oFlatPattern.FlatBendResults
Dim strResult As String
strResult = "Internal Name: " & oBendResult.InternalName & ", "
If oBendResult.IsOnBottomFace Then
strResult = strResult & "On Bottom, "
Else
strResult = strResult & "On Top, "
End If
strResult = strResult & "Angle: " & _InvApplication.ActiveDocument.UnitsOfMeasure.GetStringFromValue(oBendResult.Angle, UnitsTypeEnum.kDefaultDisplayAngleUnits) & ", "
strResult = strResult & "Inner Radius: " & _InvApplication.ActiveDocument.UnitsOfMeasure.GetStringFromValue(oBendResult.InnerRadius, UnitsTypeEnum.kDefaultDisplayLengthUnits) & ", "
If oBendResult.IsDirectionUp Then
strResult = strResult & "Bend Direction: " & "Bend Up"
Else
strResult = strResult & "Bend Direction: " & "Bend Down"
End If
Debug.Print(strResult)
Next
End Sub
