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!


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