Altium - the Altium Bridge

@@ -1722,7 +1722,10 @@ Var     SD     : IServerDocument;     Sheet  : ISch_Document;     SchPath, LibRef, Missing, Placed, Title, DocNum, Rev, Drawn, Desc : String;-    NCopied, K, W, H, XK, YK, BCX, BCY : Integer;+    NCopied, K, W, H, XK, YK, BCX, BCY, BH : Integer;+    PWs, CXs, CYs, TPs, BTs : TStringList;+    R : TCoordRect;+    TotalW, MaxH, Gap, Margin, GapA, MarginA, Cur, DX, DY, BBL, BBB, BBR, BBT, BTop, BBot : Integer;     RefList : TStringList;     RIt    : ISch_Iterator;     LRect  : ISch_Rectangle;@@ -1774,22 +1777,97 @@ Begin     End;     Client.ShowDocument(SD);     Sheet := SchServer.GetCurrentSchDocument;-    { Size the sheet for the part count and place INSIDE the drawing frame: A4 (11500 x 7600 mil)-      for one or two parts, B (17000 x 11000 mil) for three or more. Parts are centred vertically-      and spread across the width with a 1500 mil margin (John, 2026-09-19: the first cut put the-      symbols on top of the title block and outside the frame). }-    W := 11500; H := 7600;-    If RefList.Count >= 3 Then+    { Pass 1: MEASURE every part (union of its primitives' bounding rectangles, pins+      included, +400 mil a side for the pin-number text that hangs outside the stub).+      John, 2026-09-19, reviewing three 5000 mil bodies squeezed onto one sheet:+      "you are smooshing these symbols together such that their pin names overlap; no+      real EE would ever do that, they'd space them out". So the sheet is sized FROM the+      parts, never the parts from the sheet. }+    PWs := TStringList.Create; CXs := TStringList.Create; CYs := TStringList.Create;+    TPs := TStringList.Create; BTs := TStringList.Create;+    TotalW := 0; MaxH := 0;+    For K := 0 To RefList.Count - 1 Do     Begin-        Sheet.SheetStyle := eSheetB;-        W := 17000; H := 11000;+        LibCmp := Nil;+        Iter := SLib.SchLibIterator_Create;+        Iter.AddFilter_ObjectSet(MkSet(eSchComponent));+        LibCmp := Iter.FirstSchObject;+        While LibCmp <> Nil Do+        Begin+            If UpperCase(LibCmp.LibReference) = UpperCase(RefList[K]) Then Break;+            LibCmp := Iter.NextSchObject;+        End;+        SLib.SchIterator_Destroy(Iter);+        BBL := 0; BBB := 0; BBR := 0; BBT := 0; BTop := 0; BBot := 0; NCopied := 0;+        PIt := LibCmp.SchIterator_Create;+        Prim := PIt.FirstSchObject;+        While Prim <> Nil Do+        Begin+            If (Prim.ObjectID = ePin) Or (Prim.ObjectID = eRectangle) Or+               (Prim.ObjectID = eLine) Or (Prim.ObjectID = eArc) Or+               (Prim.ObjectID = eEllipse) Or (Prim.ObjectID = ePolygon) Or+               (Prim.ObjectID = ePolyline) Or (Prim.ObjectID = eLabel) Then+            Begin+                R := Prim.BoundingRectangle;+                If (NCopied = 0) Or (Round(CoordToMils(R.Left)) < BBL) Then BBL := Round(CoordToMils(R.Left));+                If (NCopied = 0) Or (Round(CoordToMils(R.Bottom)) < BBB) Then BBB := Round(CoordToMils(R.Bottom));+                If (NCopied = 0) Or (Round(CoordToMils(R.Right)) > BBR) Then BBR := Round(CoordToMils(R.Right));+                If (NCopied = 0) Or (Round(CoordToMils(R.Top)) > BBT) Then BBT := Round(CoordToMils(R.Top));+                If Prim.ObjectID = eRectangle Then+                Begin+                    BTop := Round(CoordToMils(R.Top)); BBot := Round(CoordToMils(R.Bottom));+                End;+                NCopied := NCopied + 1;+            End;+            Prim := PIt.NextSchObject;+        End;+        LibCmp.SchIterator_Destroy(PIt);+        If BTop = 0 Then Begin BTop := BBT; BBot := BBB; End;+        PWs.Add(IntToStr((BBR - BBL) + 800));+        CXs.Add(IntToStr((BBL + BBR) Div 2));+        CYs.Add(IntToStr((BBB + BBT) Div 2));+        TPs.Add(IntToStr(BTop)); BTs.Add(IntToStr(BBot));+        TotalW := TotalW + (BBR - BBL) + 800;+        If (BBT - BBB) > MaxH Then MaxH := BBT - BBB;+    End;+    { Sheet from the parts: 1000 mil margins, at least 1500 mil of air between parts, and+      room above (1700 mil description strip) and below (title block) the row. Sheet.SheetStyle+      does NOT take on ADDevelop (measured 2026-09-19: the sheet stayed the 9500 x 7500 mil+      default), so the sheet is a CUSTOM size, never smaller than A4 (11500 x 7600). }+    Gap := 1500; Margin := 1000;+    W := TotalW + Gap * (RefList.Count - 1) + 2 * Margin;+    If W < 11500 Then W := 11500;+    H := MaxH + 4200;+    If H < 7600 Then H := 7600;+    If H * 17 < W * 9 Then H := (W * 9) Div 17;+    Sheet.UseCustomSheet := True;+    Sheet.CustomX := MilsToCoord(W);+    Sheet.CustomY := MilsToCoord(H);+    Sheet.CustomXZones := (W + 2499) Div 2500;+    Sheet.CustomYZones := (H + 2499) Div 2500;+    Sheet.CustomMarginWidth := MilsToCoord(200);+    { Do NOT read SheetSizeX/Y back here: on ADDevelop they still report the 9500 x 7500 mil+      default after the custom size is set (measured 2026-09-19: the read-back shrank W to+      9500 and squeezed three 5800 mil parts into it, pin numbers on top of each other,+      while the sheet itself drew at the custom size). W and H ARE the sheet. }+    { spread the slack evenly: the row is centred and every gap grows by the same amount }+    GapA := Gap; MarginA := Margin;+    If W > TotalW + Gap * (RefList.Count - 1) + 2 * Margin Then+    Begin+        GapA := Gap + (W - (TotalW + Gap * (RefList.Count - 1) + 2 * Margin)) Div (RefList.Count + 1);+        MarginA := (W - TotalW - GapA * (RefList.Count - 1)) Div 2;     End;     Placed := '';     NCopied := 0;+    Cur := MarginA;     For K := 0 To RefList.Count - 1 Do     Begin-    XK := 1500 + ((W - 3000) * (2 * K + 1)) Div (2 * RefList.Count);-    YK := (H Div 2) + 400;+    XK := Cur + StrToInt(PWs[K]) Div 2;+    Cur := Cur + StrToInt(PWs[K]) + GapA;+    { the row sits a little below centre: the description strip takes the top 1700 mil }+    YK := (H Div 2) - 300;+    DX := XK - StrToInt(CXs[K]);+    DY := YK - StrToInt(CYs[K]);     LibCmp := Nil;     Iter := SLib.SchLibIterator_Create;     Iter.AddFilter_ObjectSet(MkSet(eSchComponent));@@ -1810,17 +1888,13 @@ Begin     Inst.LibReference := LibCmp.LibReference;     Inst.ComponentDescription := LibCmp.ComponentDescription;     Inst.Location := Point(MilsToCoord(XK), MilsToCoord(YK));-    { the library part primitives sit around ITS origin, find the body rectangle centre so the-      body (not the origin) lands on the target point }-    BCX := 0; BCY := 0;+    { body rectangle centre (mil, library frame) for the designator / comment columns }+    BCX := StrToInt(CXs[K]); BCY := StrToInt(CYs[K]);     RIt := LibCmp.SchIterator_Create;     RIt.AddFilter_ObjectSet(MkSet(eRectangle));     LRect := RIt.FirstSchObject;     If LRect <> Nil Then-    Begin         BCX := Round(CoordToMils(LRect.Location.X + LRect.Corner.X) / 2);-        BCY := Round(CoordToMils(LRect.Location.Y + LRect.Corner.Y) / 2);-    End;     LibCmp.SchIterator_Destroy(RIt);     PIt := LibCmp.SchIterator_Create;     Prim := PIt.FirstSchObject;@@ -1836,20 +1910,25 @@ Begin             Cpy.OwnerPartDisplayMode := 0;             { copied primitives keep the library coordinates, Inst.Location does not carry them               (measured 2026-09-19: three parts drew on top of each other), so shift each child }-            Cpy.MoveByXY(MilsToCoord(XK - BCX), MilsToCoord(YK - BCY));+            Cpy.MoveByXY(MilsToCoord(DX), MilsToCoord(DY));             Inst.AddSchObject(Cpy);             NCopied := NCopied + 1;         End;         Prim := PIt.NextSchObject;     End;     LibCmp.SchIterator_Destroy(PIt);+    { Designator centred ABOVE the body and the comment centred BELOW it, whatever the+      library part did with them (measured 2026-09-19: +200 mil put U1 on top of the chip+      outline inside a 3700 mil body). }     Inst.Designator.Text := 'U' + IntToStr(K + 1);     Inst.Designator.IsHidden := False;-    Inst.Designator.Location := Point(MilsToCoord(XK), MilsToCoord(YK + 200));+    Inst.Designator.Justification := eJustify_BottomCenter;+    Inst.Designator.Location := Point(MilsToCoord(BCX + DX), MilsToCoord(StrToInt(TPs[K]) + DY + 100));     { never leave the star placeholder: the comment is the part number }     Inst.Comment.Text := LibCmp.LibReference;     Inst.Comment.IsHidden := False;-    Inst.Comment.Location := Point(MilsToCoord(XK), MilsToCoord(YK - 200));+    Inst.Comment.Justification := eJustify_TopCenter;+    Inst.Comment.Location := Point(MilsToCoord(BCX + DX), MilsToCoord(StrToInt(BTs[K]) + DY - 100));     Sheet.RegisterSchObjectInContainer(Inst);     SchServer.RobotManager.SendMessage(Sheet.I_ObjectAddress, c_BroadCast, SCHM_PrimitiveRegistration, Inst.I_ObjectAddress);     If Placed <> '' Then Placed := Placed + ';';@@ -1865,8 +1944,11 @@ Begin     Begin         SetDocParam(Sheet, 'Description', Desc);         TF := SchServer.SchObjectFactory(eTextFrame, eCreate_Default);-        TF.Location := Point(MilsToCoord(1000), MilsToCoord(H - 1500));-        TF.Corner := Point(MilsToCoord(W - 1000), MilsToCoord(H - 500));+        { inside the drawing frame: the border + zone strip take ~400 mil, so the frame+          runs from 700 mil below the top edge down 1000 mil, and stops 700 mil short of+          the right edge }+        TF.Location := Point(MilsToCoord(1000), MilsToCoord(H - 1700));+        TF.Corner := Point(MilsToCoord(W - 700), MilsToCoord(H - 700));         TF.Text := Desc;         TF.WordWrap := True;         TF.ShowBorder := False;@@ -1880,6 +1962,7 @@ Begin         SD.SetFileName(SchPath);         SD.DoFileSave('');     End;+    PWs.Free; CXs.Free; CYs.Free; TPs.Free; BTs.Free;     Result := '{' + JRaw('ok','true') + ',' + JStr('sch', SchPath) + ',' + JRaw('sheetMil', '[' + IntToStr(W) + ',' + IntToStr(H) + ']') + ',' +         JRaw('titleBlock', '{' + JRaw('title', BoolStr(Title <> '')) + ',' + JRaw('number', BoolStr(DocNum <> '')) + ',' + JRaw('revision', BoolStr(Rev <> '')) + ',' + JRaw('drawnBy', BoolStr(Drawn <> '')) + ',' + JRaw('description', BoolStr(Desc <> '')) + '}') + ',' +         JStr('placed', Placed) + ',' + JStr('designator','U1') + ',' + JRaw('count', IntToStr(RefList.Count)) + ',' + JRaw('primitives', IntToStr(NCopied)) + '}';