Language="VBSCRIPT"

'CATDRAWING nach PDF konvertieren 
'--------------------------------------------------------------------------------
'	Script um .CATDRAWING Dateien nach .PDF zu konvertieren 
'	
'	Michael Rösch  /  roesch-m@kasto.de
'Geändert von Jens Hansen am 01.10.2008
'--------------------------------------------------------------------------------

Sub CATMain()

folderinput = InputBox ("Bitte den Ursprungsordner eingeben","Eingabe","C:\EINGABE\",500,1000)
folderoutput = InputBox ("Bitte das Zielordner eingeben","Eingabe","C:\AUSGABE\",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 documents1 As Documents
	Set documents1 = CATIA.Documents
	Dim document1 As Document

	PFADEINGABE =  folderinput & f1.name
	Set document1 = documents1.Open(PFADEINGABE)
	
	Dim drawingDocument1 As Document
	Set drawingDocument1 = CATIA.ActiveDocument

	drawingDocument1.Standard = 1

	Dim drawingSheets1 As DrawingSheets
	Set drawingSheets1 = drawingDocument1.Sheets

	Dim drawingSheet1 As DrawingSheet
	'Set drawingSheet1 = drawingSheets1.Item("Blatt .1")

	'drawingSheet1.Activate 

	Set drawingDocument1 = CATIA.ActiveDocument


Counter1 = drawingSheets1.Count

	For I=1 to Counter1

		Name1	=  CATIA.ActiveDocument.Sheets.Item(I).Name

	'	MsgBox ( CATIA.ActiveDocument.Sheets.Item(I).Name )


		Set drawingSheet1 = drawingSheets1.Item( I )
		drawingSheet1.Activate 

		Set drawingDocument1 = CATIA.ActiveDocument


Next


	PFADAUSGABE = folderoutput & f1.name
	PFADAUSGABE = Replace(PFADAUSGABE,"CATDrawing","pdf")
	drawingDocument1.ExportData PFADAUSGABE, "pdf"

	Dim specsAndGeomWindow1 As Window
	Set specsAndGeomWindow1 = CATIA.ActiveWindow

	specsAndGeomWindow1.Close 

	Set drawingDocument1 = CATIA.ActiveDocument

	drawingDocument1.Close 

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

Next 

MsgBox "fertig !" & vbCrLf & s 

End Sub