---

Werkstoffdatenbankauslesen.txt

Hallo liebe CAD Gemeinde,

ich habe ein Code gefunden, der mir die Werkstoffdatenbank von Inventor auslesen und in Excel schreiben soll. Das über eine ILogic Regel!
Leider läuft der nicht richtig! Kann mir da einer weiter helfen? Im Anhang der Code.
Danke schon mal für eure Hilfe.

VG
Enric

------------------
Konstruktion

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

---

Hallo

Geht nicht ist keine Fehlermeldung. Was soll denn da nicht richtig laufen?
Der Code läuft fehlerfrei durch und erzeugt eine Exceltabelle.

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Wurde das aktuelle Dokument vor dem Ausführen der Regel gespeichert?
Dies ist mit diesem Code m.E. zwingend erforderlich, siehe folgender Abschnitt:

Code:

---

'[ Set Excel file path and name
myPath = ThisDoc.Path
myFileName = iProperties.Value("project", "Part Number") & ".xlsx"
path_and_name = myPath & "\" & myFileName
']

---

Speicherort und Dateiname der Excel-Datei werden aus den hier deklarierten Variablen "myPath" und "myFileName" gebildet.
Außerdem weiter unten das automatische speichern der Excel-Datei getriggert.
Die Werte der Variablen werden erst nach dem Speichern des Inventor-Dokuments gesetzt und sind bei nicht gespeicherten Inventor-Dokument leer; -siehe iProperties Speicherort und Bauteilnummer.
Folglich fehlen Excel diese Informationen und es kommt zu einer Fehlermeldung.

Könnte man mit Prüfung des Speicherstatus und anschließendem Hinweis zum Speichern des Dokuments auffangen.

[Diese Nachricht wurde von hermann am 17. Mrz. 2023 editiert.]

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

---

2023-03-1715_20_35-AutodeskInventorProfessional2021.jpg

Hallo,

das Modell ist gespeichert und dann starte ich die iLogic Regel!
Excel wir auf gemacht, und er liest ein Teil der Materialdatenbank auf, aber nicht alle. Der Fehler taucht aber weiter auf, sobald Excel auf gemacht worden ist.

VG
Enric

------------------
Konstruktion

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

---

Hallo

Kannst du bitte den Tab "weitere Infos" von der Fehlermeldung als Screenshot posten? Das Fenster vorher bitte ausreichend groß ziehen, damit man die ganze Fehlermeldung lesen kann.

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

2023-04-0409_42_48-.jpg

Hallo,

sorry das ich erst jetzt antworte!
Im Anhang habe ich die ganze Fehlermeldung aufgezeigt.

MfG
Enric

------------------
Konstruktion

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

---

Hallo

Das ist leidser ein generischer Fehlercode ohne viel Aussagekraft. Aber ersetze in deinem Code bitte diesen Teil:

Code:

---

'[    'Write material library list to excel
    With excelApp
    'Iterate through material categories
        For Each cat In AML.MaterialAssetCategories
            .Range("a" & j).value = cat.DisplayName
            j= j + 1
            'Iterate through each material in the category
                For Each ma In cat.Assets
                    .Range("b" & j).value = ma.DisplayName
                    .Range("c" & j).value = ma.AppearanceAsset.DisplayName
                    .Range("d" & j).value = ma.PhysicalPropertiesAsset.DisplayName
                    j = j + 1
                Next
                j = j + 1
        Next
    End With
']

---

mit dem hier:

Code:

---

'[    'Write material library list to excel
    With excelApp
    'Iterate through material categories
        For Each cat In AML.MaterialAssetCategories
            .Range("a" & j).value = cat.DisplayName
            j= j + 1
            'Iterate through each material in the category
                For Each ma In cat.Assets
                    Try
                        .Range("b" & j).value = ma.DisplayName
                        .Range("c" & j).value = ma.AppearanceAsset.DisplayName
                        .Range("d" & j).value = ma.PhysicalPropertiesAsset.DisplayName
                    Catch
                    End Try
                    j = j + 1
                Next
                j = j + 1
        Next
    End With
']

---

Der Code sollte dann durchlaufen und die fehlerhaften Einträge erzeugen Leerzeilen bzw. unvollständige Zeilen in der Tabelle. Vielleicht hilft das den Fehler zu finden. Ich vermute das der Name eines Materials ein Sonderzeichen enthält, mit dem der Export nicht zurecht kommt.

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

RKW Solutions GmbH
www.RKW-Solutions.com

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