---

Hallo, ich habe folgendes Problem:
Es wird über ein VBA-Code die Stückliste einer Zusammenbauzeichnung nach Excel exportiert. Das funktioniert soweit gut.

Es soll nun aber geprüft werden, ob in der Zusammenbauzeichnung im Inventor überhaupt schon eine Stückliste angelegt/erstellt wurde, wenn nicht, soll eine Fehlermeldung erfolgen.

Zur Zeit wird nämlich in diesem Fall eine leere Stückliste (Excel) erstellt und der Bediener merkt es nicht, sofern er nicht extra nachschaut.

.

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

---

Habe es selbst gelöst:

Code:

---

Dim oDrawdoc As DrawingDocument
Set oDrawdoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Set oSheet = oDrawdoc.ActiveSheet

If oSheet.PartsLists.Count = 0 Then
    .......
End If

---

.

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

---

Hallo Frankx,

Code:

---

    Dim oDoc As Inventor.Document
    Set oDoc = ThisApplication.ActiveDocument

    If Not oDoc.DocumentType = kDrawingDocumentObject Then Exit Sub
   
    Dim oSheet As Sheet
    Dim oPartslist As PartsList
    Dim PL_Anz As Integer
    PL_Anz = 0
       
    For Each oSheet In oDoc.Sheets
        PL_Anz = PL_Anz + oSheet.PartsLists.Count
    Next 'oSheet
   
    If PL_Anz = 0 Then 'keine SL vorhanden
        MsgBox ("keine Stückliste vorhanden - Ausgabe nicht möglich")
        Exit Sub
    End If

---

Am Anfang wäre auch noch zu prüfen, ob die IDW eine IAM darstellt, oder ein IPT (dann gibt es keine Stückliste)

Code:

---

oDoc.ReferencedDocuments.Item(1).DocumentType = kAssemblyDocumentObject

---

Welche Stückliste gebt Ihr nach Excel aus, wenn mehrere Stücklisten auf mehreren Blättern in der IDW sind?

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

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

---

Danke für die Hinweise.

Zitat:

---

Am Anfang wäre auch noch zu prüfen, ob die IDW eine IAM darstellt, oder ein IPT (dann gibt es keine Stückliste)

---

Diese Prüfung ist bei mir im Stücklistenexport schon enthalten. Außerdem erscheint der Button für den Stüliexport nur in einer idw.

Ich habe auch schon eine Prüfung, ob es sich wirklich um eine Zusammenbauzeichnung handelt.

Zitat:

---

Welche Stückliste gebt Ihr nach Excel aus, wenn mehrere Stücklisten auf mehreren Blättern in der IDW sind?

---

Aktuell arbeiten wir so, dass immer nur auf dem ersten Blatt eine Stückliste erstellt werden darf.
Vielleicht schaue ich in der nächsten Version mal, ob ich da eine bessere Lösung finde.

.

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