Replacing References with API

[dbrblg]

Hi, 

I am trying to replace file references via the API.  So far I have this:

Const Assy = "\\xx\ConvertedData\Assy\"

Const Part = "\\xx\ConvertedData\Parts\"

Sub anothertest()

    Dim objDoc As Inventor.Document

    Dim objPar As Inventor.FileDescriptor

    Dim i As Long

    Set objDoc = ThisApplication.ActiveDocument

    For i = 1 To objDoc.File.ReferencedFileDescriptors.Count

        Set objPar = objDoc.File.ReferencedFileDescriptors.Item(i)

        Select Case objPar.ReferencedFileType

            Case kAssemblyFileType

                objPar.ReplaceReference Assy & GetFileName(objPar.ResolvedFullFileName)

            Case kPartFileType

                objPar.ReplaceReference Part & GetFileName(objPar.ResolvedFullFileName)

        End Select

    Next

    Set objDoc = Nothing

End Sub

The idea being a parasolid file is opened which creates the part / assy files within it.  This code will then run and replace each part and assy with one from a different location.

All I get when I run this is the error 'invalid procedure call or argument' at this position objPar.ReplaceReference Part & GetFileName(objPar.ResolvedFullFileName)

Can anyone point me on the right direction please?

Thanks

[YuhanZhang]

Can you check that the objPar.ResolvedFullFileName returns a valid path? And also please make sure that the document being replaced share the same internal name with the replacement one.

See below remarks for ReplaceReference method in help:

The file being replaced and the replacement file must share ancestry (i.e. they must have the same InternalName). Documents have the same internal name if they are copied using 'Save Copy As' or a file explorer copy.