格点设置g_grids，源码分享

vivienluo

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. /*            Web site :  www.allegro-skill.com     */
   
8. /****************************************************/
   
9. 
   
10. axlCmdRegister("g" 'set_grids ?cmdType "interactive")
    
11. 
    
12. procedure(set_grids(@optional (grids ""))
    
13.         if(grids != ""
    
14.                 then
    
15.                         gird_value = atof(grids)
    
16.                         if(gird_value
    
17.                                 then
    
18.                                         SetGridsScriptCreate(gird_value)
    
19.                                 else
    
20.                                         axlUIWPrint(nil "Sorry,You enter the wrong grid.... Grid set failed...")
    
21.                         )
    
22.                 else
    
23.                         axlUIWPrint(nil "Please Input argument...")
    
24.         );end if
    
25. );end procedure
    
26. procedure(SetGridsScriptCreate(InGrid)
    
27.         SGScriptFile = outfile("./grids.scr")
    
28.         fprintf(SGScriptFile "scriptmode +i +n\n")
    
29.         fprintf(SGScriptFile "version 15.5\n")
    
30.         fprintf(SGScriptFile "setwindow pcb\n")
    
31.         fprintf(SGScriptFile "trapsize 15382\n")
    
32.         fprintf(SGScriptFile "define grid\n")
    
33.         fprintf(SGScriptFile "setwindow form.grid\n")
    
34.         fprintf(SGScriptFile "FORM grid non_etch non_etch_x_grids %n\n" InGrid)
    
35.         fprintf(SGScriptFile "FORM grid non_etch non_etch_y_grids %n\n" InGrid)
    
36.         fprintf(SGScriptFile "FORM grid all_etch all_etch_x_grids %n\n" InGrid)
    
37.         fprintf(SGScriptFile "FORM grid all_etch all_etch_y_grids %n\n" InGrid)
    
38.         fprintf(SGScriptFile "FORM grid done\n")
    
39.         fprintf(SGScriptFile "setwindow pcb\n")
    
40.         close(SGScriptFile)
    
41.         sprintf(runScript,"replay %s","./grids.scr")
    
42.         axlShell(strcat("replay " "./grids.scr"))
    
43.         ;deleteFile("./grids.scr")
    
44.         axlVisibleUpdate(t)
    
45.         axlUIWPrint(nil "^_^ Set Grid Successful...")
    
46. );end procedure

复制代码

Sun

有源码，还是谢谢楼主了

Sun

楼主真的大方

Marcen

谢谢楼主

haitang

楼主好友爱，谢谢啦O(∩_∩)O~~~

zengweion

看看，觉得还不错，学习中

stevenzhu

看帖必回，楼主V5

墨客的秋天

thanks for your sharing

289149318

fprintf(SGScriptFile "define grid\n")     fprintf(SGScriptFile "setwindow form.grid\n") 你好，这句话是打开设置GRID的窗口的功能么

wuyuhe

谢谢分享，学习了