Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor .NET
  Dateien in Listbox einlesen

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:  Dateien in Listbox einlesen (1095 mal gelesen)
Rodario7
Mitglied
Maschinenbautechniker


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

Beiträge: 85
Registriert: 08.02.2013

Windows 7 64bit
Inventor 2013
Visual Basic 2010 Express

erstellt am: 25. Feb. 2015 17:27    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

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

Rodario7
Mitglied
Maschinenbautechniker


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

Beiträge: 85
Registriert: 08.02.2013

Windows 7 64bit
Inventor 2013
Visual Basic 2010 Express

erstellt am: 27. Feb. 2015 10:26    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

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

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: 529
Registriert: 07.01.2005

erstellt am: 27. Feb. 2015 11:14    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 Rodario7 10 Unities + Antwort hilfreich

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

Rodario7
Mitglied
Maschinenbautechniker


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

Beiträge: 85
Registriert: 08.02.2013

Windows 7 64bit
Inventor 2013
Visual Basic 2010 Express

erstellt am: 27. Feb. 2015 11:23    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

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

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: 2138
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 28. Feb. 2015 12:33    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 Rodario7 10 Unities + Antwort hilfreich

Hallo

wohl eher

Code:
oDoc.AllReferencedFiles

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

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

Rodario7
Mitglied
Maschinenbautechniker


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

Beiträge: 85
Registriert: 08.02.2013

Windows 7 64bit
Inventor 2013
Visual Basic 2010 Express

erstellt am: 01. Mrz. 2015 10:49    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

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

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: 2138
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 01. Mrz. 2015 22:17    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 Rodario7 10 Unities + Antwort hilfreich

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

Rodario7
Mitglied
Maschinenbautechniker


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

Beiträge: 85
Registriert: 08.02.2013

Windows 7 64bit
Inventor 2013
Visual Basic 2010 Express

erstellt am: 01. Mrz. 2015 22:57    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

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

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: 2138
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 02. Mrz. 2015 00:46    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 Rodario7 10 Unities + Antwort hilfreich

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

Rodario7
Mitglied
Maschinenbautechniker


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

Beiträge: 85
Registriert: 08.02.2013

Windows 7 64bit
Inventor 2013
Visual Basic 2010 Express

erstellt am: 02. Mrz. 2015 09:07    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

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

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: 2138
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 02. Mrz. 2015 12:48    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 Rodario7 10 Unities + Antwort hilfreich

Hallo

Und wenn du oRefFile als Object deklarierst?

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

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

Rodario7
Mitglied
Maschinenbautechniker


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

Beiträge: 85
Registriert: 08.02.2013

Windows 7 64bit
Inventor 2013
Visual Basic 2010 Express

erstellt am: 02. Mrz. 2015 13:56    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

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

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)2023 CAD.de | Impressum | Datenschutz