Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: Jason.Rugg

Please try this snippet:

Dim oFile As Inventor.File
oFile = oAsmDoc.File

Dim oFileDescriptor As FileDescriptor

For Each oFileDescriptor In oFile.ReferencedFileDescriptors
If Not oFileDescriptor.ReferenceMissing Then
If Not oFileDescriptor.ReferencedFileType = FileTypeEnum.kForeignFileType Then
End If
Else
Dim oComp As ComponentOccurrence
For Each oComp In oAsmCompDef.Occurrences
If oComp.ReferencedDocumentDescriptor.ReferencedFileDescriptor.FullFileName = oFileDescriptor.FullFileName Then
oComp.Delete

I hope You'll find it helpful 

 

Regards 

Tomek