|
|
創建個DELPHI腳本; `2 d+ s! l& z( u( C5 b9 p# Q
1 z' }# Y. x @) R0 D& M
Procedure RemoveCompID;1 ]. V+ c- k. W n6 i6 y4 g7 x
Var6 k% y7 I4 j9 Z3 A. u' z1 f: A; H0 e
Component : IPCB_Component;
1 O8 Y, d( e4 }' j, ^4 ? ComponentIteratorHandle : IPCB_BoardIterator;
6 f& l) d0 q5 }8 |& DBegin
. x: D9 D8 q9 v If PCBServer.GetCurrentPCBBoard = Nil Then Exit;
5 w; \: o8 ]- p \ ComponentIteratorHandle := PCBServer.GetCurrentPCBBoard.BoardIterator_Create;
0 F5 J6 e! v" ?. m0 p ComponentIteratorHandle.AddFilter_ObjectSet(MkSet(eComponentObject));
2 D( m+ Y: B8 v ComponentIteratorHandle.AddFilter_LayerSet(AllLayers);$ `& g) G3 _7 M9 Z. A' b T
ComponentIteratorHandle.AddFilter_Method(eProcessAll);
9 M5 Q F( E4 \1 K( }4 ?! w: ~2 ` E Component := ComponentIteratorHandle.FirstPCBObject;* ?! W$ i. l3 k5 s7 ]
While (Component <> Nil) Do
, @) G. v" d3 b. V8 k+ s+ L Begin
: f! h" Q" a; l( Z0 g: G! @ Component.SourceUniqueId := '';
2 W/ {0 t2 M. g Component := ComponentIteratorHandle.NextPCBObject;
+ g. {+ A$ @" L( j End;
! ]7 a H- n' H# N* R PCBServer.GetCurrentPCBBoard.BoardIterator_Destroy(ComponentIteratorHandle);
: J, m, A; Y5 I) y9 Z6 }, K: GEnd; |
|