Inventor (VBA): Summe aller Bauteile in Stückliste
Ohne mir das jetzt genauer angeschaut zu haben bekommst du mit allrefdocs die Anzahl aller referenzierter Datei also auch Referenzen und Phantom Komponenten.
https://inventorfaq.blogspot.de/2017/02/inventor-automatisieren-programmieren.html
Hallo @h_schuetzeneder.
Frohes neues Jahr! 
Wenn ich es richtig verstanden habe, dann möchtest Du im Vorfeld prüfen, wie viele Zeilen die Stückliste "Nur Bauteile" hat, damit es bei dem Aufspannen des Arrays etwas einfacher ist?
Hier ist ein kleiner VBA-Code, wie man das abfragen könnte:
Sub BomRows()
'Ermitteln, wie viele Einträge es bei der Stückliste "NUR BAULTEILE" im Moment gibt.
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
If oDoc.ComponentDefinition.BOM.PartsOnlyViewEnabled = False Then
oDoc.ComponentDefinition.BOM.PartsOnlyViewEnabled = True
End If
Dim iRows As Integer
iRows = -1
Dim tmp As Object
For Each tmp In oDoc.ComponentDefinition.BOM.BOMViews
If tmp.ViewType = kPartsOnlyBOMViewType Then
iRows = tmp.BomRows.Count
End If
Next
If iRows > -1 Then
MsgBox ("Die Stückliste >Nur Bauteile< hat " & iRows & " Zeilen.")
Else
MsgBox ("Zeilenanzahl der Stückliste >Nur Bauteile< konnte nicht bestimmt werden.")
End If
End Sub
Hattest Du so etwas gesucht?
Wenn nicht, dann wären ein paar Informationen, welche Werte du ganz genau benötigst sehr hilfreich, um gezielt weiterhelfen zu können.
Bitte nutzt den "Als Lösung akzeptieren"-Button, wenn ein Beitrag euer Problem oder eure Frage löst. Für hilfreiche Posts könnt ihr auch gerne Kudos vergeben.
Dennis Ossadnik
Senior Technical Support Specialist
Hallo @h_schuetzeneder,
ich habe den vorherigen Code noch einmal erweitert. Er zeigt jetzt auch zusätzlich die Summer der Teile an, die in der Stückliste "Nur Bauteile" enthalten sind.
Sub BomRows()
'Ermitteln, wie viele Einträge es bei der Stückliste "NUR BAULTEILE" im Moment gibt.
'Außerdem wird ermittelt, wie viele Bateile insgesamt in der Sückliste "NUR BAUTEILE" enthalten sind.
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
If oDoc.ComponentDefinition.BOM.PartsOnlyViewEnabled = False Then
oDoc.ComponentDefinition.BOM.PartsOnlyViewEnabled = True
End If
Dim iRows As Integer
iRows = -1
Dim iCountParts As Integer
iCountParts = 0
Dim tmp As Object
For Each tmp In oDoc.ComponentDefinition.BOM.BOMViews
If tmp.ViewType = kPartsOnlyBOMViewType Then
iRows = tmp.BomRows.Count
Dim oRow As BOMRow
For Each oRow In tmp.BomRows
iCountParts = iCountParts + oRow.ItemQuantity
Next
End If
Next
If iRows > -1 Then
MsgBox ("Die Stückliste >Nur Bauteile< hat " & iRows & " Zeilen." & vbCrLf & "Insgesamt sind " & iCountParts & " Bauteile enthalten.")
Else
MsgBox ("Zeilenanzahl der Stückliste >Nur Bauteile< konnte nicht bestimmt werden.")
End If
End Sub
Ergebnis wäre dann jeweils eine Variable, die in der Meldung ausgegeben werden:
Bitte nutzt den "Als Lösung akzeptieren"-Button, wenn ein Beitrag euer Problem oder eure Frage löst. Für hilfreiche Posts könnt ihr auch gerne Kudos vergeben.
Dennis Ossadnik
Senior Technical Support Specialist
Hi @h_schuetzeneder,
ohne mich in VBA Arrays jetzt eingelesen zu haben, aber ist das nicht der Sinn von dynamischen Arrays, das man sich keinen Kopf über die Größe machen muss? Das man die Dimensionen nicht ändern kann klar, aber die Anzahl der Datensätze?
In Powershell mache ich das eigentlich nie das ich die Anzahl der Daten angebe, ich lasse den Wert einfach in der Liste hinzufügen. Oder geht das in VBA nicht?
Timon Först
Consultant CAD/PDM
Cideon Software & Services GmbH & Co. KG (Autodesk Platinum Partner)
XING | LinkedIn
Hallo TFoerst
Eindimensionale Arrays (wie eine Liste) können beliebig mit dem Befehl „ReDim“ angepasst werden.
Bei zweidimensionalen Arrays (wie eine Tabelle) kann nur die Spaltenanzahl verändert werden, die Anzahl der Zeilen nicht mehr.
Aber die Profis hier im Forum können dir das sicher noch besser erklären.
@ Dennis
Leider ist das Ergebnis deiner Zeilenberechnung viel zu hoch. Das kommt wohl daher weil viele Teile doppelt gezählt werden. Grundsätzlich ist das kein Problem wenn das Array etwas größer ist als benötigt, aber wir Techniker geben uns nicht mit ungefähren Ergebnissen zufrieden
.
Welche Möglichkeiten gibt es die Anzahl aller enthaltenen Baugruppen in einer Stückliste herauszufinden?
In Summe mit den Einzelteilen müsste das dann besser hinkommen.
Hallo @h_schuetzeneder,
wahrscheinlich ist einfach nicht ganz klar, welche Werte Du eigentlich genau brauchst. Alles was Du möchtest, kann natürlich genau bestimmt werden, aber dazu bräuchte ich noch ein paar Informationen, welchen Wert oder welche Werte Du ganz genau bestimmen möchtest.
Mein Code ging davon aus, dass Du errechnen möchtest, wie viele verschiedene Bauteile (erster Code) oder wie viele Bauteile sich insgesamt (zweiter Code) in deiner Baugruppe befinden. Das entspricht der BOM-Darstellung "Nur Bauteile".
Also errechnet aus dieser Tabelle:
Wie es nun klingt, brauchst Du eine Auflistung der BOM-Darstellung "Strukturiert". Also aus dieser Tabelle:
Ist das richtig?
Brauchst Du die Teile einstufig (nur die Bauteile und Baugruppen, die in dieser Baugruppe direkt eingebaut sind) oder mehrstufig (alle Bauteile und Baugruppen, die in der kompletten Struktur verbaut sind)?
Möchtest du nur wissen, wie viele verschiedene Komponenten es gibt oder wie viele dann insgesamt in der Baugruppe sind?
Oder brauchst du einen ganz anderen Wert?
Dennis Ossadnik
Senior Technical Support Specialist
Hallo S_May
Sorry für meine ungeschickte Ausdrucksweise, ich werde versuchen es in Zukunft besser zu machen.
Ein Bild sagt mehr als 1000 Worte, deshalb ein Bild auf dem zu sehen ist was ich brauche.
Von einer Strukturierten Stückliste die Summe aller Einträge wenn alle Unterbaugruppen aufgeklappt sind (in diesem Fall die Zahl 31).
Nicht die Summe der Einzelteile, nicht die Summer der Baugruppen nur die Anzahl der „Zeilen“ so wie in dieser Ansicht.
Ich möchte dann diese Stückliste in ein Array schreiben, ein bisschen bearbeiten und dann in eine .txt-Datei exportieren.
Hallo @h_schuetzeneder,
in der Tat sagt ein Bild mehr als tausend Worte
Habe den Code geändert. Nun zählt er durch die Zeilen der mehrstufigen Strukturstückliste. Das wäre das Ergebnis.
Hier der VBA-Code dazu:
Sub BomRowsStructured()
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
'Wenn die Struktur-Stückliste nicht aktiviert ist, dann wird das jetzt erledigt
If oDoc.ComponentDefinition.BOM.StructuredViewEnabled = False Then
oDoc.ComponentDefinition.BOM.StructuredViewEnabled = True
End If
'Wenn die Struktur-Stückliste einstufig ist, wird sie auf mehrstufig umgestellt
If oDoc.ComponentDefinition.BOM.StructuredViewFirstLevelOnly = True Then
oDoc.ComponentDefinition.BOM.StructuredViewFirstLevelOnly = False
End If
Dim iRows As Integer
iRows = 0
Dim tmp As Object
For Each tmp In oDoc.ComponentDefinition.BOM.BOMViews
If tmp.ViewType = kStructuredBOMViewType Then
Call BomRowsStructuredChildRow(tmp.BomRows, iRows)
End If
Next
MsgBox ("Die Struktur-Stückliste hat " & iRows & " Zeilen.")
End Sub
Sub BomRowsStructuredChildRow(tmpBomRowEnu As BOMRowsEnumerator, iRows As Integer)
Dim tmpRow As BOMRow
For Each tmpRow In tmpBomRowEnu
iRows = iRows + 1
If Not tmpRow.ChildRows Is Nothing Then
Call BomRowsStructuredChildRow(tmpRow.ChildRows, iRows)
End If
Next
End Sub
Gestartet werden muss natürlich BomRowsStructured. BomRowsStructuredChildRow geht dann durch die Stückliste und zählt.
Hattest Du so etwas gesucht?
Dennis Ossadnik
Senior Technical Support Specialist
Hallo Dennis
Perfekt, genau das hab ich gesucht!
Unglaublich wie ihr Profis das so schnell aus dem Ärmel schüttelt.
Vielen Dank!... und ein schönes Wochenende.
@ S_May Sorry, Verwechslung, ich bin noch neu hier.
