07-12-2019
12:55 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-12-2019
12:55 PM
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