---

Hallo an die Forumsteilnehmer,

ich benötige ein rekursives Makro das durch die SolidWorks-Strukturen läuft und bei den Komponenten die von Stückliste ausgeschlossen sind eine benutzerdefinierte Eigenschaft dieser Komponente und oder den Dateinamen in einem Meldungsfenster ausgibt, bis die Komponentenstruktur komplett durchlaufen ist.

Mit freundlichen Grüßen
ftegeler

------------------
Frank Tegeler
Maschinenbau/Wirtschaftsingenieur
Bollstrasse 2
32312 Lübbecke
Tel.: 05741-12563
Fax: 03221-1233649
Handy: 0175-1288850

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

---

Aha,...

mit ebenso freundlichen Grüßen

Andreas

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

---

Hallo Frank

Du hast zwar keine Frage gestellt, aber weil bald Weihnachten ist wollen wir mal nicht so sein.

Um Abzufragen ob eine Komponente aus der Stückliste ausgeschlossen ist gibt es das Property ExcludeFromBOM.

Beispiel:

Code:

---

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swRootComp As SldWorks.Component2
Dim swConf As SldWorks.Configuration

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swConf = swModel.GetActiveConfiguration
    Set swRootComp = swConf.GetRootComponent
    TraverseComponent swRootComp, -1
   
End Sub

Sub TraverseComponent(swComp As SldWorks.Component2, ByVal iLev As Integer)
   
    Dim vChildComp    As Variant
    Dim swChildComp  As SldWorks.Component2
    Dim i As Long
   
    vChildComp = swComp.GetChildren
   
    For i = 0 To UBound(vChildComp)
        Set swChildComp = vChildComp(i)
       
        If swChildComp.ExcludeFromBOM Then
            msgbox "Excluded From BOM : " & swChildComp.Name
        End If
        TraverseComponent swChildComp, iLev + 1
    Next i
End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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