Eng-Tips is the largest forum for Engineering Professionals on the Internet.
Members share and learn making Eng-Tips Forums the best source of engineering information on the Internet!
-
Congratulations JStephen on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!
v5 -> v4 batch 1
- Thread starter nadam35
- Start date
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.
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.
-
1
- #3
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
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
- Status
