找回密码
 注册
查看: 441|回复: 3
打印 上一主题 下一主题

請問skill如何使用雙擊滑鼠左鍵?

[复制链接]
  • TA的每日心情
    开心
    2019-11-19 15:32
  • 签到天数: 1 天

    [LV.1]初来乍到

    跳转到指定楼层
    1#
    发表于 2022-5-27 14:36 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

    EDA365欢迎您登录!

    您需要 登录 才可以下载或查看,没有帐号?注册

    x
    本帖最后由 jet2001 于 2022-5-27 14:37 编辑

    如圖 我需先選左邊的list ,然後按move ,再靠"art_move"移到右邊的list去
    可不可以直接在左邊list 快按滑鼠左鍵2下 就靠skill 移到右邊的list 去
    在case(Form_status->cuRField 部份 要如何抓滑鼠左鍵快按2下?
    謝謝
    以下是我寫1半的skill
    procedure(art_miscset()
    if(axlDesignType(t)=="BOARD" then
      (read_unit_mil1)   wbox=axlGetParam("paramDesign")->bBox
      etchlyr=(axlGetParam "paramLayerGroup:ETCH")->groupMembers
      etchlyr_no=length(etchlyr)
      axlWindowFit()  art_drcFormFile="c:/pcbenv/skill/_art.form"
      (axlFormCreate 'art_drcForm art_drcFormFile '("east" "outer") '_artBack t)
      brd_films=sort(axlGetParam("artwork") ->groupMembers, nil)
      number_arts=length(brd_films)   cam_arts=nil misc_arts=nil
      _cam=nil _misc=nil move_2r=nil
      foreach(_art brd_films cam_arts=cons(upperCase(_art) cam_arts) ) ;foreach(_art brd_films
      cam_arts=reverse(cam_arts)  
      (foreach item cam_arts (axlFormSetField art_drcForm "art_cam" item))
      axlFormSetFieldEditable(art_drcForm "cam" 0)
      axlFormSetFieldEditable(art_drcForm "misc" 0)
      axlFormSetFieldEditable(art_drcForm "etch" 0)
      axlFormSetFieldEditable(art_drcForm "arts" 0)
      (axlFormSetField art_drcForm "cam"  length(cam_arts))
      (axlFormSetField art_drcForm "misc" length(misc_arts))
      (axlFormSetField art_drcForm "etch" etchlyr_no)
      (axlFormSetField art_drcForm "arts" number_arts)
      (axlFormDisplay art_drcForm)
    )
    );

    procedure(_artBack(Form_status)
    case(Form_status->curField
      ("art_cam"  _cam=(Form_status->curValue)  move_2r=t)
      ("art_misc" _misc=(Form_status->curValue) move_2r=nil)
      ("art_move" ;
        if(move_2r then
         if(_cam then
          misc_arts=cons(_cam misc_arts)
          (axlFormSetField art_drcForm "art_misc" _cam)
          axlFormListDeleteItem(art_drcForm "art_cam" _cam)
          cam_arts=remd(_cam cam_arts)       _cam=nil
         ); if(_cam
         else
          if(_misc then  
           cam_arts=cons(_misc cam_arts)
           (axlFormSetField art_drcForm "art_cam" _misc)
           axlFormListDeleteItem(art_drcForm "art_misc" _misc)
           misc_arts=remd(_misc misc_arts)    _misc=nil
          ); if(_misc
        );if(move_2r
       (axlFormSetField art_drcForm "cam"  length(cam_arts))
       (axlFormSetField art_drcForm "misc" length(misc_arts))
      )
      ("exit" (axlFormClose art_drcForm))
      ("art_save"  t)
    );case
    );
    axlCmdRegister( "artmisc" `art_miscset ?cmdType "general")

    art.png (18.39 KB, 下载次数: 0)

    art.png
  • TA的每日心情
    开心
    2022-1-21 15:22
  • 签到天数: 1 天

    [LV.1]初来乍到

    2#
    发表于 2022-5-27 17:33 | 只看该作者
    按住shift在按move
  • TA的每日心情
    开心
    2022-5-6 15:29
  • 签到天数: 34 天

    [LV.5]常住居民I

    3#
    发表于 2022-6-1 09:14 | 只看该作者

    点评

    謝謝 我試一下看看  详情 回复 发表于 2022-6-2 09:31
  • TA的每日心情
    开心
    2019-11-19 15:32
  • 签到天数: 1 天

    [LV.1]初来乍到

    4#
     楼主| 发表于 2022-6-2 09:31 | 只看该作者
    本帖最后由 jet2001 于 2022-6-2 13:09 编辑

    謝謝 doubleClick 可以用了;主程式加上
    axlFormListOptions(art_drcForm "art_cam" 'doubleClick)  

    case(Form_status->curField
      ("art_cam" ...
       if(Form_status->doubleClick then
         printf(" now is doubleClick \n")
        else printf(" now is singleClick \n"))
      )





    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    推荐内容上一条 /1 下一条

    EDA365公众号

    关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

    GMT+8, 2025-5-29 17:12 , Processed in 0.078125 second(s), 28 queries , Gzip On.

    深圳市墨知创新科技有限公司

    地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

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