删除框选区域的GND和dummy网络的 via

式试1813

1. axlCmdRegister("del_via_GNDdummy" 'del_via_GNDdummy)
   
2. 
   
3. defun(del_via_GNDdummy ()
   
4.         prog(()
   
5. /*************************************************************************/       
   
6. /*************增加撤销和完成功能********************/       
   
7.                 ReVpopup = axlUIPopupDefine( nil (list
   
8.     (list "Undo" 'ReV_unDo)
   
9.     (list "Done" 'ReV_Done)
   
10.     (list "Cancel" 'ReV_Cancel)
    
11.      ))
    
12.     axlUIPopupSet(ReVpopup)
    
13.                 ReV_mark = axlDBTransactionStart()
    
14.                 notdone = t
    
15.                 while(notdone  ;增加while(notdone)就出现了temp group选项。
    
16. /*************增加撤销和完成功能********************/                       
    
17. /*************************************************************************/
    
18. 
    
19. 
    
20. /*************删除GND网络或者dummy过孔的主程序******************************/       
    
21.                 axlSetFindFilter(?enabled list("noall" "vias") ?onButtons list("noall" "vias") )
    
22.                 while(axlSelect()
    
23.                         axlHighlightObject(axlGetSelSet())
    
24.                         all = axlGetSelSet()
    
25.                         foreach(i all
    
26.                                 when(or(i->net->name == "GND" i->net->name == "E" i->net->name == "GNDD" i->net->name == "GNDL" i->net->name == "GNDA" i->net->name == "VSS" i->net->name == "")
    
27.                                 axlDeleteObject(i))
    
28.                         );endforeach
    
29.                 );endwhile
    
30. /*************************************************************************/                                       
    
31.                                
    
32.                                
    
33.                              
    
34. /*************************************************************************/       
    
35. /*************增加撤销和完成功能********************/       
    
36.                 axlDBTransactionCommit(ReV_mark)       
    
37.                 );endwhile       
    
38.                 );endprog
    
39. );endfun
    
40. 
    
41. 
    
42. procedure(ReV_unDo()
    
43. let( ()
    
44.   if(! axlDBTransactionOops(ReV_mark) then
    
45.     axlUIWPrint(nil "-- Nothing Left To Undo. --")
    
46.   else
    
47.     axlUIWPrint(nil "-- Replacing Clines. --")
    
48.   ); endif
    
49.   axlClearSelSet()
    
50. )); end let procedure
    
51. 
    
52. procedure(ReV_Cancel()
    
53. let( ()
    
54.   axlUIWPrint(nil "** Cancelled Program. **")
    
55.   ;axlDBTransactionRollback(ReV_mark)
    
56.   notdone = nil
    
57.   axlClearSelSet()
    
58.   axlCancelEnteRFun()
    
59. 
    
60. )); end let procedure
    
61. 
    
62. procedure(ReV_Done()
    
63. let( ()
    
64.   axlUIWPrint(nil "- Done -")
    
65.   axlDBTransactionCommit(ReV_mark)
    
66.   notdone = nil
    
67.   axlCancelEnterFun()
    
68.    
    
69. )); end let and procedure     
    
70. 
    
71. /*************************************************************************/       
    
72. /*************增加撤销和完成功能********************/       

复制代码

loNeL

写的很规范，一看就是大神