Altium - the Altium Bridge

@@ -2718,6 +2718,66 @@ Begin End;  +{ ------------------------------------------------------ plate_vias --- }++{ Every drilled pad in the current PcbLib (all footprints, or name=<filter>) becomes a+  plated MULTI-LAYER pad. adom-lbr writes heatsink vias as pads with a hole, and Altium+  loaded them on the Top Layer (John, 2026-09-20: "did Altium support bringing in those+  heatsink vias?" - the holes came, the layer did not). Saving the library afterwards+  also yields a file whose bytes show the encoding Altium wants. }+Function CmdPlateVias(Lines : TStringList) : String;+Var+    PLib : IPCB_Library;+    Fp   : IPCB_LibComponent;+    GIt  : IPCB_GroupIterator;+    Pad  : IPCB_Pad;+    I, NFixed, NHoles : Integer;+    Name, S : String;+Begin+    PLib := PCBServer.GetCurrentPCBLibrary;+    Name := Param(Lines, 'name');+    If PLib = Nil Then+    Begin+        Result := '{' + JRaw('ok','false') + ',' + JStr('error','no PCB library is current') + '}';+        Exit;+    End;+    NFixed := 0; NHoles := 0; S := '';+    PCBServer.PreProcess;+    For I := 0 To PLib.ComponentCount - 1 Do+    Begin+        Fp := PLib.GetComponent(I);+        If (Name <> '') And (UpperCase(Fp.Name) <> UpperCase(Name)) Then Continue;+        GIt := Fp.GroupIterator_Create;+        GIt.AddFilter_ObjectSet(MkSet(ePadObject));+        GIt.AddFilter_LayerSet(AllLayers);+        Pad := GIt.FirstPCBObject;+        While Pad <> Nil Do+        Begin+            If Pad.HoleSize > 0 Then+            Begin+                NHoles := NHoles + 1;+                If Pad.Layer <> eMultiLayer Then+                Begin+                    Pad.BeginModify;+                    Pad.Layer := eMultiLayer;+                    Pad.Plated := True;+                    Pad.EndModify;+                    NFixed := NFixed + 1;+                    If S <> '' Then S := S + ';';+                    S := S + Fp.Name + ':' + Pad.Name;+                End;+            End;+            Pad := GIt.NextPCBObject;+        End;+        Fp.GroupIterator_Destroy(GIt);+    End;+    PCBServer.PostProcess;+    PLib.Board.ViewManager_FullUpdate;+    PLib.RefreshView;+    Result := '{' + JRaw('ok','true') + ',' + JRaw('holes', IntToStr(NHoles)) + ',' + JRaw('plated', IntToStr(NFixed)) + ',' + JStr('fixed', S) + '}';+End;++ { ------------------------------------------------------ normalize_bodies --- }  { The PcbLib canvas origin sits 50000 mil from the stored component origin, so a@@ -2940,6 +3000,7 @@ Var     Seg   : TPolySegment;     Trk   : IPCB_Track;     Txt   : IPCB_Text;+    R     : TCoordRect;     Net   : IPCB_Net;     GIt   : IPCB_GroupIterator;     Pad   : IPCB_Pad;@@ -3019,6 +3080,10 @@ Begin         End;         CX := (WC * (K + 1)) Div (FpList.Count + 1);         Inst := PlaceCopy(Board, LibFp, CX, CY);+        { U1..Un so the read verbs (component_pins, footprint_primitives) can address each part;+          the factory left every part named Designator1 (measured 2026-09-20). Name stays hidden. }+        Inst.Name.Text := 'U' + IntToStr(K + 1);+        Inst.Comment.Text := LibFp.Name;         { Part name on the top overlay under each footprint so a human reading the board           knows which chip is which (John, 2026-09-20). 35 mil stroke text, ~21 mil per           character, centred on the part; the text TOP sits 3.4 - 0.9 = 2.5 mm below the part@@ -3028,10 +3093,14 @@ Begin         Txt.Text := LibFp.Name;         Txt.Size := MilsToCoord(35);         Txt.Width := MilsToCoord(5);-        Txt.XLocation := CX - MilsToCoord((Length(LibFp.Name) * 21) Div 2);+        Txt.XLocation := CX;         Txt.YLocation := CY - MMsToCoord(3.4);         Board.AddPCBObject(Txt);         PCBServer.SendMessageToRobots(Board.I_ObjectAddress, c_Broadcast, PCBM_BoardRegisteration, Txt.I_ObjectAddress);+        { centre on the text's REAL extent (a per-character guess put the labels off to the+          right of every part; John, 2026-09-20): measure the bounding rectangle and shift }+        R := Txt.BoundingRectangle;+        Txt.MoveByXY(CX - ((R.Left + R.Right) Div 2), 0);     End;     AssignPadNets(Board, Inst, Param(Lines, 'assigns'));     { stub tracks: des=x,y (mm from centre) -> a track from that pad to the point, on its net }@@ -4481,6 +4550,7 @@ Begin     Else If Cmd = 'set_visibility' Then Result := CmdSetVisibility(Lines)     Else If Cmd = 'xcopy_footprint' Then Result := CmdXCopyFootprint(Lines)     Else If Cmd = 'normalize_bodies' Then Result := CmdNormalizeBodies(Lines)+    Else If Cmd = 'plate_vias' Then Result := CmdPlateVias(Lines)     Else If Cmd = 'test_board' Then Result := CmdTestBoard(Lines)     Else If Cmd = 'board_shape' Then Result := CmdBoardShape(Lines)     Else If Cmd = 'swap_footprint' Then Result := CmdSwapFootprint(Lines)