|
|
創建個DELPHI腳本4 n+ M( f5 ^5 O1 y3 D' ?, d- k
, c2 |3 W* w/ E& ^6 V+ o- |Procedure RemoveCompID;' \8 F5 Y5 m8 d
Var
+ b4 A4 L4 h0 D2 |# _- {9 n% f, U Component : IPCB_Component;
7 c h5 j1 d) o6 o5 z ComponentIteratorHandle : IPCB_BoardIterator;
1 ]6 J1 f7 E' q/ }Begin
) }& M" e" e( L* L If PCBServer.GetCurrentPCBBoard = Nil Then Exit;
% H& L1 w% b4 M5 D; l2 k$ k4 t+ O9 } ComponentIteratorHandle := PCBServer.GetCurrentPCBBoard.BoardIterator_Create;
3 q$ j5 w! `* D% |8 k, B. g ComponentIteratorHandle.AddFilter_ObjectSet(MkSet(eComponentObject));
$ b* m( q8 w0 u7 p9 _, b0 S) F ComponentIteratorHandle.AddFilter_LayerSet(AllLayers);+ t! W. @* U3 j: N6 f
ComponentIteratorHandle.AddFilter_Method(eProcessAll);% e) z% s0 V1 E( q) g* ] o7 D$ Y/ P6 G
Component := ComponentIteratorHandle.FirstPCBObject;
6 N3 H7 H8 }( P2 R8 i2 W f' e While (Component <> Nil) Do
. M1 D7 t# j& z5 E Begin1 i/ ^# G: F; P6 Z A! p
Component.SourceUniqueId := '';
- k# w6 ]" h. F1 Q4 \ Component := ComponentIteratorHandle.NextPCBObject;
0 J1 w0 n& B* D1 c n% o End;) F# O A- Q% z/ p4 r, N% A$ E
PCBServer.GetCurrentPCBBoard.BoardIterator_Destroy(ComponentIteratorHandle);
" N' i; `& U* y6 X, `0 BEnd; |
|