Hallo liebe Gemeinede,
kann man diese Zeilen (erstellt glaube ich von Igor) um folgendes erweitern?
- Dateiname der Zeichnung (in meinem Fall".dwg")inklusive Revision "A", "B" etc. inklusive Datum soll Dateiname der PDF sein
Beispiel: Zeichnungsnummer = Dateiname Zeichnung
Zeichnungsnummer + Revision A + Datum = Dateiname PDF
- alte PDF`s nicht überschreiben !!!
In diesen Zeilen wird die vorher erstellte Datei immer wieder aktualisiert überschrieben, leider.
Möchte mit diesem ganzen Procedere eine extra Sicherung der Zeichnungen erreichen.
path_and_name = ThisDoc.PathAndFileName(False) ' without extension
PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oDocument = ThisApplication.ActiveDocument
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
If PDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
oOptions.Value("All_Color_AS_Black") = 1
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 2
'oOptions.Value("Custom_End_Sheet") = 4
End If
'Set the destination file name
oDataMedium.FileName = path_and_name & ".pdf"
'Publish document
PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions,oDataMedium)
Wäre echt toll, wenn mir jemand helfen könnte. Ich kann leider nicht programmieren und die Threads hier bringen mich auch nicht viel weiter.
Gruß Stefan
[Diese Nachricht wurde von Ehli1982 am 19. Jan. 2012 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP