vivienluo 发表于 2013-6-9 23:29:16

格点设置g_grids，源码分享

/****************************************************/
/*               Title :set grids                                        */
/*   Execute Command :set_grids                                        */
/*            Author :Vivien Luo                */
/*       Creation Date :2013-05-05                */
/*            Update :2013-06-09                              */
/*            Web site :www.allegro-skill.com   */
/****************************************************/

axlCmdRegister("g" 'set_grids ?cmdType "interactive")

procedure(set_grids(@optional (grids ""))
      if(grids != ""
                then
                        gird_value = atof(grids)
                        if(gird_value
                              then
                                        SetGridsScriptCreate(gird_value)
                              else
                                        axlUIWPrint(nil "Sorry,You enter the wrong grid.... Grid set failed...")
                        )
                else
                        axlUIWPrint(nil "Please Input argument...")
      );end if
);end procedure
procedure(SetGridsScriptCreate(InGrid)
      SGScriptFile = outfile("./grids.scr")
      fprintf(SGScriptFile "scriptmode +i +n\n")
      fprintf(SGScriptFile "version 15.5\n")
      fprintf(SGScriptFile "setwindow pcb\n")
      fprintf(SGScriptFile "trapsize 15382\n")
      fprintf(SGScriptFile "define grid\n")
      fprintf(SGScriptFile "setwindow form.grid\n")
      fprintf(SGScriptFile "FORM grid non_etch non_etch_x_grids %n\n" InGrid)
      fprintf(SGScriptFile "FORM grid non_etch non_etch_y_grids %n\n" InGrid)
      fprintf(SGScriptFile "FORM grid all_etch all_etch_x_grids %n\n" InGrid)
      fprintf(SGScriptFile "FORM grid all_etch all_etch_y_grids %n\n" InGrid)
      fprintf(SGScriptFile "FORM grid done\n")
      fprintf(SGScriptFile "setwindow pcb\n")
      close(SGScriptFile)
      sprintf(runScript,"replay %s","./grids.scr")
      axlShell(strcat("replay " "./grids.scr"))
      ;deleteFile("./grids.scr")
      axlVisibleUpdate(t)
      axlUIWPrint(nil "^_^ Set Grid Successful...")
);end procedure

Sun 发表于 2013-7-5 08:36:50

有源码，还是谢谢楼主了

Sun 发表于 2014-4-12 23:07:11

:lol楼主真的大方

Marcen 发表于 2014-4-17 09:40:56

谢谢楼主 :)

haitang 发表于 2014-5-7 16:40:31

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

zengweion 发表于 2014-6-6 22:51:39

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

stevenzhu 发表于 2014-11-14 17:19:36

看帖必回，楼主V5

墨客的秋天 发表于 2015-2-6 21:00:03

thanks for your sharing

289149318 发表于 2015-8-27 13:04:22

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

wuyuhe 发表于 2015-9-16 09:30:58

谢谢分享，学习了
页: [1] 2 3
查看完整版本: 格点设置g_grids，源码分享