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