Dim oApprenticeApp As Inventor.ApprenticeServerComponent
oApprenticeApp = New Inventor.ApprenticeServerComponent
Dim odoc As ApprenticeServerDocument
odoc = oApprenticeApp.Open("E:\Autodesk Cases\Inventor\Nov-2020\17191637\Assembly1.ipn")
Dim oFSA As FileSaveAs
oFSA = oApprenticeApp.FileSaveAs
Dim oFD As FileDescriptor
oFD
= odoc.
File.
ReferencedFileDescriptors(1) oFD.ReplaceReference("E:\Autodesk Cases\Inventor\Nov-2020\17191637\Assembly1.iam")
oFSA.AddFileToSave(odoc, odoc.FullFileName)
oFSA.ExecuteSave()