EDA365电子工程师网

标题: axlUIPopupDefine问题请教下版主 [打印本页]
作者: yneda    时间: 2013-11-5 16:09
标题: axlUIPopupDefine问题请教下版主
本帖最后由 yneda 于 2013-11-5 16:16 编辑

版主你好！
有个问题请教下，我想做这样一个操作，运行skill后，进入到框选状态，框选完后对框选后的目标进行处理，处理完后，再进入到下次框选状态，直到右键cancel后，结束退出。如下代码，不知道如何能实现，谢谢！


procedure( test()
    let((mypopup dbid_symbol)
         if(axlOKToProceed() then
            axlClearSelSet()
            axlSetFindFilter(?enabled '("NOALL" "SYMBOLS") ?onButtons '("SYMBOLS"))
            
             mypopup = axlUIPopupDefine(nil list(list("Done" 'axlFinishEnterFun) list("Cancel" 'axlCancelEnterFun))
             axlUIPopupSet(mypopup)

               
             dbid_symbol = axlSingleSelectBox()
               
              if(dbid_symbol then
                   fun1() ;运行完后，如再这里调用test()则会进入死循环，除非框选为nil，否则中止不了。
               else
                   fun2() ;如果框选目标为nil，再调用test()和上面的情况差不多。
                  )
          else
           axlUIConfirm("Finish current command first.")
          ）


);end let

);end procedure
作者: deargds    时间: 2013-11-6 13:16
参考
  1. procedure( test()
  2. let((mypopup dbid_symbol)
  3.         if(axlOKToProceed() then
  4.                 axlClearSelSet()
  5.                 axlSetFindFilter(?enabled '("NOALL" "SYMBOLS") ?onButtons '("SYMBOLS"))
  6.                 mypopup = axlUIPopupDefine(nil list(list("Done" 'test_done) list("Cancel" 'test_cancel)))
  7.                 axlUIPopupSet(mypopup)
  8.                 stop = t
  9.                 while(stop
  10.                         axlClearSelSet()
  11.                         dbid_symbol = axlGetSelSet(axlSingleSelectBox())
  12.                         if(dbid_symbol then
  13.                                 axlHighlightObject(dbid_symbol t)
  14.                                 println(dbid_symbol~>name)
  15.                         else
  16.                                 println(dbid_symbol~>name)
  17.                         )
  18.                 )
  19.                 axlUIPopupSet(nil)
  20.         else
  21.                 axlUIConfirm("Finish current command first.")
  22.         )
  23. );end let
  24. );end procedure

  26. procedure( test_done()
  27. let(()
  28.         stop = nil
  29.         axlFinishEnterFun()
  30. )
  31. )

  33. procedure( test_cancel()
  34. let(()
  35.         stop = nil
  36.         axlCancelEnterFun()
  37. )
  38. )
复制代码
作者: yneda    时间: 2013-11-6 14:30
谢谢版主指点，非常给力，我测试了下，好的很。谢谢！
针对这，还有一个问题请教下，如果注册一个命令来运行test这个命令没问题，但如果直接调用test()这个函数却有问题，不能中止，不知道是什么原因。

调用方法一（没问题）：
;;
axlCmdRegister( "test" 'test)

;;点击check button来掉调用

( "Field_check"
       axlShell("test")
)


调用方法二(不能中止)：
;;


;;点击check button来掉调用

( "Field_check"
       test()
)

;;
procedure( test()
......
)
作者: deargds    时间: 2013-11-6 16:16
yneda 发表于 2013-11-6 14:30
谢谢版主指点，非常给力，我测试了下，好的很。谢谢！
针对这，还有一个问题请教下，如果注册一个命令来运 ...

需要右键菜单执行Done,或Cancel时才会中止，中止条件为
stop = nil，确认是否满足。
作者: bruce777    时间: 2017-5-23 14:29
收下学习了，谢谢楼主



欢迎光临 EDA365电子工程师网 (https://bbs.elecnest.cn/) Powered by Discuz! X3.2