---

Hallo zusammen,
einige Lieferanten von uns verlangen zu den Zeichnungsdateien noch zusätzlich eine PDF mit zu versenden.
Ich möchte die Erzeugung des PDFŽS gern per iLogic automatisieren.
Die PDF soll in dem gleichen Ordner, wie die Zeichnungsdatei abgelegt werden.
Sobald ich die Zeichnungsdatei speichere, bzw. nach einer Aktualisierung speichern muss soll eine PDF erzeugt werden, bzw. die vorhandene PDF soll aktualisiert werden.
Wir arbeiten mit Inventor 2021. Ich habe schon einiges aus dem "Netz" ausprobiert. Aber leider nichts passendes gefunden.
hat jemand zufällig eine passende iLogic-Regel?

In der Programmierung von ilogic muss ich mich noch einarbeiten. Ist noch eine Baustelle von mir.

Vielen Dank schon mal.

Gruss
Reinhard

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

---

Hallo Reinhard

Das funktioniert mit 2021 auch noch.

Beste Grüsse
Raphael

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

---

auf die Schnelle habe ich nur diese Regel hier gefunden
iLogic PDF Eport Optionen reseten
Ob und wie gut das funktioniert, weiß ich nicht.

Noch einige Anmerkungen:

• Ist das als externe Regel gedacht? Da muss sehr genau auf irgendwelche Ausnahmen geachtet werden! Zeichnungen bedeutet, JEDE Zeichnung ...
  
• Eine Regel im einzelnen Dokument (z.B. in der Vorlage) ist ein Albtraum, wenn das mal geändert werden soll/muss und dann viele Altlasten vorhanden sind.
  
• Abhängig vom Umfang Deiner 'durchschnittlichen' Zeichnung baust Du Dir eine gewisse Bremse ein (der Export dauert ein wenig).
  
• Fehler beim Programmablauf müssen besonders sorgfältig behandelt werden (was, wenn jemand die vorh. pdf geöffnet hat? Überschreiben wird dann fehlschlagen).
  

------------------
Gruß KraBBy

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

---

Vielen Dank für die Lösungen.
Der Link von OibelTroibel funktioniert schon sehr gut.
Leider wird der PDF-Ordner nicht in dem gleichen Verzeichnis, wie die  Zeichnungsdatei angelegt, sondern ein Verzeichnis darüber.
Schöne wäre es, wenn der PDF-Ordner im gleichen Verzeichnis, wie die Zeichnungsdatei angelegt wird.
Was muss ich ändern?

'------start of iLogic-------
oPath = ThisDoc.Path
oFileName = ThisDoc.FileName(False) 'without extension
oRevNum = iProperties.Value("Project", "Revision Number")
oPDFAddIn = 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 oPDFAddIn.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
'get PDF target folder path
oFolder = Left(oPath, InStrRev(oPath, "\")) & "PDF"
'Check for the PDF folder and create it if it does not exist
If Not System.IO.Directory.Exists(oFolder) Then
System.IO.Directory.CreateDirectory(oFolder)
End If
'Set the PDF target file name
oDataMedium.FileName = oFolder & "\" & oFileName & _
" Rev" & oRevNum & ".pdf"
'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
'------end of iLogic-------

Danke + Gruss
Reinhard

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

---

Hallo Reinhard,

bitte deinen Code demächst mit dem Code-Tags versehen, das macht ihn deutlich leserlicher.

Ändere:

Code:

---

oFolder = Left(oPath, InStrRev(oPath, "\")) & "PDF"
zu->
oFolder = oPath & "\PDF"

---

Hier der komplette Code:

Code:

---

'------start Of iLogic-------
oPath = ThisDoc.Path
oFileName = ThisDoc.FileName(False) 'without extension
oRevNum = iProperties.Value("Project", "Revision Number")
oPDFAddIn = 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 oPDFAddIn.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
'get PDF target folder path
oFolder = oPath & "\PDF"
'Check for the PDF folder and create it if it does not exist
If Not System.IO.Directory.Exists(oFolder) Then
System.IO.Directory.CreateDirectory(oFolder)
End If
'Set the PDF target file name
oDataMedium.FileName = oFolder & "\" & oFileName & _
" Rev" & oRevNum & ".pdf"
'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
'------end of iLogic-------

---

Grüße

EIBe 3D

[Diese Nachricht wurde von EIBe 3D am 09. Apr. 2021 editiert.]

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

---

Vielen Dank die Korrektur. Ich werden mich bemühen.

Gruss
Reinhard

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