Thema "Betreff: Inventor - ilogic Regel zum Erstellen von PDFs" in Inventor - Deutsches Forum

Inventor - ilogic Regel zum Erstellen von PDFs

pietro46 — Mon, 24 Apr 2017 16:18:21 GMT

Hallo Autodesk Forum,
Ich habe paar Regel in Vergangenheit erstellt und würde gerne hier laden

@pietro46,

Die Themenüberschrift wurde zum besseren Verständnis editiert

von Sofia Xanthopoulou

Betreff: Inventor - ilogic Regel zum Erstellen von PDFs

pietro46 — Mon, 24 Apr 2017 16:18:47 GMT

diese dient PDF Automatisch zum Ausführung

PDFPath = "Y:\Allgemeine Dateien\Zeichnungen\PDF Freigegeben" & DirectoryPath



ThisDoc.Document.SaveAs(PDFPath & "\" & ThisDoc.FileName(False) & ".pdf" ,True)

Betreff: Inventor - ilogic Regel zum Erstellen von PDFs

pietro46 — Mon, 24 Apr 2017 16:19:13 GMT

STEPPath = "Y:\Allgemeine Dateien\Zeichnungen\DWG Freigegeben" & DirectoryPath



ThisDoc.Document.SaveAs(stepPath & "\" & ThisDoc.FileName(False) & ".dwg" ,True)

Betreff: Inventor - ilogic Regel zum Erstellen von PDFs

pietro46 — Mon, 24 Apr 2017 16:19:42 GMT

STEPPath = "D:\Konstruktion\Step Freigegeben" & DirectoryPath



ThisDoc.Document.SaveAs(stepPath & "\" & ThisDoc.FileName(False) & ".step" ,True)

Pfad zuweißen

Art der datei: Step,DWG, DXF,PDF.

Betreff: Inventor - ilogic Regel zum Erstellen von PDFs

S_May — Mon, 24 Apr 2017 16:20:10 GMT

Hallo @pietro46,

tauschen heißt ja, Du bietest etwas und hättest auch gerne etwas, aber was denn? 🙂

MFG

Sascha May

Betreff: Inventor - ilogic Regel zum Erstellen von PDFs

Sofia.Xanthopoulou — Mon, 24 Apr 2017 16:28:40 GMT

So, ich habe eure Tauschbörse jetzt ein bisschen aufgeräumt

@pietro46, @S_May, die Fortsetzung dieses Beitrags findet ihr nun hier.

Danke euch beiden für diesen lehrreichen Erfahrungsaustausch - so mag ich das

Betreff: Inventor - ilogic Regel zum Erstellen von PDFs mehrere Blätter

pietro46 — Wed, 26 Apr 2017 07:59:58 GMT

dieses Regel dient iLogic Zeichnung als PDF speichern auch mehrere Blätter

SyntaxEditor Code Snippet

PDFPath = "Y:\Allgemeine Dateien\Zeichnungen\PDF Freigegeben" & DirectoryPath
ThisDoc.Document.SaveAs(PDFPath & "\" & ThisDoc.FileName(False) & ".pdf" ,True)
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
'C:\Users\Pietro\Documents\Inventor
oDataMedium.FileName = path_and_name & ".pdf"
'Publish document
PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions,oDataMedium)

Betreff: Inventor - ilogic Regel zum Erstellen von PDFs mehrere Blätter

S_May — Sun, 04 Jun 2017 08:39:12 GMT

Hallo @pietro46,

schau mal bitte unter den aktuelle Post, ob da was für die dabei ist, wenn das noch nicht reichen sollte, lass es mich wissen

MFG

Sascha May