TA的每日心情 | 开心 2022-12-16 15:46 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
本帖最后由 橡皮擦先生 于 2023-4-18 19:13 编辑
源码
/*
├─
│ ├─ 程序名称:格点设置
│ ├─ 程序功能:快速设置格点,可在env中设置快捷键如"funckey b Skill_grid"输入b 5即表示格点设置为5
│ └─ 执行命令:Skill_Grid+数字
├─
*/
axlCmdRegister("Skill_Grid" 'Skill_Grid ?cmdType "interactive")
procedure(Skill_Grid(@optional (grids ""))
if(grids != ""
then
gird_value = atof(grids)
if(gird_value
then
SetGridsScriptCreate(gird_value)
else
axlUIWPrint(nil "Sorry,Grid set failed,Please enter [b number] for SetGrid!")
)
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 |
|