自动导出封装焊盘、DEVICE、SYMBOL的SKILL

yixin0929

这个要怎么用，输入create_device_batch回车后没有导出来，是怎么回事？还要框选所有器件吗？框选了以后也还是不行呀？急用呢

Joyi

不错这东西，谢谢

清枫罄影

感谢分享

candy

很方便,谢谢

tusli2022

学习一下

tusli2022

学习一下

allegro小王子

这个两个命令都试了，都不能连续的运行下去处理整个文件见内的封装，只能复制，粘贴回车，

xieeyawen

这个路径吗

xieeyawen

1. /********************************************************/
   
2. /*               Title :  Add Symbol Value                                */
   
3. /*     Execute Command :  add_symbol_value                               */
   
4. /*              Author :  VivienLuo                                */
   
5. /*       Creation Date :  2013-07-16                        */
   
6. /*                       Update :                                    */
   
7. /********************************************************/
   
8. 
   
9. axlCmdRegister("create_device" 'add_value_device ?cmdType "general")
   
10. axlCmdRegister("create_device_batch" 'create_device_batch ?cmdType "general")
    
11. 
    
12. defun( create_device_batch ()
    
13.         libFiles = getDirFiles("./")  ;获得根目录下的directories文件（即封装文件）的列表，文件元素是字符串的形式
    
14.         ;例如("BGA.bsm" "L2.ssm" "msapvia1_6.pad" "1.pcb" "BGA.dra" "L2.dra")
    
15.         draFiles = nil  
    
16.         foreach(libFile libFiles
    
17.                 when(car(last(parseString(libFile ".")))== "dra"
    
18.                 ;parseString(libFile ".")             =>("BGA" "dra")
    
19.                 ;last(parseString(libFile "."))       =>("dra")
    
20.                 ;car(last(parseString(libFile ".")))  =>"dra"
    
21.                         draFiles = cons(libFile draFiles);  =>draFiles=("BGA.dra")   cons在列表开头增加字符串,即在nil列表前加字符串"BGA.bsm"
    
22.                 )
    
23.         )
    
24.         foreach(draFile draFiles
    
25.                 axlOpenDesign(?design draFile ?mode "wf")
    
26.                 /******
    
27. axlOpenDesign(
    
28. ?design t_design
    
29. ?mode t_mode
    
30. ?noMru g_noMru
    
31. )
    
32. ? t_design/nil
    
33.     ******/
    
34.                 ;打开设计，新设计代替旧设计，新设计的名字就是draFile即"BGA.dra".
    
35.                 ;"w"或"wf" (see above)；加 "l"禁用Allegro文件锁定。例如: "wl" 表示无锁定
    
36.                 add_value_device() ;调用
    
37.         );end foreach       
    
38.         axlShell("unset noconfirm")
    
39. );end defun
    
40. 
    
41. defun( add_value_device ()
    
42.         axlShell("set noconfirm");设置不确认 =>t
    
43.         ;(axlShell "status") PCB的状态栏
    
44.         ;(axlShell "dlib") 导出封装的功能。
    
45.         ;axlShell类似于在command模式下输入函数快捷键，调用allegro的功能函数
    
46.        
    
47.         designType = axlDesignType(t) ;Allegro的设计软件的模式
    
48.         case(designType
    
49.                 ("PACKAGE"  ;PACKAGE模式下
    
50.                         crete_device_run(strcat(axlCurrentDesign() ".psm"))
    
51.                         ;比如axlCurrentDesign()路径下有156um_coupon.dra和156um_coupon.psm就执行crete_device_run (fileName)
    
52.                         axlPadstackToDisk()
    
53.                 )
    
54.                 ("MECHANICAL"
    
55.                         crete_device_run(strcat(axlCurrentDesign() ".bsm"))
    
56.                 )
    
57.                 ("FORMAT"
    
58.                         crete_device_run(strcat(axlCurrentDesign() ".osm"))
    
59.                 )
    
60.                 ("SHAPE"
    
61.                         crete_device_run(strcat(axlCurrentDesign() ".ssm"))
    
62.                 )
    
63.                 ("FLASH"
    
64.                         crete_device_run(strcat(axlCurrentDesign() ".fsm"))
    
65.                 )
    
66.         )               
    
67.         axlShell("replay "./create_device.scr"")               
    
68.         ;axlSaveDesign(?design axlCurrentDesign())        ;保存PCB文件
    
69.         axlShell("unset noconfirm") ;不设置不确认 =>t
    
70. );end defun
    
71. 
    
72. defun( crete_device_run (fileName)
    
73.         saveScript = outfile("./create_device.scr")
    
74.         fprintf(saveScript "scriptmode +i +n\n")  ;scriptmode后面，有[- +]  ，"+"来启用选项，"-"用来恢复默认值，如果不设置，默认
    
75.         ;options 选项可以填完整参数名，或者参数的第一个字符。比如"scriptmode +invisible"等效于"scriptmode +i
    
76. /***********************************************************************
    
77. 下面是各个参数的详细说明
    
78. -/+ f (flush) :当执行record时，每个命令将写入到磁盘脚本文件中，如果禁用（使用 ”-“ 默认值，会得到更好的性能），当磁盘满时，或脚本终止，会写入内存缓冲区。"+"开，"-" 关(默认).
    
79. -/+ b (beep):当脚本执行时，是否开关系统的各种提示音。"+"开，"-" 关(默认).
    
80. -/+ c (continue):当遇到脚本文件中的错误时，是否继续执行。"+"开，"-" 关(默认).
    
81. -/+ e (echo):在replay过程中，脚本是否回应到相应窗口再执行命令。"+"开，"-" 关(默认).
    
82. -/+ i (invisible):在replay过程中，是否显示script脚本中调用到的FORM窗口。"+"不显示FORM，"-" 显示(默认).
    
83. -/+ n (noinfo):如果打开，在命令栏窗口中不会打印replay过程的消息。对警告和错误消息无效。"+"开，"-" 关(默认).
    
84. -/+ s (step):单步执行script。在replay过程中，每执行完一个命令时，script会暂时中止，然后等待用户单击一下鼠标，或敲下键盘的按键进行下一个命令。"+"开，"-" 关(默认).
    
85. -/+ w (warnerror): 是否阻止警告和错误信息。"+"开，"-" 关(默认).
    
86. 例子：
    
87. scriptmode +i                    replay过程中所有调用到的FORM都不显示
    
88. scriptmode +n                    script执行过程中，不显示所有的提示信息。比如 Script version: xx.x
    
89. scriptmode +i  +n （推荐）       script执行过程中不显示form，也不显示提示信息。
    
90. ************************************************************************/       
    
91.         fprintf(saveScript "version 15.51\n")
    
92.         fprintf(saveScript "setwindow pcb\n")
    
93.         fprintf(saveScript "trapsize 666\n")
    
94.         fprintf(saveScript "create device\n")  ;Package模式下的Create Device功能
    
95.         fprintf(saveScript "setwindow form.crdevice\n")
    
96.         fprintf(saveScript "FORM crdevice done\n")
    
97.         fprintf(saveScript "create symbol\n")
    
98.         fprintf(saveScript "fillin %s\n" fileName) ;保存为fileName 目标文件名
    
99.         close(saveScript)
    
100. );end defun

复制代码

把代码研究了下并做了注释，写的非常好，适合学习。但是功能好像用处没看出来。

下面是我写的导出pad封装的代码，总有些问题

1. procedure(exportvpad()
   
2. prog(()
   
3.                 ;FormPathXX=strcat((axlGetVariable "cdsroot") "\\share\\pcb\\text\\forms")
   
4.                 ;FormPathXX=buildString(parseString(FormPathXX "\") "/")
   
5.                 ;dlib_form_file=sprintf(nil "%s\\dlib.form" FormPathXX)
   
6.                 ;dlib_form=axlMiniStatusLoad( (gensym) dlib_form_file 'dlib t)
   
7.                 out = outfile("./export_padstack.scr") ;打开端口，创建一个scr文件在当前的工作目录，令这个文件赋给out
   
8.                 fprintf(out "setwindow pcb\n")
   
9.                 fprintf(out "generaledit\n")
   
10.                 fprintf(out "dlib\n")
    
11.                 fprintf(out "setwindow form.dlib\n")
    
12.                 fprintf(out "FORM dlib none\n") ;
    
13.                 fprintf(out "FORM dlib pad YES\n") ;
    
14.                 fprintf(out "FORM dlib browse_export\n") ;
    
15.    ;fprintf(out "fillin VIA\n")  ;放在根目录的VIA文件夹下
    
16.           fprintf(out "fillin ./\n")  ;放在根目录文件夹下
    
17.                 fprintf(out "FORM dlib execute\n") ;
    
18.                 fprintf(out "FORM dlib cancel\n") ;
    
19.                 fprintf(out "setwindow pcb\n") ;
    
20.                 fprintf(out "generaledit\n") ;配置完成
    
21.                 close(out)  ;关闭端口
    
22.                 axlShell("replay ./export_padstack.scr")       
    
23. );endprog
    
24. );endprocedure
    
25. 
    
26. procedure(_del_pcbfile()
    
27. prog(()
    
28. shell("
    
29.                 del /f /s /q  *.dra
    
30.                 del /f /s /q  *.pad
    
31.                 del /f /s /q  *.log
    
32.                 del /f /s /q  *.scr
    
33.                 rd /s /q Indesign
    
34.                 rd /s /q signoise.run
    
35.         ")       
    
36. );endprog
    
37. );endprocedure

复制代码

我写的代码调用后总提示找不到界面，就会报错E- Can't find window; form.dlib。请楼主帮忙看看是什么原因啦