---

Moin!

Es gab vor Jahren mal eine Initiative von Lothar, die Kosten aller Komponenten einer Baugruppe zu summieren und in das entsprechende Feld der iam einzutragen, was Inventor, anders als beim Gewicht, offenbar nicht von selber tut. Der damals gepostete Code bzw. der Link dazu ist allerdings tot.

Gibt es für diese Aufgabe noch irgendwo Code, der auch weitergegeben werden darf?

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

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

---

Moin

Ich kenne den vorherigen Code nicht und welchen Funktionsumfang der hatte. Ich kann dir nur etwas mal eben neu geschriebenes anbieten. Wird die Stücklistenoption "Bauteilnummernzeilen zusammenführen" für verschiedene Teile mit gleicher Bauteilnummer und unterschiedlichen Kosten verwendet, kommen teilweise unerwartete Ergebnisse heraus. Dafür konnte ich so schnell auch keine zufriedenstellende Lösung finden.
Es werden nur die Kosten addiert und optional in das iProp der Baugruppe geschrieben.

Code:

---

Option Explicit

Private Sub AssemblyCosts()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

If Not oApp.ActiveDocumentType = kAssemblyDocumentObject Then Exit Sub

Dim oAssDoc As AssemblyDocument
Set oAssDoc = oApp.ActiveDocument

Dim oBom As BOM
Set oBom = oAssDoc.ComponentDefinition.BOM

oBom.StructuredViewEnabled = True
oBom.StructuredViewFirstLevelOnly = False

Dim oBomview As BOMView
Set oBomview = oBom.BOMViews(2)

Dim dCost As Currency
Dim iTotalQty As Integer
iTotalQty = 1

dCost = ProcessBomRows(oBomview.BOMRows, iTotalQty, dCost)

If MsgBox("Gesamtkosten: " & dCost & vbCrLf & "Speichern in iProperty geschätzte Kosten?", vbYesNo) = vbYes Then
    oAssDoc.PropertySets(3).Item(21).Value = dCost
End If

End Sub

Private Function ProcessBomRows(ByVal oBomRows As BOMRowsEnumerator, ByVal iTotalQty As Integer, ByVal dCost As Double) As Currency
    Dim oBomRow As BOMRow
    For Each oBomRow In oBomRows
        If Not oBomRow.ChildRows Is Nothing Then
            dCost = ProcessBomRows(oBomRow.ChildRows, iTotalQty * oBomRow.ItemQuantity, dCost)
        End If
       
        Dim oCompDef As ComponentDefinition
        For Each oCompDef In oBomRow.ComponentDefinitions
            Dim oDoc As Document
            Set oDoc = oCompDef.Document
           
            Dim dItemCost As Currency
            dItemCost = oDoc.PropertySets(3).Item(21).Value
           
            If Not dItemCost = 0 Then
                dCost = dCost + oBomRow.ItemQuantity * iTotalQty * dItemCost
            End If
        Next
    Next
   
    ProcessBomRows = dCost
   
End Function

---

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

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

---

Oh, Danke schön!

Verschiedene Teile mit gleicher Bauteilnummer und unterschiedlichen Kosten ist zwar möglich, aber, wie ich glaube, nicht von realer Bedeutung.

Testen kann ich erst später.

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

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