AD工具中PCB Layout复制的调用方法与实践指南

1次阅读

没有评论

共计 2616 个字符，预计需要花费 7 分钟才能阅读完成。

对于刚接触 AD（Altium Designer）工具的新手来说，PCB 设计中的布局复制功能常常让人头疼。传统的手工复制方式不仅效率低下，而且容易出错，特别是在处理复杂电路板设计时。常见的痛点包括：

需要重复操作多次才能完成相同模块的复制
复制后元件的网络连接容易丢失
特殊规则（如差分对、长度匹配等）无法正确继承
批量修改时容易遗漏某些设置

这些问题的存在大大降低了设计效率，增加了出错概率，亟需一种更高效的解决方案。

AD 工具提供了强大的脚本接口，可以通过 Delphi 脚本或 VB 脚本实现 PCB Layout 的自动化复制。核心 API 包括：

PCBServer对象：PCB 编辑器的核心服务接口
PCBBoard对象：当前 PCB 文档的表示
IPCB_Component接口：处理 PCB 元件的基本接口
IPCB_Group接口：用于处理元件组的复制

基本调用流程如下：

获取当前 PCB 文档对象
创建选择集，确定要复制的对象范围
设置复制参数（包括网络连接、规则继承等）
执行复制操作
定位复制后的对象位置

下面是一个完整的 Delphi 脚本示例，展示了如何实现 PCB Layout 的智能复制：

procedure CopyPCBComponents;
var
  Board : IPCB_Board;
  Iterator : IPCB_BoardIterator;
  Component : IPCB_Component;
  NewComponent : IPCB_Component;
  Group : IPCB_Group;
  i : Integer;
begin
  // 获取当前 PCB 板
  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);

  // 创建元件组，便于整体复制
  Group := PCBServer.PCBObjectFactory(eGroupObject, eNoDimension, eCreate_Default);

  // 遍历选择集，将元件添加到组中
  Component := Iterator.FirstPCBObject;
  while Component <> nil do
  begin
    Group.AddObject(Component);
    Component := Iterator.NextPCBObject;
  end;
  Board.BoardIterator_Destroy(Iterator);

  // 设置复制参数（保持网络连接和规则）PCBServer.PreProcess;
  try
    // 执行复制操作
    NewComponent := PCBServer.PCBObjectFactory(eComponentObject, eNoDimension, eCreate_Default);
    PCBServer.SendMessageToRobots(Group.I_ObjectAddress, c_Broadcast, PCBM_BeginModify, c_NoEventData);

    // 这里可以设置偏移量等参数
    NewComponent.BeginModify;
    NewComponent.MoveByXY(10000000, 10000000); // 偏移 10mm
    NewComponent.EndModify;

    PCBServer.SendMessageToRobots(Group.I_ObjectAddress, c_Broadcast, PCBM_EndModify, c_NoEventData);
    PCBServer.SendMessageToRobots(NewComponent.I_ObjectAddress, c_Broadcast, PCBM_BeginModify, c_NoEventData);

    // 添加到 PCB 板
    Board.AddPCBObject(NewComponent);
    PCBServer.SendMessageToRobots(NewComponent.I_ObjectAddress, c_Broadcast, PCBM_EndModify, c_NoEventData);

  finally
    PCBServer.PostProcess;
  end;

  // 刷新视图
  Board.ViewManager_FullUpdate;
  Client.SendMessage('PCB:Zoom', 'Action=Redraw', 255, Client.CurrentView);
end;

在高并发或大规模设计中使用复制功能时，需要注意以下性能和安全问题：