03-21-2020
02:36 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-21-2020
02:36 PM
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.
Blog: hjalte.nl - github.com