|
創建個DELPHI腳本
: ~2 }; u- A& ]0 H
# V! X; ~3 `/ {1 }# Y* \Procedure RemoveCompID;
$ V: ]/ [ M# d& _Var
6 h! n, U6 Y; z Component : IPCB_Component;8 |; B! Y4 Z- a$ u% a: Y
ComponentIteratorHandle : IPCB_BoardIterator;
" }% }( E# Q8 o( E2 U$ pBegin
: S1 j' V& a% a" j' C! T If PCBServer.GetCurrentPCBBoard = Nil Then Exit;
1 z0 u3 [2 k9 Y- C ComponentIteratorHandle := PCBServer.GetCurrentPCBBoard.BoardIterator_Create;
% q7 D( @- B3 A& k, ^3 T. | ComponentIteratorHandle.AddFilter_ObjectSet(MkSet(eComponentObject));6 s# d5 I2 s$ t2 I4 V4 s+ H/ N
ComponentIteratorHandle.AddFilter_LayerSet(AllLayers);
( R* Z5 g1 P$ A ComponentIteratorHandle.AddFilter_Method(eProcessAll);" N/ w/ X" A/ p ?, J
Component := ComponentIteratorHandle.FirstPCBObject;
6 M8 {9 m& L$ O& v While (Component <> Nil) Do
# E+ S, c, f# H/ V Begin
! G8 Z* F7 u$ W+ ]: k0 F Component.SourceUniqueId := '';3 C; e6 Q. ?1 y/ ]( p! Z
Component := ComponentIteratorHandle.NextPCBObject;1 a% @9 ]/ k+ Q+ ?
End;* L* }6 ^' b( u. O3 W
PCBServer.GetCurrentPCBBoard.BoardIterator_Destroy(ComponentIteratorHandle);
4 m' E5 x1 z- {& D+ e7 [End; |
|