Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()

        Dim objApplication As SolidEdgeFramework.Application
        Dim objAssemblyDocument As SolidEdgeAssembly.AssemblyDocument
        Dim objOccurrences As SolidEdgeAssembly.Occurrences
        Dim objOccurrence As SolidEdgeAssembly.Occurrence
        Dim objRelations3d As SolidEdgeAssembly.Relations3d
        Dim objRigidSetRelation3d As SolidEdgeAssembly.RigidSetRelation3d
        Dim objRelation As Object

        Try
            OleMessageFilter.Register()

            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objAssemblyDocument = objApplication.ActiveDocument

            objOccurrences = objAssemblyDocument.Occurrences
            objRelations3d = objAssemblyDocument.Relations3d
            objOccurrence = objOccurrences.Item(1)

            For i = 1 To objRelations3d.Count
                objRelation = objRelations3d.Item(i)

                If objRelation.Type = SolidEdgeFramework.ObjectType.igRigidSetRelation3d Then
                    objRigidSetRelation3d = objRelation
                    If objRigidSetRelation3d.IsMember(objOccurrence) = False Then
                        objRigidSetRelation3d.AddOccurrence(objOccurrence)
                    End If
                End If
            Next

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub
End Module