Inventor - ilogic Regel zum Erstellen von PDFs

[pietro46]

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

[pietro46 · Accepted solution]

diese dient PDF Automatisch zum Ausführung

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



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

[pietro46 · Accepted solution]

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



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

[pietro46 · Accepted solution]

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.

[S_May]

Hallo @pietro46,

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

MFG

Sascha May

[Sofia.Xanthopoulou]

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 

LG

[pietro46]

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) 

[S_May]

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