[Resolvido]visualizar *.DWG e *.DWF

galera me propus a fazer um banco de dados pra le esses arquivos que sao gerados pelo alto cad mas nao consigo

ja tentei de tudo mas nao consigo se alguem puder me ajudar.

De ensinamento extraído de Jeferson (Kartoffel)

Partindo do pré suposto que a rota do Autocad não foi instalada no seu local padrão, você pode ainda utilizar uma API, que verifica qual aplicativo abre determinado arquivo, e depois utiliza-lo para abrir o mesmo.

Segue o código:

Const MAX_FILENAME_LEN = 260
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long


Este é o código que vai em um botão por exemplo

'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim i As Integer, s2 As String
Dim rfile As String

rfile = Rota

'Const
sFile = Rota 'rota do arquivo

'Check if the file exists
If Dir(sFile) = "" Or sFile = "" Then

MsgBox "Arquivo não encontrado. Certifique-se que ele existe." & vbCr & sFile, vbCritical, "KARTOFFEL"

Exit Sub
End If
'Create a buffer
s2 = String(MAX_FILENAME_LEN, 32)
'Retrieve the name and handle of the executable, associated with this file
i = FindExecutable(sFile, vbNullString, s2)
If i > 32 Then


'MsgBox Left$(s2, InStr(s2, Chr$(0)) - 1) & " " & sFile
Shell Left$(s2, InStr(s2, Chr$(0)) - 1) & " " & sFile, vbMaximizedFocus


Else
MsgBox "Não há um aplicativo em seu computador que seja capaz de abrir este arquivo: " & vbCr & sFile, vbExclamation, "ATENCAO"

End If


Cumprimentos.

amigao nao faco a minima ideia de como usar esse código e onde devo usar se puder me madar um exemplo ficarei muito grato
estou precisando muito disso valeu desde ja

Amigo.. ei peguei este código de um fórum cujo autor postou.

Não tenho o AutoCad instalado.. e não sei se posso lhe fazer o exemplo. Creio que necessita ter o mesmo instalado.

No entanto envie-me um arquivo deste (Autocad),... verei se funciona.

Cumprimentos.

segue o arquivo dwg

o programa free que abre o arquivo e que e muito mais leve que o cad e mais simples de instalar e o DWG TrueView 2013

Manda ai o link onde consiga baixá-lo.

Cumprimentos.

http://usa.autodesk.com/adsk/servlet/pc/item?siteID=123112&id=9078813
tem esse que acopla no access uns componenste

e tem esse que e o aplicativo que le

http://usa.autodesk.com/design-review/download/?id=12423405&siteID=123112

amigo seria interessante visualizar ele em 3 d mesmo mas no ultimo caso se tiver como pode converter pra jpg em vba e visualizar em jpg

ha ew tem esse tambem pra usar o vba


http://usa.autodesk.com/adsk/servlet/item?siteID=123112&id=12715668&linkID=9240618

Estou baixando o link do VBA que me mandou..

Assim que conseguir algo dou noticias

valeu irmao

Estou baixando....como tenho problemas de conexão..Pode demorar.. mas assim que tiver baixado te dou retorno.

Cumprimentos.

Amigo...minha franquia de velocidade se esgotou este mes.. estou esperando passar a data para baixar o visualizador. Com velocidade reduzida não estou conseguindo baixá-lo.

Cumprimentos.

blz amigo se tiver algo a fazer me avise
se não quer q te mande pelo email compactado

amigo conseguiu alguma coisa por ai

Amigão, tentarei baixar o programa hoje.. MInha net simplesmente não consegue baixar arquivo tão grande.. pois desconecta as vezes no meio do download.

Cumprimentos.

parceiro estou aguardando pois nem tem onde eu recorrer tambem, se quiser me passar endereco e cep te mando um pen driver com todos os programas necessarios

Amigão.. Baixei dois dos sistemas que indicou no Tópico...

O AutoCad 2010 VBA Enabler.. Simplesmente não ativa o botão Next.. A tela fica em Welcome to The AutoCad bla bla bla.. mas o botão Next encontra-se desabilitado...

O outro tambem não consegui...

Se quiser me enviar fique a vontade que terei o maior prazer em tentar uma solução.
Caso envie-me o pen.. Favor em um txt explicar o que cada Programa faz.. Mande todos que citou no início do tópico

Envie se possivel o teu sistema com os objetos envolvidos na solução.

Te enviarei endereço via Mensagem privada

Cumprimentos.

valeu

Bom dia! Entre em contacto comigo por e-mail para que eu possa lhe enviar meu endereço... não consigo te mandar uma mensagem privada pelo fórum.

Harysohn@hotmail.com

Cumprimentos.

blz

Como anda este tópico amigo?

Cumprimentos.

há amigo não consegui resolver não

Realmente visualizar arquivos do AutoCad no Access é meio complicado se não houver uma biblioteca para isso.
No entanto, abrir um arquivo pelo Access para a visualização ser de outro programa, isso é tranquilamente possível.

Explico:
Caso você tenha um programa visualizador do seu arquivo instalado na maquina, através do Access da para abrirmos
o arquivo, que será visualizado pelo outro programa.

Se isso atender, nos retorne por favor tentaremos algo.

podemos tentar isso ue

Ok, já estou baixando o visualizador (é meio grande...)

Mas você poderia me antecipar e mandar seu aplicativo em access que irá abrir,
posso já fazer algo e mandar de volta antes mesmo de testar, assim, você mesmo testa.

No aguardo.

Amigo, como não mandou seu projeto, fiz um exemplo aqui com recursos que não se sua versão do Access suporta.
Teste e nos retorne por favor!

Obs.: É possível que seja mostrado alguns avisos ao abrir, basta confirmá-los.

Como anda este amigos?

Cumprimentos.

parece que deu certo irmão valeu

Parece ou deu certo? Mas se marcou como resolvido, (como diz o criquio) resolvido está!

É isso ai..

O Fórum agradece o Retorno.