Cómo generar PDF automáticamente desde. * IDW o * .DWG: Inventor de Autodesk

Consulte aquí un código de iLogic para Autodesk Inventor que tiene como objetivo guardar una copia de su dibujo con la extensión * .pdf

El propósito del código es crear una copia * .pdf en el momento en que se guarda un archivo * .idw o * .dwg en Inventor.

Trabajar con este código permite al diseñador:

• Compare los cambios con la última versión guardada,
• acceder rápidamente, a través de adobe Reader, sus proyectos para discusión y demostración,
• Asegúrate de eso, después de guardar y cerrar el programa, su * .pdf es una copia fiel de sus últimas modificaciones.

---

Para instalar:

1. Cerrar todos los archivos de Inventor;
2. Abra su plantilla * .idw o * .dwg, como lo usas;
3. Navegar al menú "Gestionar" y haga clic en "Agregar regla";
4. Ingrese el nombre para "Regla";
5. Copie el código a continuación y péguelo en "Regla" que acabas de crear;

6. Obtenga el complemento de traductor de PDF.
   Dim PDFAddIn As TranslatorAddIn
   PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
   'Establecer una referencia al documento activo (el documento que se publicará).
   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, oContext, oOpciones) 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("Hoja_de_inicio_personalizada") = 2
   'oOptions.Value("Custom_End_Sheet") = 4
   End If
   
   PDFDirectory = ThisDoc.Path
   oFileName = ThisDoc.FileName(Falso) 'without extension
   
   If ThisDoc.Path =  "" Then
   MessageBox.Show("Archivo PDF no creado! Haga clic en el botón de nuevo "Salvar" para generar la copia en PDF", "ilógico")
   Return 'exit rule
   Else
   oDataMedium.FileName = PDFDirectory & "\" & oFileName & ".PDF"
   End If
   
   'Publish document.
   PDFAddIn.SaveCopyAs(oDocumento, oContext, oOpciones, oDataMedium)
   'Launch the PDF file in whatever application Windows is set to open this document type with
   'i = MessageBox.Show("Vista previa del archivo PDF?", "Vista previa en PDF",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
   'Si i = vbYes Entonces ThisDoc.Launch(oDataMedium.FileName)
   

7. Cierra la ventana y vuelve a navegar al menú. "Gestionar" y haga clic en "Activadores de eventos";
8. Seleccione "Antes de guardar el documento" y haga clic en "Seleccione Reglas ...."
9. Seleccione la regla con el nombre que acaba de crear y cierre las ventanas en "DE ACUERDO"
10. guarda el archivo.

---

A partir de este momento, los nuevos archivos creados a partir de esta plantilla estarán creando una copia automática en * .PDF.

Obs: La copia en * .pdf, sólo se ejecutará a partir de la segunda vez que guarde el dibujo..

 

Buen trabajo!

---