---

Bin auf der suche nach einem Makro, dass die Partnumber mit dem Filename synchronisiert und überschrieben wird. Habe bis jetzt im Forum aber nichts brauchbares finden können. Vielleicht hat jemand einen Hinweis für mich. Außerdem sollte die UUID beibehalten werden.

Ergebnis
Partnumber = Filename

Bin um jeden Hinweis Dankbar!!!

------------------
Mit freundlichen Grüßen
Catiawest

NIHIL IMPOSSIBILE =)

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

---

Hallo,

folgender Code tut genau das: FileName -> PartNumber, rekursiv in einen Product.

Code:

---

Option Explicit

Sub CATMain()

    On Error GoTo 0
       
    Dim oRoot As Document
    Set oRoot = CATIA.ActiveDocument
    Dim oProduct As Product
    Set oProduct = oRoot.Product
    Dim oProducts As Products
    Set oProducts = oProduct.Products

    Dim strOldName As String
    Dim strNewName As String
    strOldName = oRoot.Name
    strNewName = Replace(strOldName, ".CATProduct", "")
    oProduct.PartNumber = strNewName

    RecursiveThroughTree_fn2pn oProducts
   
End Sub

Sub RecursiveThroughTree_fn2pn(oProducts As Products)
    Dim oProduct As Product
    Dim oRefProduct As Product
    Dim oRefDocument As Document
    For Each oProduct In oProducts
        Set oRefProduct = oProduct.ReferenceProduct
        Set oRefDocument = oRefProduct.Parent
        Dim strOldName As String
        Dim strNewName As String
        Dim strOldPath As String
        Dim strNewFullName As String

        If TypeName(oRefDocument) = "ProductDocument" Then
            Dim oProdDoc As ProductDocument
            Set oProdDoc = oRefDocument
            strOldName = oProdDoc.Name
            strNewName = Replace(strOldName, ".CATProduct", "")
            oProdDoc.Product.PartNumber = strNewName
            If oProduct.Products.Count > 0 Then
                RecursiveThroughTree_fn2pn2in oProduct.ReferenceProduct.Products
            End If
        ElseIf TypeName(oRefDocument) = "PartDocument" Then
            Dim oPartDoc As PartDocument
            Set oPartDoc = oRefDocument
            strOldName = oPartDoc.Name
            strNewName = Replace(strOldName, ".CATPart", "")
            oPartDoc.Product.PartNumber = strNewName
        End If
       
    Next
End Sub

---

Gruß,
Zoltan

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

---

Hallo,

Danke für deine Antwort.
Das ist leider nicht genau, dass was ich suche.
Eigendlich wollte ich die Partnumber ändern und das sich der Filename der Partnumber anpasst. Also der verkehrte Weg. Hab ich die Möglichkeit dieses Makro für meine Anwendung umzubauen. Ober ist es sinnvoller ein neues Makro zu erstellen?

Gruß CatiaWest

------------------
Mit freundlichen Grüßen
Catiawest

NIHIL IMPOSSIBILE =)

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

---

Servus
Wenn du den Dateinamen der Partnumer angleichen willst musst du die Baugruppe rekursiv durcharbeiten, und mit "Save as" (im neuen Verzeichnis) die Dateien "exportieren".
Hier findest du eine "Vorlage" (damals nur grob zusammen kopiert). Du musst AFAIR nur dass Umbenennen ändern und den Export nach STEP rauswerfen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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