---------------
Report Bend parameter
Solution
Imports System.IO
Imports System.Runtime.InteropServices
Imports SolidEdge.Assembly.Interop
Imports SolidEdge.Part.Interop
Imports SolidEdge.Framework.Interop
Imports SolidEdge.FrameworkSupport.Interop
Imports SolidEdge.Constant.Interop
Imports SolidEdge.Geometry.Interop
Module ReportBendparameter
Sub Main()
Dim objApp As SolidEdge.Framework.Interop.Application = Nothing
Dim objSheetDoc As SolidEdge.Part.Interop.SheetMetalDocument = Nothing
Dim objBTable As SolidEdge.Part.Interop.BendTable = Nothing
Dim int As Integer = 1
Dim featureName As String = Nothing
Dim BendRadius As Double, BendAngle As Double, ConvertBendAngle As
Double, ConvertBendRadius As Double = Nothing
Dim BendDirection As SolidEdge.Constant.Interop.BendDirectionConstants
objApp = GetObject(, "SolidEdge.Application")
'The .PSM file must have bend and location should be change by user.
objSheetDoc = objApp.Documents.Open("C:\Temp\GTAC.psm")
objBTable = objSheetDoc.BendTable
For int = 1 To objBTable.BendCount
objBTable.GetBendData(int, featureName, BendRadius, BendAngle,
BendDirection)
ConvertBendRadius = BendRadius * 1000 / 25.4
ConvertBendAngle = BendAngle / 0.0174533
MsgBox("Feature Name = " & featureName & vbNewLine + "Bend Radius =
" & ConvertBendRadius & " in" & vbNewLine + "Bend Angle = " & ConvertBendAngle
& " °" & vbNewLine + "Bend Direction = " & BendDirection.ToString())
Next
End Sub
End Module
Notes and References
Hardware/Software Configuration
Platform: INTL64
OS: window
OS Version: 764
Product: SOLID_EDGE
Application: AUTOMATION
Version: V109MP7
Function: API_DOCUMENT
Ref: 002-7009647