← Inbox

C3D-260619-R12 · Redline 12 - POB label + monument tie done

Labels the POINT OF BEGINNING at the Tract A NE corner (PT 524) and ties it by computed bearing and distance to PT 506, an IPF 1in CTP on the Land Lot 143/125 common line, with a dashed tie line and marker circle.

C# payload

// REDLINE #12 - POINT OF BEGINNING label + tie to a monument.
// Tract "A" NE corner is PT 524 (2166868.33,1330720.27), the start of the described boundary.
// The nearest recovered monument on the Land Lot 143/125 common line is PT 506, an IPF 1" CTP
// at (2166529.85,1330757.40). The tie bearing and distance below are computed from those two
// surveyed coordinates, not assumed.
// Draws the tie line dashed and a marker circle at the POB so the relationship reads on the plat.
// Model space. ADDS ONLY. Host owns Tx; host regens after commit.
const string LAYER = "C-ANNO";

var ms = (BlockTableRecord)Tx.GetObject(SymbolUtilityServices.GetBlockModelSpaceId(Db), OpenMode.ForWrite);
EnsureLayer(LAYER, 7);

var ltt = (LinetypeTable)Tx.GetObject(Db.LinetypeTableId, OpenMode.ForRead);
var tie = new Line(new Point3d(2166529.85, 1330757.4, 0),
                   new Point3d(2166868.33, 1330720.27, 0));
tie.Layer = LAYER;
if (ltt.Has("DASHED")) tie.LinetypeId = ltt["DASHED"];
tie.LinetypeScale = 20.0;
ms.AppendEntity(tie);
Tx.AddNewlyCreatedDBObject(tie, true);
Log("tie line " + tie.Length.ToString("F2") + " ft drawn");

var circ = new Circle(new Point3d(2166868.33, 1330720.27, 0), Vector3d.ZAxis, 6.0);
circ.Layer = LAYER;
ms.AppendEntity(circ);
Tx.AddNewlyCreatedDBObject(circ, true);

var items = new (double x, double y, double h, double w, string t)[] {
    (2166880.33, 1330736.27, 4.0, 0.0, @"POINT OF BEGINNING"),
    (2166880.33, 1330722.27, 3.0, 70.0, @"TIE: COMMENCING AT AN IPF 1"" CTP ON THE COMMON LINE OF LAND LOTS 143 & 125,\PTHENCE S83\\U+00B0 44' 24""E  340.51 FEET TO THE POINT OF BEGINNING.")
};
foreach (var n in items)
{
    var mt = new MText {
        Location   = new Point3d(n.x, n.y, 0.0),
        Contents   = n.t,
        TextHeight = n.h,
        Attachment = AttachmentPoint.TopLeft,
    };
    if (n.w > 0) mt.Width = n.w;
    mt.Layer = LAYER;
    ms.AppendEntity(mt);
    Tx.AddNewlyCreatedDBObject(mt, true);
    Log("label at (" + n.x.ToString("F0") + "," + n.y.ToString("F0") + ") handle=" + mt.Handle);
}
Log("Redline #12 done - POB labelled and tied to PT 506.");

Result

tie line 340.51 ft drawn
label at (2166880,1330736) handle=22ADF
label at (2166880,1330722) handle=22AE0
Redline #12 done - POB labelled and tied to PT 506.