Boa Tarde Companheiros ...
Alguém sabe ou já viu algum exemplo ou modelo de Splash no Auto Cad?
Splash no Auto Cad
Moderador: Moderadores
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
“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
- admin
- Administrador
- Mensagens: 621
- Registrado em: Sex 28 Nov 2003 11:00:00 pm
- Localização: Itu / SP
- Contato:
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
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
mmalbr@gmail.com
mmalbr@gmail.com
Resposta
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 ...
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
“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
Resposta
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
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
“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