前段时间应LEADER要求写个出bom的批处理，代码运行有疑问，请大家帮忙分析一下。

chuankay

事出有因——
由于brd文件数量几百个，因此花了一个下午写个批处理的代码，就是打开一个文件夹下的brd文件，敲个命令就会出当前文件下所有的报告（当然也可以是其他路径的文件）。代码是用函数命令行scr脚本文件结合实现功能的，出现错误我也不清楚。

问题1——当在CIW环境执行‘bom命令时出现如下错误：

出现错误，如下，window；text是脚本中的语句。
W- Cannot exit current applicationE- Can't find window; text


问题2——当在development环境下执行’bom命令后

竟然无错，并可出xls报表，谁能解释一下是什么原因？
目前代码也就将就用了 只是代码命令变为 开发包模式的 ‘skill bom

代码——

axlCmdRegister("bom" , 'bom)
defun(bom ()
        suff = nil
        file_name = nil
        xls_name = nil
        file_list = nil
        file_list1 = nil

        file_list = getDirFiles("./")
        foreach(db file_list
                suff = last(parseString( db "." ))
                if( car(suff) == "brd"
                        then
                        file_list1 = tconc(file_list1 db)
                )
        )        
        file_list1 = car(file_list1)               
        foreach(db0 file_list1
                curren_design = axlCurrentDesign()
                curren_design = buildString(list(curren_design ".brd") "")
                unless(db0 == curren_design
                                axlOpenDesignForBatch( db0  "wf")
                                file_name = axlCurrentDesign()
                                xls_name  = buildString( list("fillin" " " "\"" file_name "." "xls" "\"" "\n") "")
                                script_write(xls_name)
                                axlShell("replay ./123.scr" )
                                ;deleteFile(Path)
                )
        );foreach
);defun

defun( script_write (xls_name)
Path = "./123.scr"
        pOut = outfile(Path "w")
        fprintf( pOut "version 16.5\n")
        fprintf( pOut "setwindow pcb\n")
        fprintf( pOut "trapsize 974584\n")
        fprintf( pOut "generaledit\n")
        fprintf( pOut "reports \"Bill of Material Report\"\n")
        fprintf( pOut "generaledit\n")
        fprintf( pOut "setwindow text\n")
        fprintf( pOut "save\n")
        fprintf( pOut xls_name)
        fprintf( pOut "setwindow text\n")
        fprintf( pOut "close\n")
        fprintf( pOut "setwindow pcb\n")
        close(pOut)
);

vivienluo

请将命令注册改为以下内容，问题即可解决

1. axlCmdRegister("bom" 'bom ?cmdType "general")

复制代码

在需要调用script中，最好使用"general" ，"general" 是立即执行命令。你那个出现的错误主要就是由于没有将report窗口打开。

你可以参看下axlCmdRegister函数。。。。

{:soso_e113:}

有问题多多交流哈。。。。

chuankay

vivienluo 发表于 2013-5-19 01:16
请将命令注册改为以下内容，问题即可解决在需要调用script中，最好使用"general" ，"general" 是立即执行命 ...

{:soso_e179:}  多谢多谢！ vivenluo见解独到 ！
刚是了一下，果然问题解决，而且可以顺利出xls bom，一直以为是skill命令与脚本不和，看来我想的不全面。
解决了困扰我一个多月的疑问，不仅是这一段短代码，本来可以用脚本更简单实现的代码都因此而放弃使用了。

vivienluo

{:soso_e100:}

wisology

都现在了，我很刻苦啊

289149318

vivienluo 发表于 2013-5-19 01:16
请将命令注册改为以下内容，问题即可解决在需要调用script中，最好使用"general" ，"general" 是立即执行命 ...

真厉害，学习了

wintonlee

真的是解决了现实中的问题

XWZJWWSZ

马克一下，多谢分享

yfchen1003

学习了, 谢谢分享