---

Fehlermeldung.jpg

Hallo da draussen,

habe ein Makro zugespielt bekommen, welches den "Exemplarnamen" durch die "Teilenummer" ersetzt.
Das Makro läuft auch meistens fehlerfrei durch. Leider nicht immer. Im angehängten Bild ist die Fehlermeldung.
Zeile 23 bis 25 sind

    Set ProductObject = ProductParentProds.Item(ListeProduct.Item(A).Value.Name)
      ProductObject.Name = ProductObject.PartNumber & "." & a
    Next

Leider hab ich von Makroprogrammierung keine Ahnung und so bitte Euch mir zu helfen.

Vielen Dank.

Gruß
Lars

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

---

Hi Eisbär,

kannst du bitte mal das ganze Script posten oder aber mindestens die komplette for Schleife??

Gruß
Proofin

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

---

Und wo taucht das Problem auf? Ein part,product, Struktur??

Mehr informazione 

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

---

Also,

hier das ganze Script 

Fehler tritt nur bedingt auf. Konnte aber leider die Fehlerursache nicht eingrenzen. Hatte erst an nicht lesbare Zeichen in der Namesdeklarierung gedacht. Aber ich glaub das ist es nicht.

Mehr Infos kann ich leider nicht zur Verfügung stellen.

Gruß
Lars

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

---

Upps,
da fehlte wohl was:

Sub CATMain()
 
    Set ListeProduct = CATIA.ActiveDocument.Selection
 
    ' Suche nach Instanzen vom jeweiligen CATPart im gesamten Dokument
    ListeProduct.Clear
    ListeProduct.Search "CATAsmSearch.Part,all"
 
    'Ausgabe der Meldung, wieviele Produkte gefunden wurden
    Dim BoxProduct
    BoxProduct = MsgBox("Anzahl der gefundenen Instanzen:" & ListeProduct.count & "", 64)
 
    Dim ProductDoc
    Dim ProductParent
    Dim ProductParentProds
    Dim ProductObject
    Dim A
    Dim i As Integer
    For A = 1 To ListeProduct.count
        Set ProductDoc = ListeProduct.Item(A).Value.Parent.Parent.ReferenceProduct.Parent
        Set ProductParent = ProductDoc.Product
        Set ProductParentProds = ProductParent.Products
        Set ProductObject = ProductParentProds.Item(ListeProduct.Item(A).Value.Name)
      ProductObject.Name = ProductObject.PartNumber & "." & a
    Next
    BoxProduct = MsgBox("Instanzen der CATParts wurden umbenannt", 64)
End Sub

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

---

Ich seh in deinem Profil das ihr/du R14 & R16 verwendet.Kann es sein das der Fehler nur bei R16 auftritt?

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

---

Nein,

tritt auch in R14 auf.

Gruß
Lars

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

---

Hallo,
A ist doch eine Zahl. Mußt Du da nicht eine Konvertierung zu String machen ?
Also :
ProductObject.Name = ProductObject.PartNumber & "." & STR(A)

------------------
Nichts ändern ist langweilig !!

Klaus

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

---

Hallo Eisbär,

das Problem wird sicher sein, das der Instancen-Name, den das Script vergeben will, z.B. "Teil.4", schon existiert und er deshalb nicht mehr vergeben werden kann.
Abhilfe würde hier schaffen, die Instancen-Namen in einem ersten Durchlauf mit einer normal nicht verwendeten Erweiterung, z.B. "Teil.istnunneu_4", zu versehen und diese dann in einem zweiten Durchlauf auf das gewünschte Ergebnis, also "Teil.4", zu ä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

---

Hallo Klaus und Lusilnie,

@Klaus
kannst Du bitte etwas genauer ausführen was Du meinst. Ich kann Dir nicht ganz folgen. Liegt wahrscheinlich an meinen mangelden Makrokenntnissen.

@Lusilnie
ich probier mal den von Dir erklärten Fehler zu replizieren. Vielleicht ist es das ja. Aber arbeitet das Script den Strukturbaum nicht hierarchisch ab. Frage nur weil das Script die Exemplarnamen durchlaufend weiternummeriert.

Gruß
Lars

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

---

Lars, ersetz halt mal die zeile so wie Klaus es gesagt hat und versuch es  .

Axel

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

---

Fehlermeldung1.jpg

Hallo Klaus und Axel,

hab Klaus seine Zeile ausgetauscht und erhalte jetzt folgende Fehlermeldung siehe Bild.

Es ist doch richtig das es CATScript ist, oder??

Gruß
Lars

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

---

Sorry hab mich täuschen lassen mach aus str CInt 

Axel

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

---

Axel es ist der selbe Fehler wie mit STR.  "Typen unverträglich" 

Gruß
Lars

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

---

Moin alle zusammen,

wenn du den Integer in einen String umwandeln willst ist Str(Ausdruck) schon das richtige.
Als Alternative kannst du noch Cstr(Ausdruck) verwenden.

z.B
Str(a) -> geht bei dir anscheinen ja nicht
oder
Cstr(A)

Gruß
Proofin

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

---

Hi Proofin,

jetzt sind wir wieder bei der allerersten Fehlermeldung die von mir gepostet wurde.

Ich glaub ich gebs auf. Sorry wenn ich Euch Eure wertvolle Zeit raube.

Gruß
Lars

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

---

Hi Lars,

kannst du mal bitte einen Screenshot vom Baum posten, in dem man die Struktur sieht. Vielleicht noch welche Parts du ändern möchtest.

Proofin

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

---

Hallo Eisbär,

probier doch mal diesen Code, vielleicht löst der Dein Problem:

Code:

---

Sub CATMain()

    Set ListeProduct = CATIA.ActiveDocument.Selection

    ' Suche nach Instanzen vom jeweiligen CATPart im gesamten Dokument
    ListeProduct.Clear
    ListeProduct.Search "CATAsmSearch.Part,all"

    'Ausgabe der Meldung, wieviele Produkte gefunden wurden
    Dim BoxProduct
    BoxProduct = MsgBox("Anzahl der gefundenen Instanzen:" & ListeProduct.count & "", 64)

    Dim ProductDoc
    Dim ProductParent
    Dim ProductParentProds
    Dim ProductObject
    Dim A
    Dim i As Integer
    For A = 1 To ListeProduct.count
        Set ProductDoc = ListeProduct.Item(A).Value.Parent.Parent.ReferenceProduct.Parent
        Set ProductParent = ProductDoc.Product
        Set ProductParentProds = ProductParent.Products
        Set ProductObject = ProductParentProds.Item(ListeProduct.Item(A).Value.Name)
      ProductObject.Name = ProductObject.PartNumber & ".istnunneu_" & a
    Next
    For A = 1 To ListeProduct.count
        Set ProductDoc = ListeProduct.Item(A).Value.Parent.Parent.ReferenceProduct.Parent
        Set ProductParent = ProductDoc.Product
        Set ProductParentProds = ProductParent.Products
        Set ProductObject = ProductParentProds.Item(ListeProduct.Item(A).Value.Name)
      ProductObject.Name = ProductObject.PartNumber & "." & a
    Next
    BoxProduct = MsgBox("Instanzen der CATParts wurden umbenannt", 64)
End Sub

---

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

---

Hallo Lusilnie,

es funktioniert  .

Woran lag es denn, das mein Makro nicht immer funktioniert hat?

Gruß
Lars

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

---

Hallo Eisbär,

wenn es nun funktioniert, lag es genau an dem Problem, welches ich beschrieben habe: Der "neue" Instancen-Name wurde schon verwendet! Ich habe das Gesagte nur in Dein Script implementiert.

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