---

Hallo zusammen,
vielleicht kann mir jemand helfen.
Ich möchte in meinem Programm eine Baugruppe auswählen und alle untergeordnete Bauteile/Baugruppen in eine Listbox einlesen.
Gibts da eine Lösung oder einen Ansatz?

------------------
Gruß
Klaus

Hat sich erledigt habs selbst hingekriegt

[Diese Nachricht wurde von Rodario7 am 25. Feb. 2015 editiert.]

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

---

Hallöchen nochmal.,
klappt leider doch nicht so ganz wie ich es möchte.
Es werden nur die Unterbaugruppen aufgelistet, ich möchte aber alle Bauteile auflisten.
Hier mein bisheriger code:

Code:

---

  Sub openBAugruppe()
        lvHaupt.Clear()
        Dim oApprentice As New ApprenticeServerComponent
        ' Open a document.
        Dim oDoc As ApprenticeServerDocument
        oDoc = oApprentice.Open(Hauptdatei)
        Dim oRefFileDesc As ReferencedFileDescriptor
        'Dim oRefFileDesc As ReferenceComponents
        For Each oRefFileDesc In oDoc.ReferencedFileDescriptors
            lvHaupt.Items.Add(Hauptdatei)
            lvHaupt.Items.Add(oRefFileDesc.FullFileName)

        Next
        If lvHaupt.Items.Count <= 0 Then
            MsgBox("Keine ref. Dateien vorhanden")
        End If
       
    End Sub

---

------------------
Gruß
Klaus

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

---

Hallo Klaus,

du musst AllReferencedFiles prüfen 

Code:

---

oDoc.AllReferencedFileDescriptors

---

auswerten.

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

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

---

Hallo Roland,
wenn ich das in den Code einsetze kommt die Fehlermeldung:

Zitat:

---

Der öffentliche Member AllReferencedFileDescriptors für den Typ ApprenticeServerDocument wurde nicht gefunden

---

------------------
Gruß
Klaus

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

---

Hallo

wohl eher

Code:

---

oDoc.AllReferencedFiles

---

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

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

---

Hallo Ralf

Zitat:

---

Code:
oDoc.AllReferencedFiles

---

erzeugt die Fehlermeldung

Zitat:

---

Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Schnittstellentyp "Inventor.ReferencedFileDescriptor" umgewandelt werden. Dieser Vorgang konnte nicht durchgeführt werden, da der QueryInterface-Aufruf an die COM-Komponente für die Schnittstelle mit der IID "{9E0BA9CA-E916-11D2-B785-0060B0F159EF}" aufgrund des folgenden Fehlers nicht durchgeführt werden konnte: Schnittstelle nicht unterstützt (Ausnahme von HRESULT: 0x80004002 (E_NOINTERFACE)).

---

Gruß
Klaus

------------------
Gruß
Klaus

[Diese Nachricht wurde von Rodario7 am 01. Mrz. 2015 editiert.]

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

---

Hallo

Ja, die Variablentypen sollten schon angepaßt werden.

Code:

---

Sub openBAugruppe()
        lvHaupt.Clear()
        Dim oApprentice As New ApprenticeServerComponent
        ' Open a document.
        Dim oDoc As ApprenticeServerDocument
        oDoc = oApprentice.Open(Hauptdatei)
        Dim oRefFile As File

        For Each oRefFile In oDoc.AllReferencedFiles
            lvHaupt.Items.Add(Hauptdatei)
            lvHaupt.Items.Add(oRefFile.FullFileName)

        Next
        If lvHaupt.Items.Count <= 0 Then
            MsgBox("Keine ref. Dateien vorhanden")
        End If
     
    End Sub

---

Ob oRefFile das Property FullFileName hat, mußt du selbst ausprobieren.

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

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

---

Code:

---

Dim oRefFile As File

---

geht nich , da Inventor importiert wurde.

------------------
Gruß
Klaus

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

---

Hallo

Wie wär's dann mit

Code:

---

Dim oRefFile As Inventor.File

---

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

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

---

Hab ich getestet.
Kommt die Fehlermeldung:

Zitat:

---

[
Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Schnittstellentyp "Inventor.File" umgewandelt werden. Dieser Vorgang konnte nicht durchgeführt werden, da der QueryInterface-Aufruf an die COM-Komponente für die Schnittstelle mit der IID "{6E5CDAB2-6BA5-4EAD-B357-78646BE0A813}" aufgrund des folgenden Fehlers nicht durchgeführt werden konnte: Schnittstelle nicht unterstützt (Ausnahme von HRESULT: 0x80004002 (E_NOINTERFACE)).
/QUOTE]
bei:

Code:

---

For Each oRefFile In oDoc.AllReferencedFiles

---

ebenso kommt eine Fehlermeldung wenn ich :

Code:

---

IO.File

---

eingebe:
[QUOTE]
Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Klassentyp "System.IO.File" umgewandelt werden. Instanzen von Typen, die COM-Komponenten repräsentieren, können nicht in andere Typen umgewandelt werden, die keine COM-Komponenten repräsentieren. Eine Umwandlung in Schnittstellen ist jedoch möglich, sofern die zugrunde liegende COM-Komponente QueryInterface-Aufrufe für die IID der Schnittstelle unterstützt.

---

------------------
Gruß
Klaus

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

---

Hallo

Und wenn du oRefFile als Object deklarierst?

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

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

---

Klasse nu klappt es.
Hier der funktionierende Code für die, die was ähnliches suchen.

Code:

---

Sub openBAugruppe()
        lvHaupt.Clear()
        Dim oApprentice As New ApprenticeServerComponent
        Dim oDoc As ApprenticeServerDocument
        oDoc = oApprentice.Open(Hauptdatei)
        Dim oRefFile As Object
        For Each oRefFile In oDoc.AllReferencedFiles
            lvHaupt.Items.Add(Hauptdatei)
            lvHaupt.Items.Add(oRefFile.DisplayName)
        Next
        If lvHaupt.Items.Count <= 0 Then
            MsgBox("Keine ref. Dateien vorhanden")
        End If
    End Sub

---

Vielen Dank für die Hilfe

------------------
Gruß
Klaus

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