---

Bild.png

Hallo liebe Forengemeinde,
wir benutzen seid geraumer Zeit ein sehr einfaches Makro mit dessen Hilfe es möglich ist innerhalb kürzester Zeit sämtliche Konfigurationen durchzugehen und unter der Artikelnummer=Konfigurationsname als DXF in einem vorgegebenen Pfad abzulegen. Leider hat sich jetzt der Sachverhalt geändert, weshalb wir nun in sehr vielen Bauteilen mit teils hunderten Konfigurationen Kindkonfigurationen mit einer Bearbeitungszugabe versehen müssen. Die Kindkonfigurationen erhalten nun den Präfix '#mbz'_Artikelnummer.
Ist es möglich das Makro so anzupassen, dass es geziehlt nur die Konfigurationen mit diesem Kürzel sucht und exportiert?
Ich habe schon sehr viel rumexperimentiert und Beiträge gelesen, jedoch komme ich zu keinem Ergebnis weshalb ich nun hier mein Glück versuche.

Beste Grüße TechNick

hier einmal der Code

Option Explicit

Sub main()

    Dim swApp                  As SldWorks.SldWorks
    Dim swModel                As SldWorks.ModelDoc2
    Dim vConfNameArr            As Variant
    Dim sConfigName            As String
    Dim nStart                  As Single
    Dim i                      As Long
    Dim bShowConfig            As Boolean
    Dim bRebuild                As Boolean
    Dim bRet                    As Boolean
    Dim Index As String

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    If swModel.GetCustomInfoValue("", "PDB_Version") = "-" Then
            Index = "#"
            Else
            Index = swModel.GetCustomInfoValue("", "PDB_Version")
    End If

    vConfNameArr = swModel.GetConfigurationNames

    For i = 0 To UBound(vConfNameArr)

        sConfigName = vConfNameArr(i)

       
bShowConfig = swModel.ShowConfiguration2(sConfigName)

bRebuild = swModel.ForceRebuild3(False)

'Export Flat Pattern
bRet = swModel.ExportFlatPatternView("\Pfad\" & Mid$(sConfigName, 5, 7) & Index & ".DXF", 1)

Next i

End Sub

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

---

Du könntest überprüfen ob sConfigName mit '#mbz' beginnt und nur selbige exportieren.

Code:

---

sConfigName = vConfNameArr(i)
'Überprüfen ob Config-Name mit #mbz anfängt
If InStr(1, sConfigName, "#mbz") = 1 Then
    bShowConfig = swModel.ShowConfiguration2(sConfigName)
    bRebuild = swModel.ForceRebuild3(False)
    'Export Flat Pattern
    bRet = swModel.ExportFlatPatternView("\Pfad\" & Mid$(sConfigName, 5, 7) & Index & ".DXF", 1)
End If

---

Da sich das Schema des Konfigurationsname ändert musst du sehr wahrscheinlich auch die Parameter des Mid$(sConfigName, 5, 7) anpassen.

Code:

---

bRet = swModel.ExportFlatPatternView("\Pfad\" & Mid$(sConfigName, 5, 7) & Index & ".DXF", 1)

---

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

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

---

Hallo Henry,
vielen Dank für die Schnelle Hilfe.
Genau so passt es. Manchmal sind es die kleinen Dinge die großes Bewirken.

vielen Dank!

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