Solid Edge Report Bend parameter

2021-10-06T23:55:23Z
PART/SHEETMETAL

Summary


Details

--------------- 
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

KB Article ID# PL7009647

Contents

SummaryDetails

Associated Components

PART/SHEETMETAL: FEATURES