How could I access a part of subass 1

[eastar]

How could I access a part of subassembly from assembly document via VB?

 

[ailuJ]

You can use the Occurrences object of Solid Edge, that represents a collection of Occurrence objects, here is an example of code, I hope that helps you

   Dim objApp As Object
   Dim objParts As SolidEdgeAssembly.Occurrences
   Dim objDoc As SolidEdgeAssembly.AssemblyDocument
   Dim objPart As SolidEdgeAssembly.Occurrence
   
   ' Connect to a running instance of Solid Edge.
   Set objApp = GetObject(, "SolidEdge.Application")
   
   If GetActive = True Then
      Set objDoc = objApp.ActiveDocument
   Else
      Set objDoc = ActiveDoc
   End If
   
   Set objParts = objDoc.Occurrences
   For Each objPart In objParts
      Dim FileName As String
      FileName = objPart.OccurrenceFileName
   Next

 

[ailuJ]

Sorry, this code is for access to the part's of an assembly, to access to a part of a subassembly you can go through the objPart.OccurrenceDocument, and this is the Part of the document of the subassembly, so:

   Dim objApp As Object
   Dim objParts As SolidEdgeAssembly.Occurrences
   Dim objDoc As SolidEdgeAssembly.AssemblyDocument
   Dim objPart As SolidEdgeAssembly.Occurrence
   Dim objDocSubAss As SolidEdgeAssembly.AssemblyDocument
   Dim objPartsSubAss As SolidEdgeAssembly.Occurrences
   Dim objPartSubAss As SolidEdgeAssembly.Occurrence
   
   ' Connect to a running instance of Solid Edge.
   Set objApp = GetObject(, "SolidEdge.Application")
   
   If GetActive = True Then
      Set objDoc = objApp.ActiveDocument
   Else
      Set objDoc = ActiveDoc
   End If
   
   Set objParts = objDoc.Occurrences
   For Each objPart In objParts
      Set objDocSubAss   = objPart.OccurrenceDocument
      Set objPartsSubAss = objPartSubAss.Occurrences
      For Each objPartSubAss In objPartsSubAss

...

      Next
   Next

 

[eastar]

ailuJ,thanks for your help. I solved the problem with your instruction.