Solid Edge Framework Type Library > Application Object : SolidEdgeInsightXT Property |
Visual Basic |
---|
Public Property SolidEdgeInsightXT As SolidEdgeInsightXT |
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