zdravim makro na prevod vykresu do pdf a dwg bych mel...na stp to asi fungovat nebude
vykresy *.CATDrawing ulozit do C:\temp\*.*
a potom spustit

Sub CATMain()
'export souboru do PDF a DWG

Set documents1 = CATIA.Documents

nume = "C:\temp\*.*"
MyFile = Dir(nume)
MyFile1 = "C:\temp\" & MyFile
While MyFile <> ""

documents1.Open (MyFile1)
Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Set specsAndGeomWindow1 = CATIA.ActiveWindow

MyFile = Dir

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim win1 As String
Dim win_pdf As String
Dim win_dwg As String

Dim product1 As Product
win1 = CATIA.ActiveWindow.Name
win2 = Split(win1, ".")
win1 = win2(0)
win_pdf = "C:\temp\vykresy\" & win1 & ".pdf"
win_dwg = "C:\temp\vykresy\" & win1 & ".dwg"

drawingDocument1.ExportData win_pdf, "pdf"
drawingDocument1.ExportData win_dwg, "dwg"

CATIA.ActiveDocument.Close

MyFile1 = "C:\temp\" & MyFile
Wend

End Sub

snad bude fungovat

Díky moc za příspěvky,

Tomáši zkoušel jsem vaše makro, nakopíroval jsem výkresy do složky C:\temp\ a zkusil jsem ho spustit, ale bohužel se vždy zasekne na tomto řádku: Dim specsAndGeomWindow1 As SpecsAndGeomWindow
neví co to znamená a kde může být chyba. Pokud vás něco napadne jak to vyřešit moc rád to přivítám.

Jiří