Habe das eine Frage:
Im internet gibt es einen Makro Schriftzug der wie folgt lautet:
----------------------------------------------------------------------
'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 = InputBox ("Wo befinden sich Ihre Daten ?","Eingabe","C:\Qeullordner\",500,1000)
folderoutput = InputBox ("Wohin soll gespeichert werden?","Eingabe","C:\Zielordner\",500,1000)
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)
PFADAUSGABE = folderoutput & f1.name & ".igs"
PartDocument1.ExportData PFADAUSGABE, "igs"
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
----------------------------------------------------------------------
Hat damit schon jemand gearbeitet?! Wie baut man sowas überhaupt ein?! Habe in sowas mal kurz gesagt gar keine Ahnung!!!
Gruß Kotschi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP