axlUIPopupDefine问题请教下版主

yneda

版主你好！
有个问题请教下，我想做这样一个操作，运行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

bruce777

收下学习了，谢谢楼主

deargds

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

需要右键菜单执行Done,或Cancel时才会中止，中止条件为
stop = nil，确认是否满足。

yneda

谢谢版主指点，非常给力，我测试了下，好的很。谢谢！
针对这，还有一个问题请教下，如果注册一个命令来运行test这个命令没问题，但如果直接调用test()这个函数却有问题，不能中止，不知道是什么原因。

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

;;点击check button来掉调用

( "Field_check"
       axlShell("test")
)


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


;;点击check button来掉调用

( "Field_check"
       test()
)

;;
procedure( test()
......
)

deargds

参考

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
    
25. 
    
26. procedure( test_done()
    
27. let(()
    
28.         stop = nil
    
29.         axlFinishEnterFun()
    
30. )
    
31. )
    
32. 
    
33. procedure( test_cancel()
    
34. let(()
    
35.         stop = nil
    
36.         axlCancelEnterFun()
    
37. )
    
38. )

复制代码