Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objDraftDocument As SolidEdgeDraft.DraftDocument = Nothing
        Dim objSheet As SolidEdgeDraft.Sheet = Nothing
        Dim objDrawingViews As SolidEdgeDraft.DrawingViews = Nothing
        Dim objDrawingView As SolidEdgeDraft.DrawingView = Nothing
        Dim objDraftBendTables As SolidEdgeDraft.DraftBendTables = Nothing
        Dim objDraftBendTable As SolidEdgeDraft.DraftBendTable = Nothing
        Dim objModelLink As SolidEdgeDraft.ModelLink = Nothing
        Dim objModelDocument As SolidEdgeFramework.SolidEdgeDocument = Nothing

        Try
            OleMessageFilter.Register()

            ' Connect to Solid Edge
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objApplication.Visible = True
            objDraftDocument = objApplication.ActiveDocument

            objDraftBendTables = objDraftDocument.DraftBendTables
            objSheet = objDraftDocument.ActiveSheet

            objDrawingViews = objSheet.DrawingViews
            objDrawingView = objDrawingViews.Item(1)
            objModelLink = objDrawingView.ModelLink
            objModelDocument = objModelLink.ModelDocument

            ' DraftBendTables.Add() is only valid on drawing views of sheet metal flat pattern.
            If objModelDocument.Type = SolidEdgeFramework.DocumentTypeConstants.igSheetMetalDocument Then
                If objDrawingView.ViewType = SolidEdgeDraft.SheetMetalDrawingViewTypeConstants.seSheetMetalFlatView Then
                    ' Place bend table with the saved settings "ISO".
                    objDraftBendTable = objDraftBendTables.Add(objDrawingView, "ISO", 1, 1)
                End If
            End If
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub
End Module