格点设置g_grids，源码分享

萌图

1. /****************************************************/
   
2. /*               Title :  set grids                                        */
   
3. /*     Execute Command :  set_grids                                        */
   
4. /*              Author :  Vivien Luo                */
   
5. /*       Creation Date :  2013-05-05                */
   
6. /*              Update :  2013-06-09                                */
   
7. /****************************************************/
   
8. 
   
9. axlCmdRegister("g" 'set_grids ?cmdType "interactive")
   
10. 
    
11. procedure(set_grids(@optional (grids ""))
    
12.         if(grids != ""
    
13.                 then
    
14.                         gird_value = atof(grids)
    
15.                         if(gird_value
    
16.                                 then
    
17.                                         SetGridsScriptCreate(gird_value)
    
18.                                 else
    
19.                                         axlUIWPrint(nil "Sorry,You enter the wrong grid.... Grid set failed...")
    
20.                         )
    
21.                 else
    
22.                         axlUIWPrint(nil "Please Input argument...")
    
23.         );end if
    
24. );end procedure
    
25. procedure(SetGridsScriptCreate(InGrid)
    
26.         SGScriptFile = outfile("./grids.scr")
    
27.         fprintf(SGScriptFile "scriptmode +i +n\n")
    
28.         fprintf(SGScriptFile "version 15.5\n")
    
29.         fprintf(SGScriptFile "setwindow pcb\n")
    
30.         fprintf(SGScriptFile "trapsize 15382\n")
    
31.         fprintf(SGScriptFile "define grid\n")
    
32.         fprintf(SGScriptFile "setwindow form.grid\n")
    
33.         fprintf(SGScriptFile "FORM grid non_etch non_etch_x_grids %n\n" InGrid)
    
34.         fprintf(SGScriptFile "FORM grid non_etch non_etch_y_grids %n\n" InGrid)
    
35.         fprintf(SGScriptFile "FORM grid all_etch all_etch_x_grids %n\n" InGrid)
    
36.         fprintf(SGScriptFile "FORM grid all_etch all_etch_y_grids %n\n" InGrid)
    
37.         fprintf(SGScriptFile "FORM grid done\n")
    
38.         fprintf(SGScriptFile "setwindow pcb\n")
    
39.         close(SGScriptFile)
    
40.         sprintf(runScript,"replay %s","./grids.scr")
    
41.         axlShell(strcat("replay " "./grids.scr"))
    
42.         ;deleteFile("./grids.scr")
    
43.         axlVisibleUpdate(t)
    
44.         axlUIWPrint(nil "^_^ Set Grid Successful...")
    
45. );end procedure

复制代码