---

Wie kann ich mehrere Drawings (z.B. 30 St.) aktualisieren?

Danke

Georg

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

---

Hallo Georg,
wenn Du CATDrawings meinst, dann wirst Du wohl jede Datei einzeln öffnen und aktualisieren müssen. Innerhalb einer Datei kannst Du aber auch einzelne Ansichten lokal aktualisieren.
mfg juefi

------------------
Jürgen Fillies
Federal Mogul Sealing Systems
07252588215

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

---

Hallo Jürgen,

ich möchte ein Verzeichnis auswählen können und anschließend soll dann jede Zeichnung geöffnet, aktualisiert und gespeichert werden.

Gibt es hierfür eine Lösung?

Danke

Georg

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

---

Guten Morgen,

in den Dienstprogrammen findest Du eine Funktion "UpdateBatch". Dies dient zur Zeichnungsaktualisierung.

HTH

------------------
Gruß

Rafi

---

Hallo,

....Jahre später

bin bei der Suche auf diesen Beitrag gestossen.
Eine Lösung kann z.B. so aussehen:

Sub CATMain()

Dim Ordner As Folder
Set Ordner = CATIA.FileSystem.GetFolder("C:\Verzeichnis\")

Dim Dateien As Files
Set Dateien = Ordner.Files

Dim Datei As File

msgbox Dateien.count & " Dateien in Verzeichnis"
n=0
For i = 1 to Dateien.count
Set Datei = Dateien.Item(i)

if (right(Datei.Name,10) = "CATDrawing") then
n=n+1
'msgbox Datei.Name
                'Datei öffnen und irgenwas damit machen
                'Datei (speichern und )schliessen
end if
next

msgbox n&" Zeichnungen in Verzeichnis "

End Sub

Vieleicht hilfts jemandem

Gruß
Bertel

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