Splash no Auto Cad

[cleyson]

Boa Tarde Companheiros ...

Alguém sabe ou já viu algum exemplo ou modelo de Splash no Auto Cad?

[admin]

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

[cleyson]

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 ...

[cleyson]

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