08-08-2018
09:06 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-08-2018
09:06 PM
Hi Try this,
SyntaxEditor Code Snippet
Dim openDoc As Inventor.Document Dim docFile As Inventor.Document Dim docFName As String openDoc = ThisApplication.ActiveDocument For Each docFile In openDoc.AllReferencedDocuments If docFile.DocumentType = kPartDocumentObject And docfile.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then 'sheet metal part' docFName = (docFile.FullFileName) MessageBox.Show(docFName & " is a sheet metal part", "Parts that are Sheet Metal") End If Next