Vérifiez ici un code iLogic pour Autodesk Inventor qui vise à enregistrer une copie de votre dessin avec une extension au format *.pdf
Le but du code est de créer une copie *.pdf au moment où un fichier *.idw ou *.dwg est enregistré dans Inventor.
Travailler avec ce code permet au concepteur de:
- Vérifier les modifications par rapport à la dernière version enregistrée,
- accéder rapidement, via Adobe Reader, vos projets pour discussion et démonstration,
- sois sûr que, après avoir enregistré et fermé le programme, votre *.pdf est une copie fidèle de vos dernières modifications.
À installer:
- Fermez tous les fichiers Inventor;
- Ouvrez votre modèle *.idw ou *.dwg, que vous utilisez;
- Naviguer vers le menu "Faire en sorte" et cliquez "Ajouter une règle";
- Saisissez le nom de "Régner";
- Copiez le code ci-dessous et collez-le dans "Régner" que vous venez de créer;
-
' Obtenir le complément du traducteur PDF. Dim PDFAddIn As TranslatorAddIn PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}") 'Définir une référence au document actif (le document à publier). Dim oDocument As Document oDocument = ThisApplication.ActiveDocument Dim oContext As TranslationContext oContext = ThisApplication.TransientObjects.CreateTranslationContext oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism ' Create a NameValueMap object Dim oOptions As NameValueMap oOptions = ThisApplication.TransientObjects.CreateNameValueMap ' Create a DataMedium object Dim oDataMedium As DataMedium oDataMedium = ThisApplication.TransientObjects.CreateDataMedium ' Check whether the translator has 'SaveCopyAs' options If PDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContexte, oOptions) Then 'oOptions.Value("All_Color_AS_Black") = 1 oOptions.Valeur("Remove_Line_Weights") = 1 oOptions.Valeur("Vecteur_Résolution") = 400 oOptions.Valeur("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets 'oOptions.Value("Custom_Begin_Sheet") = 2 'oOptions.Valeur("Custom_End_Sheet") = 4 End If PDFDirectory = ThisDoc.Path oFileName = ThisDoc.FileName(Faux) 'without extension If ThisDoc.Path = "" Then MessageBox.Show("Fichier PDF non créé! Cliquez à nouveau sur le bouton "sauvegarder" pour générer la copie PDF", "illogique") Return 'exit rule Else oDataMedium.FileName = PDFDirectory & "\" & oNomFichier & ".PDF" End If 'Publish document. PDFAddIn.SaveCopyAs(oDocument, oContexte, oOptions, oDataMedium) 'Launch the PDF file in whatever application Windows is set to open this document type with 'i = MessageBox.Show("Aperçu du fichier PDF?", "Aperçu PDF",MessageBoxButtons.OuiNon,MessageBoxIcon.QuestionMessageBoxIcon.Question) 'Si je = vbOui Alors ThisDoc.Launch(oDataMedium.FileName)
- Fermez la fenêtre et accédez à nouveau au menu "Faire en sorte" et cliquez "Déclencheurs d'événements";
- Sélectionner "Avant d'enregistrer le document" et cliquez "Sélectionnez Règles..."
- Sélectionnez la règle portant le nom que vous venez de créer et fermez les fenêtres dans "D'ACCORD"
- enregistrer le fichier.
A partir de ce moment, les nouveaux fichiers créés à partir de ce modèle créeront une copie automatique en *.PDF.
Obs: La copie *.pdf, ne sera exécuté qu'à partir du deuxième enregistrement du dessin.
Bon travail!
Comment générer automatiquement un PDF à partir de .*IDW ou *.DWG: Autodesk Inventor