Community
Inventor - Deutsch
Das Forum für alle Fragen rund um Autodesk Inventor, iLogic, Factory Design, Automation und mehr. Der Ort zum Fragen stellen, Antworten erhalten und Wissen teilen.
abbrechen
Suchergebnisse werden angezeigt für 
Anzeigen  nur  | Stattdessen suchen nach 
Meintest du: 

Inventor - ilogic Regel zum Erstellen von PDFs

7 ANTWORTEN 7
GELÖST
Antworten
Nachricht 1 von 8
pietro46
3656 Aufrufe, 7 Antworten

Inventor - ilogic Regel zum Erstellen von PDFs

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

7 ANTWORTEN 7
Nachricht 2 von 8
pietro46
als Antwort auf: pietro46

diese dient PDF Automatisch zum Ausführung

 

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



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

 

Nachricht 3 von 8
pietro46
als Antwort auf: pietro46

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



ThisDoc.Document.SaveAs(stepPath & "\" & ThisDoc.FileName(False) & ".dwg" ,True)
Nachricht 4 von 8
pietro46
als Antwort auf: pietro46

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.

 

Nachricht 5 von 8
S_May
als Antwort auf: pietro46

Hallo @pietro46,

 

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

 

MFG

 

Sascha May

Nachricht 6 von 8
Sofia.Xanthopoulou
als Antwort auf: S_May

So, ich habe eure Tauschbörse jetzt ein bisschen aufgeräumt Smiley (zwinkernd)

 

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

 

Danke euch beiden für diesen lehrreichen Erfahrungsaustausch - so mag ich das Smiley (überglücklich)

 

LG

 

Nachricht 7 von 8
pietro46
als Antwort auf: 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) 

 

 

 

 

 

Nachricht 8 von 8
S_May
als Antwort auf: pietro46

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 Lachender Smiley

 

 

MFG

 

Sascha May

Sie finden nicht, was Sie suchen? Fragen Sie die Community oder teilen Sie Ihr Wissen mit anderen.

In Foren veröffentlichen  

Autodesk State of Design & Make Report