adom-desktop-altium-bridge

@@ -1950,6 +1950,192 @@ begin end;  { ---- shared command dispatch. Assumes the global Req is loaded and GReqId set. ---- }+{ ---- command: remap an imported footprint's LAYERS onto the house convention and+       reset stroke widths.++       Why this exists: Altium's KiCad importer does not map KiCad's layers onto+       Altium's. It creates NEW mechanical layers carrying KiCad's own names.+       Measured on an LQFP-48 and a SOT-223: silkscreen does land correctly on+       Top Overlay, but the courtyard lands on "F.CrtYd" and the fab outline on+       "F.Fab" rather than "Courtyard Top" / "Assembly Top". Nothing downstream that+       reads the house layers -- OutJobs, assembly drawings, DRC -- then sees them,+       so the footprint looks right on screen and is wrong everywhere else.++       The importer also drops every (stroke (width ...)) it reads, logging+       "Unknown child stroke of fp_line", and defaults each track to 10 mil. KiCad's+       0.12 mm silk and 0.05 mm courtyard therefore both arrive at 0.254 mm.++       remap  : "SrcName|DstName;SrcName|DstName"     matched BY LAYER NAME+       widths : "LayerName|microns;LayerName|microns" applied AFTER the remap+       footprint: a name, or '' / '*' for every footprint in the library.++       Widths are MICRONS so they stay integers (50 = 0.05 mm courtyard,+       127 = 5 mil silk, which is what the hand-built libraries here use).++       Layers are resolved by probing integer ids against Board.LayerName[] rather+       than naming eMechanicalNN constants: an undeclared identifier is a COMPILE+       error, which takes the whole DelphiScript engine down instead of failing this+       one command. ---- }+procedure CmdRemapFootprintLayers;+var+    PcbPath, FpName, RemapSpec, WidthSpec, SavedStr : String;+    SD       : IServerDocument;+    PcbLib   : IPCB_Library;+    Board    : IPCB_Board;+    Fp       : IPCB_LibComponent;+    It       : IPCB_GroupIterator;+    Prim     : IPCB_Primitive;+    layers   : TStringList;   { "<name>=<id>" }+    remaps   : TStringList;   { "<srcname>=<dstname>" }+    widths   : TStringList;   { "<layername>=<microns>" }+    i, li, dstId, moved, widthed, fpCount : Integer;+    nm, s, item, a, b : String;+    pos1, pos2 : Integer;+    SavedOK  : Boolean;+begin+    PcbPath   := Req.Values['pcblib'];+    FpName    := Req.Values['footprint'];+    RemapSpec := Req.Values['remap'];+    WidthSpec := Req.Values['widths'];+    if RemapSpec = '' then RemapSpec := 'F.CrtYd|Courtyard Top;F.Fab|Assembly Top';+    if WidthSpec = '' then WidthSpec := 'Top Overlay|127;Courtyard Top|50;Assembly Top|127';+    if PcbPath = '' then begin RespErr('missing pcblib'); Exit; end;++    GStage := 'open pcblib';+    SD := Client.OpenDocument('PCBLIB', PcbPath);+    if SD <> nil then Client.ShowDocument(SD);+    LastServerDoc := SD;+    if PCBServer = nil then begin RespErr('PCBServer nil'); Exit; end;+    PcbLib := PCBServer.GetCurrentPCBLibrary;+    if PcbLib = nil then begin RespErr('could not open: ' + PcbPath); Exit; end;+    Board := PcbLib.Board;+    if Board = nil then begin RespErr('no board on the library'); Exit; end;++    layers := TStringList.Create;+    remaps := TStringList.Create;+    widths := TStringList.Create;+    moved := 0; widthed := 0; fpCount := 0;+    try+        GStage := 'enumerate layers';+        for li := 1 to 100 do+        begin+            nm := '';+            try+                nm := Board.LayerName[li];+            except+                nm := '';+            end;+            if nm <> '' then layers.Add(nm + '=' + IntToStr(li));+        end;++        GStage := 'parse specs';+        s := RemapSpec;+        while s <> '' do+        begin+            pos1 := Pos(';', s);+            if pos1 > 0 then begin item := Copy(s, 1, pos1 - 1); Delete(s, 1, pos1); end+            else begin item := s; s := ''; end;+            pos2 := Pos('|', item);+            if pos2 > 0 then+            begin+                a := Trim(Copy(item, 1, pos2 - 1));+                b := Trim(Copy(item, pos2 + 1, Length(item)));+                if (a <> '') and (b <> '') then remaps.Add(a + '=' + b);+            end;+        end;+        s := WidthSpec;+        while s <> '' do+        begin+            pos1 := Pos(';', s);+            if pos1 > 0 then begin item := Copy(s, 1, pos1 - 1); Delete(s, 1, pos1); end+            else begin item := s; s := ''; end;+            pos2 := Pos('|', item);+            if pos2 > 0 then+            begin+                a := Trim(Copy(item, 1, pos2 - 1));+                b := Trim(Copy(item, pos2 + 1, Length(item)));+                if (a <> '') and (b <> '') then widths.Add(a + '=' + b);+            end;+        end;++        GStage := 'remap';+        PCBServer.PreProcess;+        for i := 0 to PcbLib.ComponentCount - 1 do+        begin+            Fp := PcbLib.GetComponent(i);+            if Fp <> nil then+            if (FpName = '') or (FpName = '*') or (Fp.Name = FpName) then+            begin+                Inc(fpCount);+                It := Fp.GroupIterator_Create;+                It.SetState_FilterAll;+                try+                    Prim := It.FirstPCBObject;+                    while Prim <> nil do+                    begin+                        nm := '';+                        try nm := Board.LayerName[Prim.Layer]; except nm := ''; end;++                        { move to the house layer, if this one is mapped }+                        if (nm <> '') and (remaps.Values[nm] <> '') then+                        begin+                            dstId := StrToIntDef(layers.Values[remaps.Values[nm]], -1);+                            if dstId > 0 then+                            begin+                                Prim.Layer := dstId;+                                Inc(moved);+                                try nm := Board.LayerName[Prim.Layer]; except end;+                            end;+                        end;++                        { reset the stroke width for whatever layer it now sits on.+                          Tracks expose Width, arcs expose LineWidth, and pads/regions+                          expose neither -- so try in turn rather than switch on an+                          ObjectId constant. }+                        if (nm <> '') and (widths.Values[nm] <> '') then+                        begin+                            li := StrToIntDef(widths.Values[nm], 0);+                            if li > 0 then+                            begin+                                try+                                    Prim.Width := MilsToCoord(li / 25.4);+                                    Inc(widthed);+                                except+                                    try+                                        Prim.LineWidth := MilsToCoord(li / 25.4);+                                        Inc(widthed);+                                    except+                                    end;+                                end;+                            end;+                        end;++                        Prim := It.NextPCBObject;+                    end;+                finally+                    Fp.GroupIterator_Destroy(It);+                end;+            end;+        end;+        PCBServer.PostProcess;+    finally+        layers.Free;+        remaps.Free;+        widths.Free;+    end;++    GStage := 'save';+    Board.ViewManager_FullUpdate;+    SavedOK := False;+    if LastServerDoc <> nil then SavedOK := LastServerDoc.DoFileSave('');+    if SavedOK then SavedStr := 'true' else SavedStr := 'false';+    RespOk(', "footprints": ' + IntToStr(fpCount) ++           ', "movedPrimitives": ' + IntToStr(moved) ++           ', "widthsSet": ' + IntToStr(widthed) ++           ', "saved": ' + SavedStr);+end;++ procedure Dispatch; var Cmd : String; begin@@ -1981,6 +2167,7 @@ begin         else if Cmd = 'add_body'         then CmdAddBody         else if Cmd = 'set_visibility'   then CmdSetVisibility         else if Cmd = 'set_text_style'   then CmdSetTextStyle+        else if Cmd = 'remap_fp_layers'  then CmdRemapFootprintLayers         else if Cmd = 'export_step'      then CmdExportStep         else if Cmd = 'run_outjob'       then CmdRunOutJob         else RespErr('unknown command: ' + Cmd);