牧夫天文网

QQ登录

只需一步,快速开始

发新帖

0

收听

43

听众

200

主题
发表于 2018-8-26 11:45 | 查看: 2080| 回复: 1来自: 江苏省苏州市 电信
本帖最后由 wenzp 于 2018-8-26 12:16 编辑

   今天来分享下ACP的进阶应用,怎样利用vbs、javascript等脚本程序拓展acp的功能。acp支持调用vbs、js等脚本程序,另外它还提供了一个名为userActions.wsc的模板windows脚本组件。我们只需把写好的脚本片段插入模板相应的位置就能在需要的时候调用脚本,实现需要的操作。下面我用一个实例(电动镜头盖)来说明怎么插入脚本。
    这里以虫子牌电动镜头盖为例。首先需要安装镜头盖的ascom驱动(附件),在mdl中导星相机的滤镜轮设置选择电动镜头盖ascom驱动


    接下来需要激活userActions.wsc,激活(注册)步骤如下:
64位系统:
1、找到  C:\Windows\SysWOW64\cmd.exe
2、鼠标右键,点击用管理员模式运行
3、CD \Program Files (x86)\ACP Obs Control     (进入文件所在目录)
4、regsvr32 UserActions.wsc

32位系统:
1、找到  C:\Windows\System\cmd.exe
2、鼠标右键,点击用管理员模式运行
3、CD \Program Files (x86)\ACP Obs Control     (进入文件所在目录)
4、regsvr32 UserActions.wsc

  此模板共提供了如下这些插入接口:
  • Script start
  • Script end
  • Slew start
  • Slew end
  • Image start
  • Image end
  • Image completion
  • Target start
  • Target end
  • Shutdown


  我们只要在这些接口对应的位置粘贴脚本,就能实现我们需要的功能。例如在“slew start”位置粘贴一段打开镜头盖的脚本,那么程序就会在赤道仪goto之前打开镜头盖。每个接口看英文应该就能知道它的意思。下面是插入步骤:

这里提供一段打开镜头盖的脚本:

Dim cam                             ' "The" Camera object


Set cam = CreateObject("MaxIm.CCDCamera")


cam.LinkEnabled = True


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


cam.GuiderFilter  = 1
Util.WaitForMilliseconds(12000)


cam.GuiderFilter  = 3
Util.WaitForMilliseconds(3000)





  用记事本打开userActions.wsc,找到“slew start”这一行,把上面的脚本复制粘贴到如图位置然后保存

脚本.jpg



  打开ACP控制台拍摄一个目标,看镜头盖是否在goto之前打开。

  效果看视频:https://www.bilibili.com/video/av24707529/

镜头盖ascom.zip (589.32 KB, 下载次数: 8)


发表于 2018-8-26 12:26 来自: 浙江省金华市 电信
天爱天团,有进无还。温总亮相,威武荡漾。----大黑赠

回复 显示全部楼层 道具 举报

APP下載|爱牧夫天文淘宝店|牧夫天文网 ( 公安备案号21021102000967 )|网站地图|辽ICP备19018387号

GMT+8, 2024-9-20 06:19 , Processed in 0.014996 second(s), 7 queries , Gzip On, Redis On.

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表