---

Hallo, eine Frage ...
Ich zeichnete ein Makro auf indem ich eine CATIA-Zeichnung als PDF speichern möchte. Wie kann ich in dem Makro den Dateinamen und den Pfad der aktuellen Datei angeben das es die Zeichnung immer unter dem gleiche Dateinamen und im gleichen Verzeichnis als PDF speichert.
Könntet ihr bitte das Makro so abändern ... Ich verstehe leider nichts davon ... 

Vielen Dank ...

Das Makro ...

Language="VBSCRIPT"

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

drawingDocument1.ExportData "R:\Catia\STG\ABTEILUNG\Verweismanagement\Fall-Lehre\Fall-Lehre 142 x 25 x 24.pdf", "pdf" 

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin UFeil,

du möchstest doch bestimmt die Datei nicht immer unter dem gleichen Name speichern oder??

In diesem Fall könnte das Makro so aus sehen:
------------------------------------------
Code
------------------------------------------
Sub CATMain()
  Dim Filepath 'As String
  ' Dateiauswahldialogh anzeigen
  Filepath = CATIA.FileSelectionBox("Dateiname angeben", "*.pdf", CatFileSelectionModeSave)
 
  ' Kontrolle, ob ein Name angeben wurde
  If Len(Filepath) <> 0 Then
    ' kontrolle, ob der Name die Endung .pdf hat
    If InStr(1, Filepath, ".pdf") = 0 Then
      Filepath = Filepath & ".pdf"
    End If
   
    Set drawingDocument1 = CATIA.ActiveDocument
    ' Datei exportieren
    Call drawingDocument1.ExportData(Filepath, "pdf")
  Else
    MsgBox ("Keine Datei angegeben")
  End If
end sub
-------------------------------------------------
Code Ende
-------------------------------------------------

Gruß
Proofin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP