---

Before.gif after.gif

Hallo,

ich soll in ein Product alle Parts & Products von der Erste Ebene mit ein Prefix umbenennen.
(Part Name & Instance Name)

Mein code (catvba) sieht so aus:

'Option Explicit
Public Prefix As String
Sub CATMain()

    Set oRoot = CATIA.ActiveDocument
    Set oProducts = oRoot.Product.Products
    Prefix = InputBox("Entrez un prefix")
    Rename oProducts

End Sub
Sub Rename(oProducts)

    For i = 1 To oProducts.Count
        Dim SubProduct As Product
        Set SubProduct = oProducts.Item(i)
        Set prodtorename = SubProduct.Parent.Parent.ReferenceProduct.Products.Item(SubProduct.Name)
        Dim instancelenght As Integer
        instancelenght = Len(prodtorename.Name) 'nombre de characteres de l'instance
        Dim Pointpos As Integer
        Pointpos = InStr(prodtorename.Name, ".") 'recherche de la position du point
        Dim Instancenumber As Integer
        Instancenumber = instancelenght - Pointpos
        Dim Instancevalue As String
        Instancevalue = Right(prodtorename.Name, Instancenumber + 1)
        prodtorename.PartNumber = Prefix & "-" & prodtorename.PartNumber 'Partname
        prodtorename.Name = prodtorename.PartNumber & Instancevalue 'instancename
        'MsgBox (prodtorename.PartNumber & "/" & prodtorename.Name)
    Next
   
End Sub

Das Problem ist wenn ich mehrere Instancen habe wird das Model mehrfach den Prefix bekommen (Siehe Bilder)
Hat Jemand eine Lösung? Voraus danke

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

---

Hi Seby,

ehe Du das Umbenennen in der Schleife ausführst, könntest du überprüfen, ob der Prefix bereits in der PartNumber vorhanden ist. Wenn das der Fall ist, musst Du nur die Instanznummer des aktuellen Products hochzählen.

Gruß, Alex

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

---

Hallo seby,

schreib doch einfach alle umbenannten Parts und Products in ein "Array" und prüfe vor dem Umbenennen, ob das Part oder Product schon im "Array" aufgeführt ist. Dann musst Du nur den Instance-Name ändern.

mfg,
Lusilnie

------------------

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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