---

Guten Tag zusammen,

ich bin gerade auf der Suche, wie ich die Gesamtanzahl von Baugruppen in einer Baugruppe ermitteln kann. Das natürlich bis zur n-ten Unterbaugruppe

Ziel ist es, eine Gesamtübersicht zu bekommen und es sollen ja nachher nicht zu wenig Baugruppen bestellt werden :-)

Gibt es da ein Makro um das zu zählen oder eben einen Ansatz?

Vielen Dank,

Gruß Pete

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

---

Hallo Pete,

Ein Makro habe ich keines um die Baugruppen zu zählen,

Wir haben das Problem auch nicht, da wir von jeder Baugruppe die Stückliste ins ERP System übergeben.

Falls ihr ohne ERP System Arbeitet kann man dies aber auch über verschidene Stücklisteneinstellungen lösen.

Es kommt dann nur darauf an wie genau euere "Endstückliste" auszusehen hat und wie die Baugruppenstruktur bei euch ist.

Mit etwas Überlegungsarbeit und den Stücklistenoptionen in den Konfigurationseigenschaften der Baugruppen lässt es sich darstellen.

Gruß Christoph

------------------
Wer einen Fehler findet darf ihn behalten,
wer zwei findet kann beide behalten,
ab fünf Fehler gibs Rabatt :-)

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

---

Hi Pete,

was fertiges habe ich nicht für dich, aber einen Ansatz.

Hier ein Beispiel aus der SOLIDWORKS API mit einer Schleife über alle Teile, Baugruppen und Unterbaugruppen.
https://help.solidworks.com/2015/english/api/sldworksapi/traverse_assembly_at_component_level_example_vb.htm

Der Part an dem du eingreifen müsstest, wäre dieser hier...

Code:

---

    'Hier werden die Kind-Komponenten in vChildComp übergeben

    vChildComp = swComp.GetChildren

    'Die Schleife wirkt hier wie eine versteckte IF-Abfrage, denn es soll eine Schleife über die Größe vom Array vChildComp erfolgen.
    'Wenn es keine Kind-Komponenten gibt (es also ein Teil ist) ist die Arraygröße Null und es wird nicht weiter ausgeführt.
    'An dieser Stelle müsstest du also deinen Counter irgendwo einbringen

EDIT: Hat sich als falsch erwiesen, bitte ignorieren

    For i = 0 To UBound(vChildComp)
        Set swChildComp = vChildComp(i)
        TraverseComponent swChildComp, nLevel + 1
        Debug.Print sPadStr & swChildComp.Name2 & " <" & swChildComp.ReferencedConfiguration & ">"
    Next i

---

Ich hoffe ich konnte dir damit helfen.

LG Kevin

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

[Diese Nachricht wurde von deckelmaho am 01. Jun. 2022 editiert.]

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

---

AsEx_UB_ASP.jpg

Hallo Pete,

reicht die Baugruppenstatistik nicht?

VG
AndiS

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

---

Gewusst wo, aber ich denke die Leistungsbewertung ist doch ein guter Workaround für Pete ohne sich mit der API herumschlagen zu müssen.

Und ich hab auch wieder was gelernt.

Danke Andi 

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

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

---

Hallo zusammen,

danke für die Ansätze.

Wir schreiben wirklich noch alles per Hand in user System. Leider kommt es hier immer wieder zu fehlern und wir haben entweder zu viel, zu wenig oder es passt.

deswegen meine Frage.

Hätte hier gerne eine Übersicht aller Baugruppen in einer excel oder ähnliches.

Die anderen Funktionen (die mir bekannt sind) sind mir hier zu umständlich oder nicht genau genug

danke

Gruß Pete

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

---

Hallo Pete,

hast du dich auch mit Treehouse beschäftigt?

Dort kannst du auch in Excel ausgeben.

HTH

------------------
Wenn ,Wenn....Wenn meine Tante Nüsse hätte, dann wäre sie mein Onkel....

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

---

Treehouse kannte ich noch nicht.

Habe es gerade ausprobiert. Hier hat SW beim BG analysieren einfach abgebrochen und es geht nix ,ehr...

scheint  also leider auch nicht das richtige zu sein.

trozdem Danke :-)

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

---

Zitat:

---

Original erstellt von Pete85:
Hallo zusammen,

danke für die Ansätze.

Wir schreiben wirklich noch alles per Hand in user System. Leider kommt es hier immer wieder zu fehlern und wir haben entweder zu viel, zu wenig oder es passt.

deswegen meine Frage.

Hätte hier gerne eine Übersicht aller Baugruppen in einer excel oder ähnliches.

Die anderen Funktionen (die mir bekannt sind) sind mir hier zu umständlich oder nicht genau genug

danke

Gruß Pete

---

Ich habe dir die Komponenten Schleife mal umgeschrieben, sodass du nachher auch einen Wert für die Unterbaugruppen im VBA erhältst.
Den Excelteil müsstest du dir selber schreiben.

Code:

---

Option Explicit

Dim AssemblyCounter As Integer
Dim TempModel As ModelDoc2

Sub TraverseComponent(swComp As SldWorks.Component2, nLevel As Long)
    Dim vChildComp As Variant
    Dim swChildComp As SldWorks.Component2
    Dim swCompConfig As SldWorks.Configuration
    Dim sPadStr As String
    Dim i As Long
   
   
    For i = 0 To nLevel - 1
        sPadStr = sPadStr + "  "
    Next i
   
   
    vChildComp = swComp.GetChildren
    For i = 0 To UBound(vChildComp)
        Set swChildComp = vChildComp(i)
        Debug.Print sPadStr & swChildComp.Name2 & " <" & swChildComp.ReferencedConfiguration & ">"
       
        Set TempModel = swChildComp.GetModelDoc2
        If Not TempModel Is Nothing Then
            If TempModel.GetType = swDocumentTypes_e.swDocASSEMBLY Then AssemblyCounter = AssemblyCounter + 1
            TraverseComponent swChildComp, nLevel + 1
        End If
           
    Next i
End Sub
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swConf As SldWorks.Configuration
    Dim swRootComp As SldWorks.Component2
    Dim bRet As Boolean
    Dim fileName As String
    Dim errors As Long
    Dim warnings As Long
   
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
   
    If swModel.GetType <> swDocumentTypes_e.swDocASSEMBLY Then
        MsgBox "Das Dokument ist keine Baugruppe"
        Exit Sub
    End If
    AssemblyCounter = 0
   
   
    Set swConf = swModel.GetActiveConfiguration
    Set swRootComp = swConf.GetRootComponent3(True)
    Debug.Print "File = " & swModel.GetPathName
    ' Traverse components
    TraverseComponent swRootComp, 1
   
    MsgBox "Die Anzahl der Unterbaugruppen beträgt: " & AssemblyCounter

    'Der Wert wurde ermittelt, hier könnte die Ausgabe ins Excel erfolgen.
End Sub

---

Grüße und so

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

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

---

Hallo Pete,

brauchst du eine Auflistung der Gesamtmenge an Baugruppen oder brauchst du eine komplette Stücklistenstruktur.
Also in BG 1 ist BG 2 und BG 3 verbaut. In BG 2 ist BG 3 und BG 4 verbaut.

-> Gesamtinhalt wäre dann 1x BG 2 / 2x BG 3 und 1x BG4

Variante 1 geht wie vom Andi Spieler geschrieben mit der Baugruppenstatiskik funktionieren.

Variante 2 ist schwieriger:

Auf oberster Ebene Stückliste mit Option "Mit Einzug" erstellen. In dieser Stückliste ist die ganze Struktur aufgelistet.
Das ganze nach Excel exportieren.
Im Excel würde ich mit einem Makro die Baugruppen zusammenzählen. Bei der Gelegenheit können die Einzelteile auch aufsumiert werden. -> Am Schluss gibts ne Liste welche Baugruppen Montiert werden müssen + eine Liste welche Einzelteile insgesammt beschafft werden müssen.

Ist das in etwa wie du es brauchst?

Gruß Christoph

------------------
Wer einen Fehler findet darf ihn behalten,
wer zwei findet kann beide behalten,
ab fünf Fehler gibs Rabatt :-)

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

---

Hi Christoph,

ich bin auf der Suche nach der 2ten Variante.

Das zusammenzählen in Excel über ein Makro habe ich mal angefangen. ist schon länger her... war aber immer mit einer großen Unsicherheit verbunden.

Daher wollte ich mal fragen ob es da eventuell einen Code bzw. eine Funktion in SolidWorks gibt.

Danke für euren Support :-)

Gruß Pete

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