---

Hallo zusammen,
Meine Frage wäre wie man einen relativen Pfad zum Speichern erstellen kann?
D.h. Ich will mittels eines Makros ein product speichern, welches im selben Ordner beinhaltet ist wie das Kernproduct.
(Kernproduct hat eine dynamische Position)

Ist hierbei auch eine Hochzählung möglich - es werden also mehrere products erzeugt und sollen einen fortlaufenden Namen besitzen?
Vielen Dank schonmal im Vorraus!
Grüße Jannis

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

---

Hallo,

naja da gibt es mehrer Möglichkeiten. Man könnte sich zum Beispiel den physikalischen Pfad des Root-Produkts (Kernprodukts) auslesen und dann speichern. Die Funktion .SaveAs unterstützt hierbei die Eingabe eines Dateinamens. Ergo könnte man mittels des FileSystemObjekts den Ordner zunächst nach Dateien durchsuchen die diesen Dateinamen bereits besitzen, diese in eine Collection nehmen und dann mittels .Count + 1 den Zähler setzen. Dieser wird im Anschluss an den Speichernamen angehängt (append).

Du kannst zunächst einmal eine neues VBA-Projekt erzeugen und dann mit aktiven Makro-Recorder eine Speicheroperation durchführen. Denn, von CATIA erzeugten Code, kannst du dann im VBA-Editor mittels der Funktion Step-byStep Debugging analysieren. Damit erhälst du das Basiswissen zur Speicherung von CATIA Dateien.

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel  , vielen Dank für deine schnelle Antwort.
Ich habe zur Ermittlung des aktuellen Pfads eine Funktion erstellt:

--------------------
Funktion Pfad:

Function dbPath() As String
On Error GoTo Err_dbPath

dbPath = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))

Exit_dbPath:
    Exit Function

Err_dbPath:
    MsgBox Err.Description
    Resume Exit_dbPath

End Function

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

Diese binde ich in meiner Main ein:
(Auszug)

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

Dim strFileName As String
        strFileName = dbPath() & "test"
       
        productDocument1.SaveAs strFileName
        productDocument1.Close

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

Leider bekomme ich immer wieder diesen Fehler:

File text.CATProduct
The directory does not exist or it cannot be accessed.

Wo liegt hierbei das Problem? Das Verzeichniss ist aufjedenfall schon zugänglich, da ich einen statischen Speicherversuch durchgeführt habe.

Danke
Jannis

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

---

Hallo,

soweit ich das sehen kann übergibst du der Speicher-Funktion ja im Moment nur den Speichernamen des Produkts (Variable dbPath). Woher soll das Script den wissen in welchen physikalischen Pfad es die Datei ablegen soll.

Wenn du eine Datei öffnest und diese mit File -> Save speicherst dann popt das SaveAs Fenster aus in dem eine Benutzerinteraktion notwenidg ist (physikalischen Pfad auswählen).

D.h. konkret: Du musst folgende Funktion durchführen (nur Schema)

Start Funktion Zaehlen

Suche in Ordner Dateinamen mit (xxx*)
Verschiebe Sie in eine Kollektion
Zähle die Anzahl den Einträge der Collection
Zähle zur Anzahl 1 hinzu
Übergebe den Wert im Type String

Ende der Funktion Zaehlen

Start Funktion Dateipfad

Hole den Wert aus Zaehlen
Lesen den Pfad des Kernprodukts (CurrentDb.FullPath)
Lese den Dateiname (siehe deine Funktion) aber ohne Extension
Setze den Speicherpfad = Pfad + "/" + Dateiname + "_" + Zaehlen & ".CATxxx"
Übergebe den Wert im Type String

Ende der Funktion Dateipfad

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Danke für die Logik, hat funktioniert!

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