ilogic remove unresolved OLE links

[louis.seguin]

I have had trouble finding code that removes only unresolved OLE links on any inventor document. finally got one to work. thought i'd share.

coded on Ilogic Inventor 2014. I'm not a professional coder, feel free to correct syntax

SyntaxEditor Code Snippet

ThisApplication.SilentOperation = True 
 
 Dim oPartDoc As Document = ThisDoc.Document
 Dim bSaveDoc As Boolean = False
 Dim oRefOleFileDesc As ReferencedOLEFileDescriptor 
 
 If oPartDoc.ReferencedOLEFileDescriptors.Count > 0 Then 
     For Each oRefOleFileDesc In oPartDoc.ReferencedOLEFileDescriptors 
          'Debug.Print oRefOleFileDesc.ReferenceStatus 
          
          If oRefOleFileDesc.ReferenceStatus() = 49668 Then 
         

          '49668 = kMissingReferencE
             'Debug.Print (oRefOleFileDesc.DisplayName) 
              oRefOleFileDesc.Delete 
              oPartDoc.Dirty = True 
              bSaveDoc = True 
          End If 
        Next oRefOleFileDesc 
      
      If bSaveDoc = True Then 
          oPartDoc.Save 
          bSaveDoc = False 
      End If 
  End If 
' Be sure to set this back to False 
 ThisApplication.SilentOperation = False 

[MechMachineMan · Accepted solution]

Here's an alternative that just opens the files with broken links, and allows the user to delete or resolve manually.

The intent is to open a top level file, skip all unresolved links, then run this. Works good for FEA files.

Sub Main()
	Dim oDoc As Document = ThisApplication.ActiveDocument
	
	For Each oOLEFileRef In oDoc.ReferencedOLEFileDescriptors
		oOLEFileRef.BrowserVisible = True
	Next
	
	For Each oSubDoc As Document In oDoc.AllReferencedDocuments
		If oSubDoc.ReferencedOLEFileDescriptors.Count > 0
			OpenAndMakeOLEVisible(oSubDoc)
		End If
	Next
	
	MsgBox("Rule Complete!",,"iLogic")
End Sub

Sub OpenAndMakeOLEVisible(oDoc As Document)

        'This boolean can be changed in case you want all files with OLE refs open.
	Dim oOpenOnlyMissing As Boolean = True

	oVisiDoc = ThisApplication.Documents.Open(oDoc.FullFileName,False)

	For Each oOLEFileRef In oVisiDoc.ReferencedOLEFileDescriptors
		oOLEFileRef.BrowserVisible = True

		If oOLEFileRef.ReferenceStatus <> ReferenceStatusEnum.kMissingReference And oOpenOnlyMissing = True
			oVisiDoc.ReleaseReference
		Else
			ThisApplication.Documents.Open(oVisiDoc.FullFileName,True)
		End If
	Next
End Sub

[fce]

Hello there,

it is a really helpful iLogic.
How would you delete the unresolved OLEs links?

Greetings,
Francisco

[dusan.naus.trz]

Context. Link

https://adndevblog.typepad.com/manufacturing/2017/12/remove-ole-links-using-referencedolefiledescrip...