怎样添加Oops操作呢

happyliangkeshu

allegro skill 中有一个例子，但是我看了还是不太会
mark = axlDBTransactionStart()
...#1 do stuff ...
axlDBTransactionMark(mark)
...#2 do stuff ...
axlDBTransactionMark(mark)
...#3 do stuff ...
;; do an oops of the last two changes
axlDBTransactionOops( mark ) ; oops out #3
axlDBTransactionOops( mark ) ; oops out #2
axlDBTransactionOops( topList); commit only #1  


比方说，现在修改线宽，
updatedDbid = axlChangeWidth(dbid, 20.0)  
修改完线宽之后，怎么做一个弹出式菜单，然后菜单中有 Done  Oops  Cancel 呢 ？
重要的是Oops怎么实现？

bruce777

收下学习了，谢谢楼主

deargds

https://www.eda365.com/thread-93514-1-1.html

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. )

复制代码