Maximdl script autofocus

[bradisback]

Salut à tous,

 

Je cherche un script pour ordonner de refaire une MAP à utiliser dans l’ "Autosave" (générateur de séquence).

Je sais qu’il en existe, mais je ne sais pour quel raison celui que j’ai fonctionne parfaitement pour se lancer, faire la MAP, mais le script que j’ai ne se ferme pas et donc la séquence ne continue pas...

Je suis sous MaximDL 6.20

 

Super grand merci d’avance pou votre coup de main!

 

stef

 

 

Modifié 11 avril 2020 par bradisback

[bradisback]

Ou si quelqu’un maîtrise la programmation de script:

 

J’ai ai un (qui date un peu) qui au début fonction parfaitement, le script se lance, la MAP se fait correctement, mais le script ne se referme pas après, du coup la séquence photo ne reprend pas... 🙁 

j’imagine que ça se passe dans les dernières ligne de code, le script ne reçoit pas l’information que l’af est ok et continue à tourner

 

le voilà:

 

 

'Stephen Mounioloux - Cooledpix.com
'Refocusing Script V1.0 for MaximDL imaging (autosave) sequences
'2012/10/17 - Last update: 2012/10/18
'----------------------------------------------------------
Dim cam
Set cam = CreateObject("MaxIm.CCDCamera")
Dim af
Set af = CreateObject("MaxIm.Application")

cam.LinkEnabled = True
if Not cam.LinkEnabled Then
   wscript.echo "Failed to start camera."
   Quit
End If

af.FocuserConnected = True
if Not af.FocuserConnected Then
   wscript.echo "Failed to connect the focuser."
   Quit
End If

wscript.echo "Moving filter wheel to Focus on Slot #0 Filter."
cam.filter(0)
wscript.echo "Autofocus routine started."
af.AutoFocus()

Do While Not AutoFocusStatus
WScript.Sleep 1000
Loop

Modifié 12 avril 2020 par bradisback