Скрипт для удаления 3D моделей Опции

[gregory812]

Написал простой скрипт для удаления всех 3D моделей в библиотечном компоненте. Скрипт хорошо работает в *.PcbDoc файлах, в то время как в *.PcbLib файлах ни одна модель не удаляется. Во время трассировки видно, что количество тел определяется правильно, но не работает функция CurrentPCBBoard.RemovePCBObject(Body). В чем может быть проблема? Почему скрипт по разному работает с печатной платой и библиотечным компонентом.

Код скрипта:

Код

Procedure DeleteBodies;
var
    CurrentPCBBoard : IPCB_Board;
    Iterator        : IPCB_BoardIterator;
    Body         : IPCB_ComponentBody;
    BodyList       : TInterfaceList;
    I               : Integer;
Begin
    CurrentPCBBoard := PCBServer.GetCurrentPCBBoard;
    If CurrentPCBBoard = Nil Then Exit;

    Iterator := CurrentPCBBoard.BoardIterator_Create;
    If Iterator = Nil Then Exit;
    Iterator.AddFilter_ObjectSet(MkSet(eComponentBodyObject));
    Iterator.AddFilter_LayerSet(AllLayers);
    Iterator.AddFilter_Method   (eProcessAll);
    
    BodyList := TInterfaceList.Create;

    Try
        Body := Iterator.FirstPCBObject;
        While Body <> Nil Do
        Begin
            BodyList.Add(Body);
            Body := Iterator.NextPCBObject;
        End;
    Finally
        CurrentPCBBoard.BoardIterator_Destroy(Iterator);
    End;

    Try
        PCBServer.PreProcess;
        For I := 0 to BodyList.Count - 1 Do
        Begin
            Body := BodyList.items[I];
            CurrentPCBBoard.RemovePCBObject(Body);
        End;
    Finally
        PCBServer.PostProcess;
        BodyList.Free;
    End;
    
    CurrentPCBBoard.ViewManager_FullUpdate;
    Client.SendMessage('PCB:Zoom', 'Action=Redraw' , 255, Client.CurrentView);
End;