Tenha uma nova experiência ao navegar no Fórum pelo computador de forma integrada ao portal principal. Acesse o seguinte link: https://www.autolisp.com.br/board/. Entretanto para dispositivos móveis recomendamos acessar este outro link: https://www.autolisp.com.br/forum/

Splash no Auto Cad

Dúvidas sobre VB para AutoCAD...

Moderador: Moderadores

Responder
Avatar do usuário
cleyson
Prata 1/3
Prata 1/3
Mensagens: 430
Registrado em: Seg 19 Jun 2006 12:00:00 am

Splash no Auto Cad

Mensagem por cleyson » Qui 05 Jul 2007 3:27:42 pm

Boa Tarde Companheiros ...

Alguém sabe ou já viu algum exemplo ou modelo de Splash no Auto Cad?
Cuiabá - Mato Grosso
“Na morte que me sigam, pois não deixo ninguém a chorar”. Cleyson
“Na vida as horas passam e tudo se renova, não invoque a morte, amanhã é um novo dia”. Cleyson
“Deus fez os caminhos, o homem faz o destino” Cleyson

Avatar do usuário
admin
Administrador
Administrador
Mensagens: 621
Registrado em: Sex 28 Nov 2003 11:00:00 pm
Localização: Itu / SP
Contato:

Mensagem por admin » Sex 06 Jul 2007 9:11:36 am

nào sei se entendi!

esta se referindo a uma exibir uma imagem quando um aplicativo e carregado no autocad?
se for.. use o doslib!

at

Marcos Mendes
Marcos Mendes de Almeida
[email protected]

Avatar do usuário
cleyson
Prata 1/3
Prata 1/3
Mensagens: 430
Registrado em: Seg 19 Jun 2006 12:00:00 am

Resposta

Mensagem por cleyson » Sex 06 Jul 2007 9:33:13 am

Bom dia Marcos


Era exatamente isso ... pelo que vi tenho que baixar esta ferramenta e adicionar estes comandos na Livraria do Cad pra usar no Autolisp

Estou procurando fazer em VB porém se não conseguir já tenho outra maneira de fazer ...

Obrigado pela ajuda Marcos ...
Cuiabá - Mato Grosso
“Na morte que me sigam, pois não deixo ninguém a chorar”. Cleyson
“Na vida as horas passam e tudo se renova, não invoque a morte, amanhã é um novo dia”. Cleyson
“Deus fez os caminhos, o homem faz o destino” Cleyson

Avatar do usuário
cleyson
Prata 1/3
Prata 1/3
Mensagens: 430
Registrado em: Seg 19 Jun 2006 12:00:00 am

Resposta

Mensagem por cleyson » Sex 06 Jul 2007 12:26:22 pm

Consegui ...

Código em VB

Dentro do Acad.dvb
Sub ACADStartup()
Call AcadApplication.LoadDVB("C:\SAID\Said.dvb")
Call AcadApplication.RunMacro("C:\SAID\Said.dvb!SplashStart")
End Sub

Sub SplashStart()
frmSplash.Show
End Sub

No Formulario usar ...

Private Sub UserForm_Layout()
Dim PauseTime, Start, Finish, TotalTime
Dim Splash As String
Splash = "1"

If Splash = "1" Then
PauseTime = 5 ' Set duration.
Load frmSplash
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
Unload frmSplash
Else
End
End If
End Sub
Cuiabá - Mato Grosso
“Na morte que me sigam, pois não deixo ninguém a chorar”. Cleyson
“Na vida as horas passam e tudo se renova, não invoque a morte, amanhã é um novo dia”. Cleyson
“Deus fez os caminhos, o homem faz o destino” Cleyson

Responder