Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor .NET
  Inventor.ApprenticeServer

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:   Inventor.ApprenticeServer (547 mal gelesen)
Frank_Schalla
Ehrenmitglied
CAD_SYSTEMBETREUER


Sehen Sie sich das Profil von Frank_Schalla an!   Senden Sie eine Private Message an Frank_Schalla  Schreiben Sie einen Gästebucheintrag für Frank_Schalla

Beiträge: 1694
Registriert: 06.04.2002

DELL M6800
Cad Admin
Methodikentwickler 3D

erstellt am: 23. Sep. 2020 14:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

RolandD
Mitglied



Sehen Sie sich das Profil von RolandD an!   Senden Sie eine Private Message an RolandD  Schreiben Sie einen Gästebucheintrag für RolandD

Beiträge: 459
Registriert: 07.01.2005

i7-9700k
32GB DDR4-RAM
Nvidia RTX 2060
SSD 970 m.2
Win10-64 (1909)
AIP 2020.3
Dell U3417W

erstellt am: 23. Sep. 2020 22:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Frank_Schalla 10 Unities + Antwort hilfreich

Hallo Frank,

Ich denke, du musst das referencedDoc noch im ApprenticeServer öffnen, bevor du abfragen kannst.

------------------
Gruß Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik


Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 1645
Registriert: 15.11.2006

Windows 7 x64, AIS 2014

erstellt am: 24. Sep. 2020 23:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Frank_Schalla 10 Unities + Antwort hilfreich

Hallo

AllReferencedDocuments listet doch schon alle referenzierten Dokumente, egal in welcher Ebene, auf. Du brauchst dich nicht durch die Struktur wühlen. 

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Frank_Schalla
Ehrenmitglied
CAD_SYSTEMBETREUER


Sehen Sie sich das Profil von Frank_Schalla an!   Senden Sie eine Private Message an Frank_Schalla  Schreiben Sie einen Gästebucheintrag für Frank_Schalla

Beiträge: 1694
Registriert: 06.04.2002

DELL M6800
Cad Admin
Methodikentwickler 3D

erstellt am: 29. Sep. 2020 08:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi Klaus

genau da komme ich nicht weiter.
Beispiel 1
Es gibt ein Subassembly dessen Komponenten muss ich auch prüfen.

Beispiel 2
Es gibt ein IPT (derived) dessen Komponenten muss ich auch prüfen.

------------------
************************************
 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik


Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 1645
Registriert: 15.11.2006

Windows 7 x64, AIS 2014

erstellt am: 30. Sep. 2020 10:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Frank_Schalla 10 Unities + Antwort hilfreich

Falls mit Klaus ich gemeint bin, Hallo Peter       

Kannst du mal diesen Code versuchen?

Code:

Public Sub CheckRefs(name as String)

Dim aApp As Inventor.ApprenticeServerComponent
Set aApp = New ApprenticeServerComponent
Dim oDoc As Inventor.ApprenticeServerDrawingDocument

Set oDoc = aApp.Open(name)

Dim oRefedFileDesc As ReferencedFileDescriptor
For Each oRefedFileDesc In oDoc.ReferencedFileDescriptors
    Call Checker(oRefedFileDesc)
Next

End Sub

Public Sub Checker(oRefedFileDesc As ReferencedFileDescriptor)

    Dim oSubRefedFileDesc As ReferencedFileDescriptor
    Debug.Print ("CHECK_REF FOR SUB          > " & oRefedFileDesc.FullFileName)

    If oRefedFileDesc.ReferenceStatus = kMissingReference Then
        Debug.Print ("CHECK_REF ERROR ")
        Exit Sub
    Else
        Debug.Print ("CHECK_REF OK ")
    End If
   
    For Each oSubRefedFileDesc In oRefedFileDesc.DocumentDescriptor.ReferencedDocument.ReferencedFileDescriptors
        Call Checker(oSubRefedFileDesc)
    Next
   
End Sub


------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz