Hallo Lusilnie,
ein Traum, funktioniert einwandfrei.
Danke für die schnelle Antwort.
Hier wäre nun mein fertiges Skript, ist sicher noch etwas verbesserungswürdig, aber es erfüllt ihren Zweck.
Language="VBSCRIPT"
Sub CATMain()
Dim Z_Nummer As String
Dim Idx As String
Dim Z_Idx As String
Dim I As Integer
Dim Box As Integer
For I = 1 To CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Count
If (CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Item(I).Name = "Zeichnungsnummer") Or (CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Item(I).Name = "Text.94") Then
Z_Nummer = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Item(I).Text
Exit For
End If
Next
For I = 1 To CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Count
If (CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Item(I).Name = "Revision") Or (CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Item(I).Name = "Text.109") Then
Idx = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Item(I).Text
Exit For
End If
Next
Z_Idx = Z_Nummer & " " & Idx
Box = MsgBox ("Zeichnung " & Z_Idx & " als PDF speichern?", 1, "Als PDF speichern?")
If Box <= 1 Then
CATIA.ActiveDocument.ExportData ("U:\" & Z_Idx ), "pdf"
MsgBox "Die Zeichnung " & Z_Idx & " wurde als PDF in U:\ erfolgreich gesichert!", 64, "Gespeichert!"
End If
End Sub
Nochmals Danke.
mfg
Florian
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP