解决放置BGA去耦电容的烦恼

chuankay

上星期向管理员承诺周日发原创帖的，这几天有点忙，一直没来得及整理，今晚弄好了贴出来给大家吐吐槽。
keen_placing.rar (3.41 KB, 下载次数: 436)

2014-2-25 23:05 上传

点击文件名下载附件
keen_placing
功能简述：Allegro放置BGA背后大量的去耦电容时，会不时的移动画布点器件snap放置，严重重复劳动；用删除器件重新放置的方法并不是最方便的。因此借鉴AD的一个布局功能，折腾了这个脚本，特点是不移动画面的情况下可以依次放置框选的器件。


使用方法：load("keen_placing.il","allegro-skill")加载il脚本，kp命令调用脚本（命令不区分大小写）。点击Select Area或按快捷键F12选择需要摆放的器件组;
点击place each或按快捷键F11依次放置器件并吸附至任意焊盘上。
附上源脚本：

1. axlCmdRegister("sp",'snap_main   ?cmdType "interactive")
   
2. 
   
3. defun( snap_main ()
   
4. 
   
5.                 formPath = "./snap.form"
   
6.                 pform = outfile( formPath "w")
   
7. 
   
8.                 fprintf(pform "FILE_TYPE=FORM_DEFN VERSION=2\n")
   
9.                 fprintf(pform "FORM\n")
   
10.                 fprintf(pform "FIXED\n")               
    
11.                 fprintf(pform "PORT 35 10\n")
    
12.                 fprintf(pform "HEADER "Snap"\n")
    
13.                 fprintf(pform "TILE\n")
    
14.                
    
15.                 fprintf(pform "FIELD sel\n")
    
16.                 fprintf(pform "FLOC 2 1\n")
    
17.                 fprintf(pform "MENUBUTTON "Select Area" 14 4\n")
    
18.                 fprintf(pform "ENDFIELD\n")
    
19.                
    
20.                 fprintf(pform "FIELD pic\n")
    
21.                 fprintf(pform "FLOC 18 1\n")
    
22.                 fprintf(pform "MENUBUTTON "Place each" 14 4\n")
    
23.                 fprintf(pform "ENDFIELD\n")
    
24.                
    
25.                 fprintf(pform "TEXT "Snap to Pin    \277\354\275\335\275\241:"\n")
    
26.                 fprintf(pform "TLOC 2 5\n")
    
27.                 fprintf(pform "ENDTEXT\n")
    
28.                
    
29.                 fprintf(pform "TEXT "Pick symbols  \277\354\275\335\275\241:"\n")
    
30.                 fprintf(pform "TLOC 2 7\n")
    
31.                 fprintf(pform "ENDTEXT\n")
    
32.                
    
33.                 fprintf(pform "TEXT "F11"\n")
    
34.                 fprintf(pform "TLOC 22 5\n")
    
35.                 fprintf(pform "OPTIONS BOLD\n")
    
36.                 fprintf(pform "ENDTEXT\n")
    
37.                
    
38.                 fprintf(pform "TEXT "F12"\n")
    
39.                 fprintf(pform "TLOC 22 7\n")
    
40.                 fprintf(pform "OPTIONS BOLD\n")
    
41.                 fprintf(pform "ENDTEXT\n")
    
42.                
    
43.                 fprintf(pform "ENDTILE\n")
    
44.                 fprintf(pform "ENDFORM\n")       
    
45.                 close(pform)
    
46.                
    
47.                 snp = axlFormCreate( (gensym) "snap.form" '(e inner) 'snpCB t nil)
    
48.                 axlFormDisplay( snp )
    
49.                 deleteFile(formPath)
    
50.                
    
51.                 axlSetFunckey("F11" "skill snap" t);吸附命令
    
52.                        
    
53.                 axlSetFunckey("F12" "skill place_each" t);放置命令
    
54.                        
    
55.                 if(car(axlDBGetDesignUnits()) == "mils"
    
56.                         then
    
57.                                 scale = 1
    
58.                         else
    
59.                                 scale = 40
    
60.                 );if
    
61.                
    
62.                 formove = nil
    
63. );defun
    
64. defun(snpCB (snp)
    
65.         func_list = axlGetFunckey(nil)
    
66.         func_list = append( axlGetAlias(nil) func_list)
    
67.         case(snp->curField
    
68.                 ("sel" axlUIWPrint(snp "select box")  SelectSym());case 1
    
69.                 ("pic" if(!formove
    
70.                                         then
    
71.                                                 axlUIWPrint(snp "Select symbols by box")
    
72.                                         else
    
73.                                                 if(I != 0   /* box = axlLastPick(nil) */ lastbox = axlWindowBoxGet())
    
74.                                                 place_each()
    
75.                                 );if
    
76.                 );case 2
    
77.         );case
    
78.         when(snp->doneState == 3
    
79.                 axlSetFunckey("F11"  "zoom in" t);吸附命令
    
80.                 axlSetFunckey("F12"  "zoom out" t);放置命令
    
81.         );when
    
82.                
    
83. );defun
    
84. defun(SelectSym ()
    
85.         I = 0;
    
86.         axlClearSelSet()
    
87.         axlSetFindFilter(?enabled list( "noall" "symbols" ) ?onButtons list( "noall" "symbols"))
    
88. 
    
89.         ;axlSelect(?groupMode nil ?prompt nil)
    
90.         axlAddSelectBox()
    
91.         syms = axlGetSelSet()
    
92.         formove = nil
    
93.         foreach(db syms
    
94.                 formove = append1(formove db->refdes)
    
95.         );foreach
    
96.         axlUIWPrint(snp sprintf(nil "%d symbols are ready for placing!" length(syms)))
    
97. );defun
    
98. 
    
99. 
    
100. defun(place_each ()
     
101. prog(()
     
102.         unless(formove return("select box first"))
     
103.         if(I != 0 then /* box = axlLastPick(nil) */ lastbox = axlWindowBoxGet())
     
104.         active = car(formove)
     
105.         formove = cdr(formove)
     
106.         if(active
     
107.                 then
     
108.                         axlShell("move")
     
109.                         axlShell("setwindow form.mini")
     
110.                         axlShell("FORM mini rotate_point Sym Pin # ")
     
111.                         axlShell("setwindow form.find")
     
112.                         axlShell("FORM find name_type Symbol (or Pin)")
     
113.                         axlShell(sprintf(nil "FORM find find_name %s" active))
     
114.                        
     
115.                         when(I != 0       
     
116.                                 axlWindowBoxSet(lastbox)       
     
117.                         );when       
     
118.        
     
119.                         I++;
     
120.                         axlUIWPrint(snp sprintf(nil "%d/%d symbols statue!" I ,length(syms)))
     
121.         );if
     
122. );prog
     
123. );        defun
     
124. 
     
125. defun(snap ()
     
126.         cursor = axlCursorGet(nil)
     
127.         axlShell(sprintf(nil "prepopup %L" cursor))
     
128.         axlShell("pop dyn_option_select 'Snap pick to@:@Pin'")
     
129.         ;axlShell("pop dyn_option_select 'Snap pick to@:@Segment Vertex'")
     
130. );defun

复制代码

xibiandeyu

這侽孓譙悴丶 发表于 2014-4-15 12:37
我是用15.5.1加载的，这个是什么功能的，楼主说的什么移动画布点器件snap放置 没能懂什么意思···

不用移动画面，可以自动将去耦电容调过来。比方说在大的BGA背面摆放较多的去耦电容时，通常情况是在BGA背面摆放一颗电容后需要移开BGA画面再去找下一颗电容，然后再回到BGA画面来摆放，依次反复。这个skill可以让你一直在BGA的画面自动帮你把电容一颗颗调过来。

owencai

这么好原创！强烈支持，楼主强悍！
谢谢分享!

vivienluo

多谢分，功能不错。

冷青瓷

下载了，支持

冷青瓷

加载是正确的，输入命令却错了nil

冷青瓷

正确了，双显，输入命令后弹到另一个显示器了，怪不得没找到

long0857

AD里面这个功能确实挺好用的。奈何不少公司不接受AD。

sisic

謝謝分享喔

jackzz

AD里面这个功能确实挺好用的。奈何不少公司不接受AD
一直最卡

375259768

感谢分享。