Unterteilen einer Baugruppe mit mehreren Ebenen in 1 Ebene mithilfe eines Makros

Macro
1

Hallo an alle

In einem meiner Fälle habe ich eine Baugruppe mit 3 Unterbaugruppen auf der 1. Ebene auf der 2. Ebene Teil + Baugruppe. Ich habe 5 Ebenen

Ich verwende die Funktion Unterbaugruppe aufteilen

Ich möchte alle meine Teiledateien auf die 1. Ebene stellen. (keine Unterbaugruppenfunktion in der Hauptbaugruppe) Ich verwende SW2017

Gibt es ein Makro, um mit den verschiedenen Ebenen umzugehen?

Vielen Dank im Voraus für Ihr Feedback

 


2020_02_22_12_52_56_window.png
2

Wenn ich das richtig verstanden habe, möchten Sie alle Unterbaugruppen aufschlüsseln?

Versuchen Sie Folgendes:

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssy As SldWorks.AssemblyDoc
Dim swComp As SldWorks.Component2
Dim swCompModel As SldWorks.ModelDoc2
Dim vComp As Variant
Dim blnDone As Boolean
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swAssy = swModel
    blnDone = False
    While Not blnDone
        blnDone = True
        For Each vComp In swAssy.GetComponents(False)
            Set swComp = vComp
            Set swCompModel = swComp.GetModelDoc2
            If Not swCompModel Is Nothing Then
                If swCompModel.GetType = swDocASSEMBLY Then
                    swComp.Select4 False, Nothing, False
                    swAssy.DissolveSubAssembly
                    blnDone = False
                    Exit For
                End If
            End If
        Next
    Wend
End Sub

Finden auf: https://forum.solidworks.com/thread/61078

1 „Gefällt mir“
3

Danke, es ist genau das, wonach ich gesucht habe.

Gute Nacht