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

you can try this.

Dim notLinkedList As String = ""
Dim AssDoc As AssemblyDocument = ThisDoc.Document

For Each doc As Document In AssDoc.ReferencedDocuments
    Dim oPropSets As PropertySets = doc.PropertySets
    Dim oPropSet As PropertySet = oPropSets.Item("Design Tracking Properties")
    Dim oPartNumiProp As Inventor.Property = oPropSet.Item("Description")
    If (oPartNumiProp.Expression = Nothing) Then
        notLinkedList = notLinkedList + doc.FullFileName + System.Environment.NewLine
        Continue For
    End If
    If (oPartNumiProp.Expression.StartsWith("=") = False) Then
		notLinkedList = notLinkedList + doc.FullFileName + System.Environment.NewLine
    End If
Next

MsgBox(notLinkedList)

Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.

EESignature


Blog: hjalte.nl - github.com