Solid Edge Framework Type Library : SolidEdgeInsightXT Object |
Imports System.IO Imports System.Runtime.InteropServices Module Example <STAThread()> _ Sub Main() Dim objApplication As SolidEdgeFramework.Application = Nothing Dim objSolidEdgeInsightXT As SolidEdgeFramework.SolidEdgeInsightXT Try OleMessageFilter.Register() objApplication = Marshal.GetActiveObject("SolidEdge.Application") objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT Catch ex As Exception Console.WriteLine(ex.Message) Finally OleMessageFilter.Revoke() End Try End Sub End Module