12_pdf
3D API Autodesk Inventor SOFTWARES CAD

Como Gerar Pdf de seu .*Idw Automaticamente: Autodesk Inventor

Olá! Hoje irei disponibilizar uma API para Autodesk Inventor que tem como finalidade  salvar uma cópia do seu desenho com extensão em *.pdf

Toda vez que você salva seu desenho, o programa salva automaticamente uma cópia em *.pdf

Trabalhar com esse programinha permite ao projetista:

-> Conferir modificações com relação a última versão salva,

->Acessar rapidamente, via adobe reader, seus projetos para discussão e demonstração,

->Ter a certeza de que, após salvar e fechar o Programa, seu *.pdf é cópia fiel de suas últimas modificações.

Para instalar:

1-Feche todos os arquivos do Inventor

2-Abra seu template, (aconselho aplicar principalmente sobre o *.idw)

3-Execute Alt+F11, já com o template aberto

4-No menu à esquerda da tela "project", extenda (+) a pasta Modules

5-Clique duas vezes sobre Module 1

6-Abrirá na Janela Principal o conteúdo do Modulo 1. Caso já tenha algum programa neste módulo, você poderá colocar o código no fim da programação existente, sem problemas. Ou se preferir, clique em módule 2.

7-Copie e Cole o Código Abaixo.

8-Salve o arquivo

Caso você tenha dificuldade em realizar este processo acesse: http://totalcad.blogspot.com/

Obs: A cópia em *.pdf, somente será executada a partir da segunda vez que você salvar o desenho.

Material adaptado a partir das publicações de "Brian Ekins": http://modthemachine.typepad.com/my_weblog/

Segue Código Abaixo:

'***********************************************************************************************************

Public Sub AutoSave()

'' Lê o Nome do Arquivo, sem a sua extensão
Dim strFilename As String
strFilename = ThisDocument.FullFileName
On Error Resume Next
strFilename = Left(strFilename, Len(strFilename) - 4)
If Err Then
Exit Sub
End If

Dim currentSetting As Boolean
currentSetting = ThisApplication.SilentOperation
ThisApplication.SilentOperation = True

ThisApplication.SilentOperation = currentSetting
'' Salva o arquivo como pdf.
Call ThisDocument.SaveAs(strFilename & ".pdf", True)

End Sub

'********************************************************************************************

Bom Trabalho!

2 thoughts on “Como Gerar Pdf de seu .*Idw Automaticamente: Autodesk Inventor

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *