Hmm ich möchte einfach nur die Referenzen einer Zeichnung von aussen prüfen.
Das klappt auf der ersten Stufe auch.
Nun sollen aber auch die Subs und Ipt Referenzen geprüft werden.
Da klappts dann wieder nicht.
Es ist die Stelle die im Moment die ausdokumentiert ist.
Hat da jemand eine Idee ?
************************
Public Sub Checker(name As String)
Dim drawingDoc As Inventor.ApprenticeServerDocument
drawingDoc = ApprenticeServer.Open(name)
' Get all of the documents referenced by this document.
Dim allReferencedDocs As Inventor.ApprenticeServerDocuments
Dim oFileDescriptor As FileDescriptor
allReferencedDocs = drawingDoc.AllReferencedDocuments
Dim referencedDoc As Inventor.ApprenticeServerDocument
For Each referencedDoc In allReferencedDocs
' Get the full filename of the current document.
Debug.Print("CHECK_REF FOR > " & referencedDoc.FullFileName)
'For Each oFileDescriptor In referencedDoc.ReferencedFileDescriptors
' Debug.Print("CHECK_REF FOR SUB > " & oFileDescriptor.FullFileName)
' If Not oFileDescriptor.ReferenceMissing Then
' Debug.Print("CHECK_REF OK ")
' Else
' Debug.Print("CHECK_REF ERROR ")
' End If
'Next
Next
End Sub
------------------
************************************
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP