Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objDocument As SolidEdgePart.PartDocument = Nothing
Dim objPartDoc As SolidEdgePart.PartDocument = Nothing
Dim objModel As SolidEdgePart.Model = Nothing
Dim objStudyOwner As SolidEdgePart.StudyOwner = Nothing
Dim objStudy As SolidEdgePart.Study = Nothing
Dim objFEAOptimizationOwner As SolidEdgePart.OptimizationOwner = Nothing
Dim objOptimization As SolidEdgePart.Optimization = Nothing
Try
' Get Application Object.
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objDocument = objApplication.ActiveDocument
objStudyOwner = objDocument.StudyOwner
objStudy = objStudyOwner.Item(1)
Call objStudy.GetOptimizationOwner(objFEAOptimizationOwner)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class