---

Hallo CAD-Profis,

ich möchte mit einem V5-Makro eine Verzeichnisstruktur nach catparts durchsuchen, um diese nach der Reihe einzeln in ein catproduct ohne Visualisierung zu laden.

Danach soll jedes catpart so umbenannt werden, dass die partnumber gleich dem Dateinamen(Filename) entspricht.

Wenn die Umbenennung erfolgt ist, soll das catpart abgespeichert werden und die alte Datei überschreiben.

Klingt nach batch-Modus, nur komme ich mit dem Durchsuchen von Verzeichnissen und dem Abspeichern von catparts im "automatisierten Modus" nicht klar. Für die Umbenennung im catproduct hätte ich schon ein Makro.

Da ich blutiger Anfänger in V5-Programmierung bin und nur etwas VBA mit Excel kann, stelle ich hier die Frage.

Ich wäre dankbar, auf zahlreiche Antworten.

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

---

Servus
Warum willst du die Parts in ein Product laden? Um den Arbeitsspeicher zu "schonen"?
Wenn die Dateien auch geöffnet werden können könnte es so gehen: Ausgehend von diesem Makro könnte ein (einfache, ohne Fehlerbehandlung, nicht Benutzerfreundliche) Ansatz so aussehen:

Code:

---

Language="CATScript"

Sub CATMain()

folderinput = InputBox ("Wo befinden sich Ihre Daten?","Eingabe","C:\Quellordner\",500,1000)

Dim fs, f, file1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files

For Each file1 in fc

Dim PartDocument1 As Document
Set documents1 = CATIA.Documents
Dim document1 As Document

if right(file1.name, 8) = ".CATPart" then

FullPath =  folderinput & file1.name

Set PartDocument1 = CATIA.Documents.Open(FullPath)

PartDocument1.Product.PartNumber = left(PartDocument1.Name, len(PartDocument1.Name) - 8)

PartDocument1.Save

PartDocument1.Close

end if

Next

End Sub

---

Gruß
Bernd

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

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

---

Hallo Bernd,

danke für deine schnelle Antwort, kann erst am Montag deinen Weg überprüfen. Aber deine Idee jedes catpart einzeln zu laden, um die Partnumber umzubenennen, finde ich einen sehr guten Ansatz.
Wenn ich deinen Code so anschaue, unterscheidet er sich nur wenig von VBA, dabei dachte ich immer, dass ein Makro in V5 schon verschiedener ist als VBA Excel.

Danke vorerst einmal, du hörst von mir. Bis dahin schönes Wochenende.

Viele Grüße, Martin

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

---

Hallo Bernd,

habe nun dein Makro ausprobiert, es funktionierte leider nicht. "FullPath" wurde mit Mismatch angemeckert.
Aber das lässt sich vielleicht hinbiegen.

Beim Testen ist mir aufgefallen, dass die Ladezeiten verschiedener catparts, wenn sie die 10 MB Grenze überschreiten, doch sehr lang sind. Bei einen catproduct habe ich diese langen Ladezeiten nicht, da ich die catparts nicht visualisiere. Deshalb muss ich die Lösung, die catparts einzeln zu laden, fallen lassen. Es sind doch viele catparts, deren Partnumber umbenannt werden sollen, ca. 1000 pro Projekt.

Vielleicht fällt dir oder anderen ein Lösung ein, wie ich einzelnen catparts, deren Partnumber so anpassen kann, dass sie mit dem Filename gleich ist.

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

---

Servus
Als was hast du das Script gespeichert/gestartet? (AFARI sollte CATScript gehen).
Alternativ gibt es hier auch noch einen ähnlichen Beitrag.

Gruß
Bernd

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

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

---

Hallo Bernd,

das Makro wird schon an der Deklaration Language="CATScript" gestoppt. Nachdem ich diese Zeile auskommentiert habe, ging es immer wieder mal weiter, so dass ich immer mehr Zeilen auskommentiert habe, bis garnichts mehr lief.

Mit dem Makrorecorder habe ich es auch schon versucht, aber da bin ich nur in den Wald gekommen, da so viele Einträge drinstanden, bis die Verwirrung perfekt war. Meine Version ist die R19

In Excel VBA habe ich mit dem Makrorecorder keine Probleme und da kann ich alle Deklarationen stets am Anfang eines Moduls schreiben.

Bei Catia V5 kommen immer wieder Dim- und Set-Deklarationen im Code kreuz und quer vor.
Ist es so, oder kann ich da einiges der Übersicht halber zusammenziehen?

Im Beitrag hast du mir noch einen Link gegeben, das werde ich heute im Laufe des Tages ausprobieren, vielen Dank.

Viele Grüße, Martin

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