How could I access a part of subass
How could I access a part of subass
(OP)
How could I access a part of subassembly from assembly document via VB?
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
How could I access a part of subass
|
RE: How could I access a part of subass
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
RE: How could I access a part of subass
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
RE: How could I access a part of subass