0

我正在编写一个 Delphi Altium 脚本来删除 PCB 库内 TopOverLay 中的所有轨道。

但是，在运行脚本时，什么也没有发生（没有删除轨道）。

我不知道为什么。你能帮我么？

下面是我的代码：

procedure RemoveTrackObject;
Var 
        MyComponent     : IPCB_LibComponent;
        MyTrack         : IPCB_Track;
        Iterator        : IPCB_GroupIterator;

        DeleteList      : TInterfaceList;
        TrackTemp       : IPCB_Track;
        i               : Integer;            
begin
        MyComponent     := PCBServer.GetCurrentPCBLibrary.CurrentComponent;
        //////////////////////////////////////////////////////////////////////
        Iterator        := MyComponent.GroupIterator_Create;
        Iterator.AddFilter_ObjectSet(Mkset(eTrackObject));
        Iterator.AddFilter_LayerSet(Mkset(eTopOverLay));

        DeleteList      := TInterfaceList.Create;
        try
            MyTrack     := Iterator.FirstPCBObject;
            While MyTrack <> nil do
            begin
                    DeleteList.Add(MyTrack);
                    MyTrack := Iterator.NextPCBObject;
            end;
        
        finally
                MyComponent.GroupIterator_Destroy(Iterator);
        end;
        try
                PCBServer.PreProcess;
                for i := 0 to DeleteList.Count - 1 do
                begin
                        TrackTemp   := DeleteList.Items[i];
                        MyComponent.RemovePCBObject(TrackTemp);
                end;
        finally
                PCBServer.PostProcess;
                DeleteList.Free;
        end;
        Client.SendMessage('PCB:Zoom', 'Action=Redraw' , 255, Client.CurrentView);
end;
4

1 回答 1

1

AFAIU 在 Altium dephiscript API InterfaceList 中具有特定用途：保存非 PCB 对象并传递给外部 dll 函数并让接收 fn 销毁列表。你在这里真的不需要一个。

PcbLib 在从选定/聚焦的足迹等中删除时确实有一些奇怪的行为。

我认为问题是由于 Pcb 编辑器不允许从当前聚焦的组件/封装中删除对象。围绕此问题的历史指向涉及将焦点从所需组件移开的解决方案。

当 List 仍包含对象引用时，您无法完成删除过程。

使用 While 循环，在 RemovePCBObject() 之后，从 List 中删除 object ref（删除 List Item）。然后，当 While 循环终止时，List 中的项目为零。

可能有助于刷新或使用这些 fn 调用的外观和感觉：

CurrentLib.Board.GraphicallyInvalidate;
CurrentLib.Navigate_FirstComponent;
CurrentLib.Board.ViewManager_FullUpdate;
CurrentLib.Board.GraphicalView_ZoomRedraw;
CurrentLib.RefreshView;
于 2020-10-09T19:15:50.137 回答