CCD Commander导星自动校准脚本

Maxim DL自动校准：

Const Default_Guider_Exp = 2 '默认导星曝光时间(S)
Dim Guider_Exp

Set   objArgs   =   WScript.Arguments '如果没有入参，采用默认参数
If (objArgs.Count=0) Then
    Guider_Exp = Default_Guider_Exp
Else
    Guider_Exp = objArgs(0)
End If

Set App_Mdl = CreateObject("MaxIm.Application")
Set cam = App_Mdl.CCDCamera

cam.LinkEnabled = True

cam.GuiderStop '停止导星
Do While cam.GuiderRunning'判断导星校正是否结束
wscript.sleep 1000
Loop

cam.GuiderExpose(Guider_Exp) '先曝光一张
Do While cam.GuiderRunning
wscript.sleep 1000
Loop

cam.GuiderAutoSelectStar=true '自动选择导星

cam.GuiderCalibrate(Guider_Exp) '导星校正

Do While cam.GuiderRunning '判断导星校正是否结束
wscript.sleep 1000
Loop

cam.GuiderTrack(Guider_Exp) '开始导星

2)SkyX

Const Default_Guider_Exp = 1 '默认导星曝光时间(S)
Dim Guider_Exp

Set   objArgs   =   WScript.Arguments '如果没有入参，采用默认参数
If (objArgs.Count=0) Then
    Guider_Exp = Default_Guider_Exp
Else
    Guider_Exp = objArgs(0)
End If

Set cam = CreateObject("TheSkyX.ccdsoftCamera")
cam.Connect()

cam.AutoguiderExposureTime = Guider_Exp

Cam.Calibrate(0) '校准时间需要在skyX中设置

脚本下载链接：

http://www.stargazer.org.cn/wp-content/uploads/2015/08/AutoGuiderCal.zip

未经允许不得转载：巡星人 » CCD Commander导星自动校准脚本