---------------
Report application AddIns objects
Solution
Imports System.IO
Imports System.Runtime.InteropServices
Module ReportApplicationAddInsObject
Sub Main()
Dim objApplication As SolidEdge.Framework.Interop.Application = Nothing
Dim objType As Type = Nothing
Try
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
If objApplication Is Nothing Then
objType = Type.GetTypeFromProgID("SolidEdge.Application")
objApplication = Activator.CreateInstance(objType)
objApplication.Visible = True
End If
Dim addins = objApplication.AddIns
For i As Integer = 1 To addins.Count
Dim addin = addins.Item(i)
Next i
MsgBox(addins.Count.ToString())
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Module
Notes and References
Hardware/Software Configuration
Platform: AMD64
OS: window
OS Version: 764
Product: SOLID_EDGE
Application: AUTOMATION
Version: V109MP5
Function: API_DOCUMENT
Ref: 002-7009798