检查器件名称方向的skill源码

褚申成

1. 
   
2. axlCmdRegister( "Check_Dir" 'Check_Refdes_Direction)
   
3. 
   
4. defun( Check_Refdes_Direction ()
   
5. 
   
6.         axlVisibleDesign(nil)
   
7.         axlVisibleLayer( "BOARD GEOMETRY/OUTLINE" t )
   
8.         axlVisibleLayer( "PIN/TOP" t )
   
9.         axlVisibleLayer( "PIN/BOTTOM" t )
   
10.         axlVisibleLayer( "REF DES/SILKSCREEN_TOP" t )
    
11.         axlVisibleLayer( "REF DES/SILKSCREEN_BOTTOM" t )
    
12.         axlVisibleLayer( "PACKAGE GEOMETRY/SILKSCREEN_TOP" t )
    
13.         axlVisibleLayer( "PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" t )
    
14. 
    
15.         logfile = axlDMOpenLog("dir_error.log")
    
16.         fprintf(logfile "#Check the direction errores of refdes . \n\n")
    
17.         fprintf(logfile "REF_DES  COORDIRATION\n")
    
18.         
    
19.         setq(allsym axlDBGetDesign()->symbols)
    
20.         axlDehighlightObject(allsym)
    
21.         dir = nil        
    
22.         dircnt = 0
    
23. ;        noref = nil
    
24. ;        norefcnt = 0
    
25.         foreach(symbol allsym         ;n=0 ++n symbol=nthelem(n allsym)
    
26.                 text= axlDBGetAttachedText(symbol)
    
27.                 txt = nil
    
28.                 foreach(find text
    
29.                         if(find->layer == "REF DES/SILKSCREEN_TOP" ||
    
30.                         find->layer == "REF DES/SILKSCREEN_BOTTOM" then                                                                        
    
31.                                 txt = find                        
    
32.                         )                                                               
    
33.                 )
    
34. /*                if(txt == nil && symbol->refdes != nil then
    
35.                         axlHighlightObject(symbol)
    
36.                         noref = cons(symbol->refdes noref)
    
37.                         ++norefcnt
    
38.                 )
    
39. */                if(txt != nil && txt->text != nil then
    
40.                         axlMsgPut("Processing package : %s " txt->text)        
    
41.                         if(txt->layer == "REF DES/SILKSCREEN_TOP" then
    
42.                                 if(abs(txt->rotation - 0.0) < 5.0 || abs(txt->rotation - 90.0) < 5.0 ||
    
43.                                 abs(txt->rotation - 360.0) < 5.0 then
    
44.                                 x = 0
    
45.                                 else
    
46.                                         axlHighlightObject(symbol)
    
47.                                         ;dir = cons(symbol->refdes dir)
    
48.                                         fprintf(logfile "%-8s %L\n" txt->text symbol->xy)
    
49.                                         ++dircnt
    
50.                                 )
    
51.                         else if(txt->layer == "REF DES/SILKSCREEN_BOTTOM" then
    
52.                                 if(abs(txt->rotation - 0.0) < 5.0 || abs(txt->rotation - 90.0) < 5.0 ||
    
53.                                 abs(txt->rotation - 360.0) < 5.0 then
    
54.                                 x = 0
    
55.                                 else
    
56.                                         axlHighlightObject(symbol)
    
57.                                         ;dir = cons(symbol->refdes dir)
    
58.                                         fprintf(logfile "%-8s %L\n" txt->text symbol->xy)
    
59.                                         ++dircnt
    
60.                                 )
    
61.                                 )                        
    
62.                         )
    
63.                         if(txt->isMirrored == t then
    
64.                                 if(txt->parent->isMirrored != t then                                
    
65.                                         axlHighlightObject(symbol)
    
66.                                         ;dir = cons(symbol->refdes dir)
    
67.                                         fprintf(logfile "%-8s %L\n" txt->text symbol->xy)
    
68.                                         ++dircnt
    
69.                                 )
    
70.                         else
    
71.                                 if(txt->parent->isMirrored == t then
    
72.                                         axlHighlightObject(symbol)
    
73.                                         ;dir = cons(symbol->refdes dir)
    
74.                                         fprintf(logfile "%-8s %L\n" txt->text symbol->xy)
    
75.                                         ++dircnt                        
    
76.                                 )                                
    
77.                         )
    
78.                 );if_end
    
79.                
    
80.         );foreach-end
    
81. 
    
82.         fprintf(logfile "\nTotal direction error of refdes: %d\n" dircnt)
    
83.         axlDMClose(logfile)
    
84.         
    
85.         axlMsgPut("Total direction error of refdes: %d\n" dircnt)      
    
86.         axlMsgPut("Refdes direction error , please view logfile.")
    
87. ;        axlMsgPut("Total of components without refdes is : %d %L .\nDone" norefcnt noref)        
    
88. );defun_end

复制代码