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: donaldleigh

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