v5 -> v4 batch 1

[nadam35]

anyone got a v5 (.catpart) to v4(.model) batch converter?


strange request



thanks,


-nadz

 

[solid7]

Other than the mouse hand?

Over at the CATBlog, Ferdo wrote a batch convert script to output to PDF. Probably, with a minimum of effort, it could be overhauled to meet the task.


---
CAD design engineering services - Catia V4, Catia V5, and CAD Translation. Catia V5 resources - CATBlog.

 

[ferdo]

Hi,

Yes, solid7 has right. And yes, strange request because you will lose any history (but you probably know that)

Regards
Fernando

 

[ferdo]

Hi,

Did you modify that macro? If not, here is another one.You have to create two folders. Look at the macro.



Language="VBSCRIPT"

Sub CATMain()

folderinput = InputBox ("Take your files from here","Input","C:\tempin\",2000,4000)
folderoutput = InputBox ("Put your files here","Output","C:\tempout\",2000,4000)


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

INTRARE = folderinput & f1.name
Set PartDocument1 = CATIA.Documents.Open(INTRARE)

IESIRE = folderoutput & f1.name & ".model"
PartDocument1.ExportData IESIRE, "model"


s = s & f1.name
s = s & vbCrLf

CATIA.ActiveDocument.Close

Next

End Sub

Regards
Fernando