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:
- Cerrar todos los archivos de Inventor;
- Abra su plantilla * .idw o * .dwg, como lo usas;
- Navegar al menú "Gestionar" y haga clic en "Agregar regla";
- Ingrese el nombre para "Regla";
- Copie el código a continuación y péguelo en "Regla" que acabas de crear;
-
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)
- Cierra la ventana y vuelve a navegar al menú. "Gestionar" y haga clic en "Activadores de eventos";
- Seleccione "Antes de guardar el documento" y haga clic en "Seleccione Reglas ...."
- Seleccione la regla con el nombre que acaba de crear y cierre las ventanas en "DE ACUERDO"
- 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