Скрипты для автоматизации съёмки

[Alex1958]

Предлагаю в данной теме выкладывать скрипты для автоматизации съёмки в разных программах, используемых ЛА.
 В связи с появлением сравнительно дешёвых астрокамер на КМОП-матрицах и возможностью съёмки DSO короткими и
ультракороткими выдержками, возникает проблема оптимизации подвижек, продолжительность которых в некоторых случаях с
сравнима с продолжительностью съёмки лайтов.
Данный скрипт позволяет уменьшить количество подвижек в 6 раз при съёмки с использованием Ha+SII+OIII+LRGB фильтров.
Не являюсь специалистом по скриптам, поэтому прошу сильно не пинать, а предлагать улучшения.
Скрипт проверен на симуляторе.

(кликните для показа/скрытия)

' Скрипт для автоматизации процесса съемки в Maxim Dl.
' Позволяет делать по одному кадру в каждом из фильтров по порядку Ha, SII, OIII, R, G, B, L без     ' подвижек между '                     ' разноимёнными файлами (экономия времени съёмки).
' Скрипт кладётся в корневую папку, определяемую в Maxim Dl в  блоке "Camera control"  в разделе                                                  ' "autosave" - "Option" - "Set Image Save Path". Не забываем поставить галочку на "Auto-subfolder".
' Тогда создаётся папка с текущей датой,  в которой скрипт создаёт подпапки с именами фильтров.
' Настройка скрипта  - через "autosave" настраивается съёмка в одном из фильтров (у меня это Ha) и в                                              ' поле "Script" указывается путь к скрипту.
' После отработки скрипта делается подвижка и и снимается  второй кадр в фильтре Ha, повторно                                                                 '  запускается скрипт и так по кругу, до съёмки количества кадров, указанных в "autosave".
' Для отказа от съёмки   в одном из фильтров -просто закомментировать блок скрипта '
' Опорные кадры (в моём случае это Ha) должны оставаться в папке с текущей датой, т.к. нумерация всех ' файлов идёт от них.
' После окончания съёмки их можно переместить вручную в в папку "Ha"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Dim bFile, NameFile, cam, bName,dSII ,dOIII ,dR ,dG ,dB , dL ,mm ,s


set fso = createobject ("scripting.filesystemobject")     
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set WshShell = CreateObject("WScript.Shell")

On Error Resume Next
dim d,m,y
d = day( date() )
m = month(date())
y = year(date())
if d < 10 then
   d = "0" & d                                                       
end if
if m < 10 then
   m = "0" & m
end if

s = y & "-" & m & "-" & d

If fso.FolderExists(s) Then
    ' MsgBox "папка уже существует"
Else
    Set objFSO = CreateObject("Scripting.FileSystemObject")
     Set objFolder = objFSO.CreateFolder(s)
End if

' WScript.Echo (s)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ha = "Ha"
sii = "SII"
oiii = "OIII"
red = "R"
green = "G"
blue = "B"
lum = "L"


Header = "          Создание  каталогов фильтров"
Name = s

Arr = Array(ha, sii, oiii , red , green , blue , lum)
Set Shell = CreateObject("Shell.Application")
CD = CreateObject("WScript.Shell").CurrentDirectory
For Each N in Arr : Shell.NameSpace(CD).NewFolder(Name & "\" & N) : Next

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 Set filesys = CreateObject("Scripting.FileSystemObject")
Set objFolder = filesys.GetFolder(s)
' WScript.Echo (objFolder)


For Each File in objFolder.Files  ' Ищем файл в заданной папке
If LCase(filesys.GetExtensionName(File)) = "fit"  then   ' 
' WScript.Echo (File)
NameFile = (File)

set FSO=WScript.CreateObject("Scripting.FileSystemObject")

mm = FSO.GetBaseName(s & "\" & NameFile)                              ' Возвращаем имя файла

' WScript.Echo mm

End If
Next

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''Фильтр SII''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set cam = CreateObject("MaxIm.CCDCamera")
cam.LinkEnabled = True

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

        ' cam.BinY = 2             ' устанавливаем бининг по Y и X
    ' cam.BinX = 2

cam.Expose 1, 1, 1                          ' выдержка 1сек, затвор On, фильтр SII

   

Do While Not cam.ImageReady
Loop


dS = s + "\" + "SII" + "\" + mm + "SII.fit" ' Путь, куда пишем и добавление префикса фильтра                                                                 ' фильтра.
' wscript.echo dS

cam.SaveImage dS  'записываем файл

cam.DisableAutoShutdown = true

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''Фильтр OIII'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set cam = CreateObject("MaxIm.CCDCamera")
cam.LinkEnabled = True

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

cam.Expose 1, 1, 2

Do While Not cam.ImageReady
Loop


dOIII = s + "\" + "OIII" + "\" + mm + "OIII.fit" ' Путь, куда пишем и добавление префикса фильтра                                                           ' фильтра.
 ' wscript.echo dOIII

cam.SaveImage dOIII  'записываем файл

cam.DisableAutoShutdown = true

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''Фильтр Red'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set cam = CreateObject("MaxIm.CCDCamera")
cam.LinkEnabled = True

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

cam.Expose 1, 1, 3

Do While Not cam.ImageReady
Loop


dR = s + "\" + "R" + "\" + mm + "R.fit" ' Путь, куда пишем и добавление префикса фильтра.
 ' wscript.echo dR

cam.SaveImage dR  'записываем файл

cam.DisableAutoShutdown = true

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''Фильтр Green''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set cam = CreateObject("MaxIm.CCDCamera")
cam.LinkEnabled = True

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

cam.Expose 1, 1, 4

Do While Not cam.ImageReady
Loop


dG = s + "\" + "G" + "\" + mm + "G.fit" ' Путь, куда пишем и добавление префикса фильтра
' wscript.echo dG

cam.SaveImage dG  'записываем файл

cam.DisableAutoShutdown = true

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''Фильтр Blue''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set cam = CreateObject("MaxIm.CCDCamera")
cam.LinkEnabled = True

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

cam.Expose 1, 1, 5

Do While Not cam.ImageReady
Loop

dB = s + "\" + "B" + "\" + mm + "B.fit" ' Путь, куда пишем и добавление префикса фильтра                         
' wscript.echo dB               

cam.SaveImage dB  'записываем файл

cam.DisableAutoShutdown = true

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''Фильтр Lum''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set cam = CreateObject("MaxIm.CCDCamera")
cam.LinkEnabled = True

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

cam.Expose 1, 1, 6

Do While Not cam.ImageReady
Loop

dL = s + "\" + "L" + "\" + mm + "L.fit" ' Путь, куда пишем и добавление префикса фильтра                         
' wscript.echo dL               

cam.SaveImage dL  'записываем файл

cam.DisableAutoShutdown = true

[mo]

Отличная тема. Я сам всё собираюсь заняться автоматизацией, да никак не дойдёт ход. Но чувствую, что уже пора... 
Три телескопа порой выматывают меня ночью.

[Alex1958]

Дополню по скрипту.
В качестве рабочей папки в свойствах ярлыка "Maxim DL" необходимо указать путь к каталогу, в котором вы будете создавать папку с текущей датой. В противном случае скрипт работать будет некорректно.
Например, если скрипт создаёт папку с текущей датой в каталоге с:\Astro, то рабочая папка Maxim Dl тоже должна быть "c:\Astro" .

На днях добавлю скрипты, позволяющие сопрягать съемку на две камеры в двух копиях Максима.
Эти скрипты будут полезны при съемке на двух трубах двумя камерами, расположенных на одной монтировке.