Hallo an Alle,
ich setzte diesen Script von catia.cad.de bei uns ein.
Leider habe ich nun bemerkt, wenn ich schon eine Datei habe mit dem gleichen NAmen, überschreibt es mir diese nicht, bricht ab.
Ich habe mir gedacht, wenn in der
folderoutput & f1.name & ".dwg" die Datei existiert, das es mir diese gleich löst und diese dann abspeichert.
In VB wäre es eigenlich mit diesem Befehl
kill folderoutput & f1.name & ".dwg"
--> aber den Befehl kill kennt es nicht.
Der dazugehörige Script:
'Script zum Exportieren von V5-Parts und Produkten in STEP203'
'Erstellt von Jens Hansen / info@catia.cad.de'
'Dieses Script ist kostenlos verfügbar und darf weder verkauft noch Angeboten werden'
'Adresse zum Download: http://catia.cad.de'
Language="VBSCRIPT"
Sub CATMain()
folderinput = "V:\Betriebsmittelarchiv\CatiaArchivElektra\temp\temp3\"
folderoutput = "V:\Betriebsmittelarchiv\CatiaArchivElektra\Archiv\catia-dwg\"
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files
For Each f1 in fc
Dim PartDocument1 As Document
Set documents1 = CATIA.Documents
Dim document1 As Document
PFADEINGABE = folderinput & f1.name
Set PartDocument1 = CATIA.Documents.Open(PFADEINGABE)
Dim LastExtPos As Integer
LastExtPos = InStrRev(f1.name,".",-1)
f1.name = Left (f1.name, LastExtPos)
PFADAUSGABE = folderoutput & f1.name & ".dwg"
PartDocument1.ExportData PFADAUSGABE, "dwg"
s = s & f1.name
s = s & vbCrLf
Next
'Bei Bedarf kann eine Schlussnachricht eingeblendet werden, wo die umgewandelten Elemente aufgelistet sind. Hierfür in nachfolgender zeile die Hochkommas entfernen.'
'MsgBox "fertig !" & vbCrLf & s '
CATIA.quit
End Sub
Könnte man vielleicht in diesem Script sagen, das er die Datei einfach überschreiben soll?!
Danke für jeden Hinweis.
Schönen Gruß
Feyza : )
------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP