GetObjectByPersistReference3 fails for ref I just got (in Assembly)

Can you examine the value of PID?  Can you compare those values to the ones reported by my VBA macro?

Where is the list of sketch segments coming from?  Again, not a C guy, but it looks like you're passing in a list from somewhere to this function.  How is the list created?  Can you create a similar function to mine that just gets PIDs from the current selection set?  If you are pulling the list out of a selection box that SolidWorks populates, the list of objects themselves may be in part context rather than assembly.

Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim swExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim swSelComp As SldWorks.Component2
Dim swSelDoc As SldWorks.ModelDoc2
Dim oObj As Object
Dim vRef As Variant
Dim bRef() As Byte
Dim theLen As Long
Dim i As Long
Dim j As Long
Dim sRef As String
Dim failCode As Long
Dim theType As swSelectType_e

Sub main()

Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
Set swExt = swDoc.Extension
Set swSelMgr = swDoc.SelectionManager

For i = 1 To swSelMgr.GetSelectedObjectCount2(-1)
    vRef = swExt.GetPersistReference3(swSelMgr.GetSelectedObject6(i, -1))
    theLen = swExt.GetPersistReferenceCount3(swSelMgr.GetSelectedObject6(i, -1))
    ReDim bRef(theLen)
    bRef = swExt.GetPersistReference3(swSelMgr.GetSelectedObject6(i, -1))
    Set swSelComp = swSelMgr.GetSelectedObjectsComponent4(i, -1)
    Set swSelDoc = swSelComp.GetModelDoc2
    theType = swSelMgr.GetSelectedObjectType3(i, -1)
    sRef = ""
    Debug.Print "Object type: " & theType & "  Array length: " & UBound(vRef) + 1 & " Reported length: " & theLen
    For j = 0 To UBound(vRef)
        If vRef(j) <> bRef(j) Then
            sRef = sRef & "!!!"
        End If
        sRef = sRef & " " & vRef(j)
    Next j
    Debug.Print sRef
    Set oObj = Nothing
    Set oObj = swExt.GetObjectByPersistReference3(vRef, failCode)
    Debug.Print "Object is Nothing in Active doc? " & (oObj Is Nothing) & " Fail code: " & failCode
    'Set oObj = Nothing
    'Set oObj = swSelDoc.Extension.GetObjectByPersistReference3(vRef, failCode)
    'Debug.Print "Object is Nothing in Component's doc? " & (oObj Is Nothing) & " Fail code: " & failCode & vbCrLf
    Set oObj = swSelDoc.Extension.GetCorresponding(oObj)
    Debug.Print "Got object in part context? " & Not (oObj Is Nothing)
    vRef = swSelDoc.Extension.GetPersistReference3(oObj)
    sRef = ""
    For j = 0 To UBound(vRef)
        sRef = sRef & " " & vRef(j)
    Next j
    Debug.Print sRef
    Set oObj = swSelComp.GetCorresponding(oObj)
    Debug.Print "Got object back in assembly context? " & Not (oObj Is Nothing)
    vRef = swExt.GetPersistReference3(oObj)
    sRef = ""
    For j = 0 To UBound(vRef)
        sRef = sRef & " " & vRef(j)
    Next j
    Debug.Print sRef
Next i