Come generare automaticamente PDF da .*IDW o *.DWG: Inventore dell'Autodesk

Controlla qui un codice iLogic per Autodesk Inventor che mira a salvare una copia del tuo progetto con estensione *.pdf

Lo scopo del codice è creare una copia *.pdf nel momento in cui un file *.idw o *.dwg viene salvato in Inventor.

Lavorare con questo codice consente al progettista:

• Verifica le modifiche rispetto all'ultima versione salvata,
• accedi rapidamente, tramite Adobe Reader, i tuoi progetti per la discussione e la dimostrazione,
• assicurati che, dopo aver salvato e chiuso il programma, il tuo *.pdf è una copia fedele delle tue ultime modifiche.

---

Per installare:

1. Chiudi tutti i file di Inventor;
2. Apri il tuo modello *.idw o *.dwg, come usi;
3. Vai al menu "Maneggio" e clicca su "Aggiungi regola";
4. Inserisci il nome per "Regola";
5. Copia il codice qui sotto e incollalo dentro "Regola" che hai appena creato;

6. ' Ottieni il componente aggiuntivo del traduttore PDF.
   Dim PDFAddIn As TranslatorAddIn
   PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
   'Imposta un riferimento al documento attivo (il documento da pubblicare).
   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, oContesto, oOpzioni) Then
   'oOptions.Value("All_Color_AS_Black") = 1
   oOpzioni.Valore("Remove_Line_Weights") = 1
   oOpzioni.Valore("Risoluzione_vettoriale") = 400
   oOpzioni.Valore("Foglio_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
   'oOptions.Value("Custom_Begin_Sheet") = 2
   'oOpzioni.Valore("Custom_End_Sheet") = 4
   End If
   
   PDFDirectory = ThisDoc.Path
   oFileName = ThisDoc.FileName(falso) 'without extension
   
   If ThisDoc.Path =  "" Then
   MessageBox.Show("File PDF non creato! Fai di nuovo clic sul pulsante "Salva" per generare la copia PDF", "illogico")
   Return 'exit rule
   Else
   oDataMedium.FileName = PDFDirectory & "\" & oNomeFile & ".PDF"
   End If
   
   'Publish document.
   PDFAddIn.SaveCopyAs(oDocumento, oContesto, oOpzioni, oDataMedium)
   'Launch the PDF file in whatever application Windows is set to open this document type with
   'i = MessageBox.Show("Visualizza l'anteprima del file PDF?", "Anteprima PDF",MessageBoxButtons.SìNo,MessageBoxIcon.Domanda)
   'Se i = vbYes Then ThisDoc.Launch(oDataMedium.FileName)
   

7. Chiudi la finestra e torna al menu "Maneggio" e clicca su "Trigger di eventi";
8. Selezionare "Prima di salvare il documento" e clicca su "Seleziona Regole..."
9. Seleziona la regola con il nome appena creato e chiudi le finestre in "OK"
10. salva il file.

---

Da questo momento in poi, i nuovi file creati da questo modello creeranno una copia automatica in *.PDF.

Obs: La copia in *.pdf, verrà eseguito solo dalla seconda volta che salvi il disegno..

 

Buon lavoro!

---