Broken Interpart Links

Hello!

 

I am iterating through a documents interpart links and I need to find out if a link is broken.

Currently, I only see the property "IsFrozen" but there is no "IsBroken"

 

Any help would be greatly appreciated!

 

Thanks!

 

Public Function GetInterpartLinks() As List(Of String)

 

Dim interparts As New List(Of String)

 

Try

Dim objInterPartLinks As SolidEdgeFramework.InterpartLinks = Document.OccurrenceDocument.InterpartLinks

Dim sourceFeatureName As String = ""

Dim documentName As String = ""

 

Dim objInterPart As SolidEdgeFramework.InterpartLink

 

For i = 1 To objInterPartLinks.Count

objInterPart = objInterPartLinks.Item(i)

objInterPart.GetInfo(sourceFeatureName, documentName)

 

If documentName.Trim.Count = 0 Then Continue For

 

interparts.Add(documentName)

Next

Catch ex As Exception

Debug.Print(ex.Message)

End Try

 

interparts = interparts.Distinct.ToList

 

Return interparts

End Function

 

Posted by: maury terneus
Post date: 7/3/2013 7:50:53 AM

1 REPLY

Broken Interpart Links

Maury,

 

lacking the property IsBroken in an InterPartLink object you may define a InterPartLink broken, if either the document returned by GetInfo doesn't exist or the Feature returned by GetInfo doesn't exist in the document returned.

 

Posted by: Wolfgang Kunert
Post date: 7/3/2013 11:13:07 AM