优化跨分割检查代码

式试1813

1. defun( select_layername ()  
   
2. prog( (numa numb changdu)  
   
3.     etchparam = axlGetParam("paramLayerGroup:ETCH")     
   
4.     l_layers = etchparam->groupMembers   
   
5.     etchlist = nil
   
6.     planelist = nil
   
7.     /**********
   
8.     foreach(nlayer l_layers      
   
9.     layerlista = strcat("ETCH/" nlayer )
   
10.     when(axlDBGetLayerType(layerlista)=="PLANE"   
    
11.         planelist = cons(layerlista planelist)      
    
12.         );end when 结束when PLANE判断
    
13.     when(axlDBGetLayerType(layerlista)=="CONDUCTOR"     
    
14.         etchlist = cons(layerlista etchlist)
    
15.         ) ;end when 结束when CONDUCTOR判断      
    
16.       );foreach  结束foreach判断
    
17.     *********/
    
18.     changdu=length(l_layers)/2
    
19.     if((mod(length(l_layers) 2)==0) then
    
20.                     numa=1
    
21.                     for(i 1 changdu layerlista = strcat("ETCH/" nthelem(numa l_layers)) etchlist = cons(layerlista etchlist) numa=numa+2)
    
22.                     etchlist = reverse(etchlist)
    
23.                     numb=2
    
24.                     for(i 1 changdu layerlistb = strcat("ETCH/" nthelem(numb l_layers)) planelist = cons(layerlistb planelist) numb=numb+2)   
    
25.                     planelist =reverse(planelist)
    
26.                     
    
27.                     else
    
28.                            
    
29.                     numa=1
    
30.                     for(i 1 changdu+1 layerlista = strcat("ETCH/" nthelem(numa l_layers)) etchlist = cons(layerlista etchlist) numa=numa+2)
    
31.                     etchlist = reverse(etchlist)
    
32.                     numb=2
    
33.                     for(i 1 changdu layerlistb = strcat("ETCH/" nthelem(numb l_layers)) planelist = cons(layerlistb planelist) numb=numb+2)   
    
34.                     planelist =reverse(planelist)
    
35.                     
    
36.                     )   
    
37.       
    
38.       axlFormSetField( form "etch_list" etchlist)      
    
39.       axlFormSetField( form "Plane_list" planelist)   
    
40.          
    
41.   );prog
    
42. );defun

复制代码

可以检查奇数层叠，可以不设置plane层

Sleep_xz

谢谢楼主的分享