Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objPartDocument As SolidEdgePart.PartDocument = Nothing
        Dim objModels As SolidEdgePart.Models = Nothing
        Dim objModel As SolidEdgePart.Model = Nothing
        Dim objExtrudedProtrusions As SolidEdgePart.ExtrudedProtrusions = Nothing
        Dim objExtrudedProtrusion As SolidEdgePart.ExtrudedProtrusion = Nothing
        Dim objBody As SolidEdgeGeometry.Body = Nothing
        Dim objStudyOwner As SolidEdgePart.StudyOwner = Nothing
        Dim objStudy As SolidEdgePart.Study = Nothing
        Dim objGeomArray(0) As Object
        Dim eStudyType As SolidEdgePart.FEAStudyTypeEnum_Auto = SolidEdgePart.FEAStudyTypeEnum_Auto.eStudyTypeLinearStatic_Auto
        Dim eMeshType As SolidEdgePart.FEAMeshTypeEnum_Auto = SolidEdgePart.FEAMeshTypeEnum_Auto.eMeshTypeTetrahedral_Auto
        Dim dThickness As Double = 0.1 ' Surface Thickness
        Dim dwOptions As Int32 ' Result Options
        Dim ulNumModes As ULong = 4 ' Number of modes
        Dim dFreqRangeLow As Double = 0.0 ' Minimum frequency value
        Dim dFreqRangeHigh As Double = 1.0 ' Maximum frequenct value
        Dim bstrNasCmdLine As String = "" ' Nastran Command line options
        Dim bstrNasKeywordOpts As String = "" ' Nastran keywords
        Dim dwResOptions As Int32 = 0 ' Result options.

        Try
            OleMessageFilter.Register()

            ' Connect to Solid Edge
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objPartDocument = objApplication.ActiveDocument
            objModels = objPartDocument.Models
            objModel = objModels.Item(1)
            objExtrudedProtrusions = objModel.ExtrudedProtrusions

            objStudyOwner = objPartDocument.StudyOwner

            objStudyOwner.AddStudy(eStudyType, _
                                   eMeshType, _
                                   dThickness, _
                                   dwOptions, _
                                   ulNumModes, _
                                   dFreqRangeLow, _
                                   dFreqRangeHigh, _
                                   bstrNasCmdLine, _
                                   bstrNasKeywordOpts, _
                                   dwResOptions, _
                                   objStudy)

            ' Get second protrusion
            objExtrudedProtrusion = objExtrudedProtrusions.Item(2)

            'Delete this protrusion
            objExtrudedProtrusion.Delete()

            ' Get body
            objBody = objModel.Body
            objGeomArray(0) = objBody

            ' Set geometry on study
            objStudy.EditStudyGeom(objStudy, objGeomArray)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub
End Module