До чего не добраться руками - можно скриптами попробовать.
Как-то баловался с именем библиотеки
Код
Procedure SetPcbLib;
Var
Board : IPCB_Board;
Component : IPCB_Component;
Iterator : IPCB_BoardIterator;
Begin
Board := PCBServer.GetCurrentPCBBoard;
If Board = Nil Then Exit;
Iterator := Board.BoardIterator_Create;
Iterator.AddFilter_ObjectSet(MkSet(eComponentObject));
Iterator.AddFilter_LayerSet(AllLayers);
Iterator.AddFilter_Method(eProcessAll);
Component := Iterator.FirstPCBObject;
While (Component <> Nil) Do
Begin
Component.SetState_SourceFootprintLibrary('RF(MotherBoard).PcbLib');
Component := Iterator.NextPCBObject;
End;
Board.BoardIterator_Destroy(Iterator);
ShowMessage('Ok!');
End;