Hallo Autodesk Forum,
Ich habe paar Regel in Vergangenheit erstellt und würde gerne hier laden
Die Themenüberschrift wurde zum besseren Verständnis editiert
von Sofia Xanthopoulou
Gelöst! Gehe zur Lösung
Gelöst von pietro46. Gehe zur Lösung
Gelöst von pietro46. Gehe zur Lösung
Gelöst von pietro46. Gehe zur Lösung
diese dient PDF Automatisch zum Ausführung
PDFPath = "Y:\Allgemeine Dateien\Zeichnungen\PDF Freigegeben" & DirectoryPath ThisDoc.Document.SaveAs(PDFPath & "\" & ThisDoc.FileName(False) & ".pdf" ,True)
STEPPath = "Y:\Allgemeine Dateien\Zeichnungen\DWG Freigegeben" & DirectoryPath ThisDoc.Document.SaveAs(stepPath & "\" & ThisDoc.FileName(False) & ".dwg" ,True)
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.
Hallo @pietro46,
tauschen heißt ja, Du bietest etwas und hättest auch gerne etwas, aber was denn? 🙂
MFG
Sascha May
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)
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
Sie finden nicht, was Sie suchen? Fragen Sie die Community oder teilen Sie Ihr Wissen mit anderen.