分享原创SKILL：快速设置格点

langexie

这个太好用了，又是Skill学习的好例子

langexie

为何开始用得，过几天又变成以下错误了呀？
E- *Error* runscr: too many arguments (1 expected, 2 given) - ("5" "5")

langexie

为何开始用得，过几天又变成以下错误了呀？
E- *Error* runscr: too many arguments (1 expected, 2 given ...
langexie 发表于 2010-5-15 09:13

    已解决！

moping

学习了
版主很有实力

pjh02032121

兄弟给你改改;
可输入4个参数,依次对应如下格点:
non_etch_x_grids
non_etch_y_grids
all_etch_x_grids
all_etch_y_grids

命令格式:g  3 3 5 5
若某一格点保持不变,则对应的参数为任意字符:
such as: g 6 m k 9
such as: g 7 8
such as: g 6 y 8

看看源文件就知道怎么用了.




axlCmdRegister( "g" 'x_grid)

defun( x_grid (@optional (n_ex "") (n_ey "") (a_ex "") (a_ey ""))

        if( ((n_ex != "")||(n_ey != "")||(a_ex != "")||(a_ey != ""))
        then runscr(n_ex n_ey a_ex a_ey)
        else axlShell("define grid"))
       
        )

defun( runscr (n_ex n_ey a_ex a_ey)

ScriptFileName=axlTempFile()
fp=axlDMOpenFile("ALLEGRO_SCRIPT", ScriptFileName, "w")

fprintf(fp "scriptmode +i\n\n")
fprintf(fp "setwindow pcb\n")
fprintf(fp "define grid \n")
fprintf(fp "setwindow form.grid\n")
if((n_ex != "") fprintf(fp "FORM grid non_etch non_etch_x_grids %L \n" n_ex))
if((n_ey != "") fprintf(fp "FORM grid non_etch non_etch_y_grids %L \n" n_ey))
if((a_ex != "") fprintf(fp "FORM grid all_etch all_etch_x_grids %L \n" a_ex))
if((a_ey != "") fprintf(fp "FORM grid all_etch all_etch_y_grids %L \n" a_ey))
fprintf(fp "FORM grid done \n")

axlDMClose(fp)
sprintf(runScript,"replay %s",ScriptFileName)
axlShell(runScript)

)

osinfo

放安装目录下
C:\Cadence\SPB_15.7\Share\pcb\etc\skill

在弄个配置文件, allegro.ilinit
      写 ...
superlish 发表于 2008-4-24 13:47

    我的安装路径下是：C:\Cadence\SPB_15.7\Share\pcb\etc\context的文件夹，没有skill这个文件夹，是要自己建一个吗？而这个allegro.ilinit 文件在home路径下的pcbenv里有，是不是编写这个就可以啊？

sxlwzl

楼主解说的不明确呀？

moybe

LZ是个好人

jiankangshiye

如何自己实现弹出color按钮后的那个界面，并实现它的各个功能。给个思路，也可以。

cxyjoe

谢谢楼主　　好东西大家分享！

fxxxysh

谢谢楼主  有没有加载封装库路径的SKILL?

Mako

万分感谢！终于可以设置任意格点了！

gpxknk

xiáò虫 发表于 2008-4-21 10:53
不知道在 ALLEGRO上面怎么实现这个，g5就 5的格点，g10就 10的 格点，是不是要设置脚本什么的 啊 、？望高手 ...

;---------------------------------------------------------------
axlCmdRegister("命令" '函数名)
procedure( 函数名( @optional (可选参数 参数值))
prog( ()
        return(nil)
);prog
);procedure

;---------------------------------------------------------------
这样不就是可以在命令中加参数了嘛

kay

太好了 建库用最好

chptbob

謝謝~~~~~~~~收下測試成功