Comment générer automatiquement un PDF à partir de .*IDW ou *.DWG: Autodesk Inventor

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:

1. Fermez tous les fichiers Inventor;
2. Ouvrez votre modèle *.idw ou *.dwg, que vous utilisez;
3. Naviguer vers le menu "Faire en sorte" et cliquez "Ajouter une règle";
4. Saisissez le nom de "Régner";
5. Copiez le code ci-dessous et collez-le dans "Régner" que vous venez de créer;

6. ' 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)
   

7. Fermez la fenêtre et accédez à nouveau au menu "Faire en sorte" et cliquez "Déclencheurs d'événements";
8. Sélectionner "Avant d'enregistrer le document" et cliquez "Sélectionnez Règles..."
9. Sélectionnez la règle portant le nom que vous venez de créer et fermez les fenêtres dans "D'ACCORD"
10. 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!

---