|
創建個DELPHI腳本
7 X) F; I7 i" ?6 t+ ]9 K" E, [) O. L6 L8 m) b% O
Procedure RemoveCompID;+ j1 R: {. Y8 U }: D9 o
Var
2 g* V$ M3 |5 |9 z Component : IPCB_Component;
% z, k6 C" }+ q, g' Y( E ComponentIteratorHandle : IPCB_BoardIterator;( z/ A5 c( e9 T8 q' N
Begin" R- q4 d6 s, X2 q
If PCBServer.GetCurrentPCBBoard = Nil Then Exit;0 `& n! u! R% n) y8 Z( X. h
ComponentIteratorHandle := PCBServer.GetCurrentPCBBoard.BoardIterator_Create;
f8 z: d7 g' s ComponentIteratorHandle.AddFilter_ObjectSet(MkSet(eComponentObject));
$ ~' R8 S8 g1 V* g8 X ComponentIteratorHandle.AddFilter_LayerSet(AllLayers);& V! k' }7 J# J1 x2 L
ComponentIteratorHandle.AddFilter_Method(eProcessAll);: `; v8 Z: `1 r
Component := ComponentIteratorHandle.FirstPCBObject;. `+ h. `! r5 \! k& `: Z s% T; @
While (Component <> Nil) Do
' m: T+ N( Q/ N3 L Begin
# ?1 U* D, z' }7 K Component.SourceUniqueId := '';+ M- q7 b! w7 c% K6 }
Component := ComponentIteratorHandle.NextPCBObject;! X- X) t: ?, p, V+ ~! b
End;7 {. ~, c/ }# A' i; `3 z
PCBServer.GetCurrentPCBBoard.BoardIterator_Destroy(ComponentIteratorHandle);
3 _6 o- f, h* r- u' N' d7 o0 lEnd; |
|