求Assign RefDes的skill

longzhiming99

一块LED显示板，板上有4096颗IC，位置固定不能变，所以采用先复制一次性放LED再导放网表再Assign RefDes，发现只能一个一个去点，那要点什么时候，我发现点一行都很累， 为什么不能拖选一行或一列呢？求能拖选一行和列的skill，谢谢，谢谢！

XYX365

請問你的零件編號是從左上角往右排多少個LED?

我的想法是已知零件放的位置,再使用skill寫一個迴路,並擺放好.

longzhiming99

XYX365 发表于 2015-12-3 16:42
請問你的零件編號是從左上角往右排多少個LED?

我的想法是已知零件放的位置,再使用skill寫一個迴路,並擺 ...

从左到右，从上到下，间距列5mm, 行2.5mm ；是32行X128列，谢谢

XYX365

longzhiming99 发表于 2015-12-3 19:21
从左到右，从上到下，间距列5mm, 行2.5mm ；是32行X128列，谢谢

你試試看下列代碼

1. ;Place LED symbols
   
2. ;load("fPlaceLEDSymbols.il")
   
3. ;Command>pls
   
4. 
   
5. axlCmdRegister("pls" 'fnPlaceLEDSymbols)
   
6. 
   
7. procedure(fnPlaceLEDSymbols()
   
8.         prog(()
   
9.                 nOrginX = 0.0
   
10.                 nOrginY = 0.0
    
11.                 xRow = 32
    
12.                 xColumn = 128
    
13.                 nRowSpace = 2.5
    
14.                 nColumnSpace = 5.0
    
15.                 lRefdes = nil
    
16.                 ;lComps 存放所有沒有擺放的零件編號
    
17.                 lComps = setof(x axlDBGetDesign()->components !(x->symbol))
    
18.                 foreach(dComp lComps ;dComp = nth(0 lComps)
    
19.                         lRefdes = cons(list(dComp->name dComp->package) lRefdes)
    
20.                 )
    
21.                 lRefdes = sortcar(lRefdes 'axlStrcmpAlpNum)
    
22.                 xIndex = 1
    
23.                 nSymX = nOrginX
    
24.                 nSymY = nOrginY
    
25.                 for(xY 0 xColumn-1
    
26.                         nSymX = nOrginX
    
27.                         nSymY =  nOrginY - (xY * nColumnSpace)
    
28.                         for(xX 0 xRow-1
    
29.                                 tRefdes = car(nthelem(xIndex lRefdes))
    
30.                                 tPackage = cadr(nthelem(xIndex lRefdes))
    
31.                                 nSymX = nSymX + nRowSpace
    
32.                                 ;printf("tRefdes=%L,X=%L,Y=%L\n" tRefdes nSymX nSymY)
    
33.                                 axlDBCreateSymbol(list(tPackage "package" tRefdes) nSymX:nSymY)
    
34.                                 ;axlDBCreateSymbol(tRefdes nSymX:nSymY)
    
35.                                 xIndex++
    
36.                         )
    
37.                 )
    
38.         )
    
39. )

复制代码

longzhiming99

XYX365 发表于 2015-12-4 08:29
你試試看下列代碼

感谢大大，我本身没学过skill代码，是存为.il文件然后加载，命令是pls对吧，我试试，摸索摸索，谢谢。

XYX365

longzhiming99 发表于 2015-12-4 09:20
感谢大大，我本身没学过skill代码，是存为.il文件然后加载，命令是pls对吧，我试试，摸索摸索，谢谢。

是存為fPlaceLEDSymbols.il檔案

• load("fPlaceLEDSymbols.il") ;在allegro.ilinit裡面加入此行
• 執行命令 pls
  

longzhiming99

XYX365 发表于 2015-12-4 09:28
是存為fPlaceLEDSymbols.il檔案

哦，好的。我刚才存不了il，还是txt。我再试试

longzhiming99

XYX365 发表于 2015-12-4 08:29
你試試看下列代碼

感谢，已经加载成功，但还请大大再帮修改： 我习惯长方形的板是如下图所示，现在这个skill方向和我的板不一致

longzhiming99

XYX365 发表于 2015-12-4 08:29
你試試看下列代碼

还有，我需求的是 行128,这时序号是LED1~LED128, 下一行才再从LED129……这样。不知是否已经是这样，因为现在方向一致我有点看不出来

longzhiming99

XYX365 发表于 2015-12-4 08:29
你試試看下列代碼

如果你忙，我先试着自己改改，谢谢

XYX365

longzhiming99 发表于 2015-12-4 09:50
感谢，已经加载成功，但还请大大再帮修改： 我习惯长方形的板是如下图所示，现在这个skill方向和我的板不 ...

你只要修改第11和12行,的數字32和128互換就好

•                 xRow = 32  ---> 改為 128
•                 xColumn = 128 ---> 改為 32
  

longzhiming99

XYX365 发表于 2015-12-4 09:58
你只要修改第11和12行,的數字32和128互換就好

                xRow = 32  ---> 改為 128

好的

longzhiming99

XYX365 发表于 2015-12-4 09:58
你只要修改第11和12行,的數字32和128互換就好

                xRow = 32  ---> 改為 128

已经成功使用，感谢，比手工点好上4096倍

longzhiming99

XYX365 发表于 2015-12-4 09:28
是存為fPlaceLEDSymbols.il檔案

已使用，如果能设定自动摆在Bottom层还是top层就更完美了。不过摆完mirror一下也还算不是难事