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!


Comment générer automatiquement un PDF à partir de .*IDW ou *.DWG: Autodesk Inventor
Faites défiler vers le haut