【分享源代碼】复位Assembly Refdes 到零件中心

XYX365

【分享源代碼】复位Assembly Refdes 到零件中心

;
; File name: fMAR.il
; Description : move assembly refdes to center
; Load : load(fMAR.il)
; COmmand : mar
;
; 使用方式:
;        1.執行mar
;        2.會提示 "Do you want reset all assembly refdes location?" , 按下"Yes" 就執行, "No" 取消
;
; 程式特色:
;        1.源代碼分享,讓所有人都可以依照自己的方式加入其他功能,
;                例如加入使用Option,並增加選擇其他refdes或文字
;                或是加入只處理選擇的文字.
;                或是其他功能,自己想像.

1. ;
   
2. ; File name: fMAR.il
   
3. ; Description : move assembly refdes to center
   
4. ; Load : load(fMAR.il)
   
5. ; COmmand : mar
   
6. ;
   
7. ; 使用方式:
   
8. ;        1.執行mar
   
9. ;        2.會提示 "Do you want reset all assembly refdes location?" , 按下"Yes" 就執行, "No" 取消
   
10. ;
    
11. ; 程式特色:
    
12. ;        1.源代碼分享,讓所有人都可以依照自己的方式加入其他功能,
    
13. ;                例如加入使用Option,並增加選擇其他refdes或文字
    
14. ;                或是加入只處理選擇的文字.
    
15. ;                或是其他功能,自己想像.
    
16. axlCmdRegister("mar" 'fnMoveAssemblyRefdes)
    
17. procedure(fnMoveAssemblyRefdes()
    
18.         prog((dSymbol lSymBox nSymLeftX nSymLeftY nSymRightX nSymRightY nCompCenterX nCompCenterY
    
19.                 lTextBbox nTxtLeftX nTxtLeftY nTxtRightX nTxtRightY nTextCenterX nTextCenterY)
    
20.                 unless(axlOKToProceed()
    
21.                         axlUIConfirm("Please Finish current command!")
    
22.                         return(nil)
    
23.                 )
    
24.                 unless(axlUIYesNo("Do you want reset all assembly refdes location?" nil 'no)
    
25.                         return(nil)
    
26.                 )
    
27.                 ;只顯示Outline,Assembly的refdes和外框
    
28.                 axlVisibleDesign(nil)
    
29.                 axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
    
30.                 axlVisibleLayer("REF DES/ASSEMBLY_TOP" t)
    
31.                 axlVisibleLayer("REF DES/ASSEMBLY_BOTTOM" t)
    
32.                 axlVisibleLayer("PACKAGE GEOMETRY/ASSEMBLY_TOP" t)
    
33.                 axlVisibleLayer("PACKAGE GEOMETRY/ASSEMBLY_BOTTOM" t)
    
34.                 axlVisibleUpdate(t)
    
35.                
    
36.                 foreach(dComp axlDBGetDesign()->components
    
37.                         dSymbol = dComp->symbol
    
38.                         when(dSymbol
    
39.                                 foreach(dRefdes axlDBGetAttachedText(dSymbol)
    
40.                                         ;判斷refdes的層面
    
41.                                         when((dRefdes->layer == "REF DES/ASSEMBLY_TOP") || (dRefdes->layer == "REF DES/ASSEMBLY_BOTTOM")
    
42.                                                 when(dRefdes->text == dComp->name
    
43.                                                         lSymBox = fnGetSymbolBbox(dComp->symbol)
    
44.                                                         when(lSymBox
    
45.                                                                 nSymLeftX = xCoord(lowerLeft(lSymBox))
    
46.                                                                 nSymLeftY = yCoord(lowerLeft(lSymBox))
    
47.                                                                 nSymRightX = xCoord(upperRight(lSymBox))
    
48.                                                                 nSymRightY = yCoord(upperRight(lSymBox))
    
49.                                                                 nCompCenterX = (nSymRightX + nSymLeftX) / 2.0
    
50.                                                                 nCompCenterY = (nSymRightY + nSymLeftY) / 2.0
    
51.                                                                 lTextBbox = dRefdes->bBox
    
52.                                                                     nTxtLeftX = xCoord(lowerLeft(lTextBbox))
    
53.                                                                 nTxtLeftY = yCoord(lowerLeft(lTextBbox))
    
54.                                                                 nTxtRightX = xCoord(upperRight(lTextBbox))
    
55.                                                                 nTxtRightY = yCoord(upperRight(lTextBbox))
    
56.                                                                 nTextCenterX = (nTxtRightX + nTxtLeftX) / 2.0
    
57.                                                                 nTextCenterY = (nTxtRightY + nTxtLeftY) / 2.0
    
58.                                                                 axlTransformObject(dRefdes ?move list((nCompCenterX - nTextCenterX) (nCompCenterY - nTextCenterY)))
    
59.                                                         )
    
60.                                                 )
    
61.                                         )
    
62.                                 )
    
63.                         )
    
64.                 )
    
65.                 return(t)
    
66.         )
    
67. )
    
68. procedure(fnGetSymbolBbox(dSymbol) ;取得Symbol裡面 PLACE_BOUND_TOP or BOTTOM 的 bbox的大小
    
69.         prog((lLayers)
    
70.                 unless(dSymbol->objType == "symbol"
    
71.                         return(nil)
    
72.                 )
    
73.                 lLayers = setof(x dSymbol->children ((x->layer == "PACKAGE GEOMETRY/PLACE_BOUND_TOP") || (x->layer == "PACKAGE GEOMETRY/PLACE_BOUND_BOTTOM")))
    
74.                 foreach(dOne lLayers
    
75.                         if(dOne->isMirrored then
    
76.                                 when((dOne->objType == "shape")
    
77.                                         return(dOne->bBox)
    
78.                                 )
    
79.                         else
    
80.                                 when((dOne->objType == "shape")
    
81.                                         return(dOne->bBox)
    
82.                                 )
    
83.                         )
    
84.                 )
    
85.                 axlMsgPut(sprintf(nil "E-%L:%L can not find Place_Bound!" dSymbol->refdes dSymbol->name))
    
86.                 return(nil)
    
87.         )
    
88. )

复制代码

361553894

procedure(SymCenter(@optional (sym nil))
prog( (pins Xs Ys X Y)
when(stringp(sym) sym = car(axlSelectByName("REFDES" sym)))
unless(sym
  axlSetFindFilter(?enabled '("all") ?onButtons '("noall" "symbols"))
  sym = car(axlGetSelSet(axlSingleSelectPoint()))
)
unless(sym return(nil))
pins = sym->pins
Xs = nil, Ys = nil
foreach(pin pins
  Xs = append1(Xs car(pin->xy))
  Ys = append1(Ys cadr(pin->xy))
)
Xs = unique(Xs), Ys = unique(Ys)
X = 0.0, Y = 0.0
foreach(x Xs
  X = X + x
)
X = X / length(Xs)
foreach(y Ys
  Y = Y + y
)
Y = Y / length(Ys)
return(list(X,Y))
))
这是我写的获取零件中心的Skill

XYX365

liujie123 发表于 2016-3-1 09:30
我把fMAR.il文件放在pcbenv路径下，然后在allegro.ilinit里加上load(fMAR.il)
为什么我在PCB中执行mar 提 ...

應該是在allegro.ilinit裡面加入 load("fMAR.il")
是我說明裡面寫錯.

liujie123

我把fMAR.il文件放在pcbenv路径下，然后在allegro.ilinit里加上load(fMAR.il)
为什么我在PCB中执行mar 提示：E- Command not found: mar
是哪里搞错了吗？

nanosoc

楼主又分享好代码，谢谢！

JIMDENG

大师的作品，必属精品！谢谢分享！

mmyutian

非常感謝樓主無私分享 太感謝了

diandian08

谢谢楼主分享

tiankong2008

bingshuihuo

非常感謝樓主無私分享 太感謝了

LI165

非常感謝

zhu_ally

很好的东东

l8877l

谢谢 楼主

姜灏1

来看看，学习下

wuyuhe

谢谢楼主的分享！

huzf

看看

yaoshasha

谢谢分享

卫冬冬

看看 了解了解 学习学习学习学习