Label polyline areas with field

csharp

//----------------------------------------------------------------------------------------------//
        [CommandMethod("POLA", CommandFlags.Modal)]
        public void PolyAreas()
        {
            var doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
            var db = doc.Database;
            var ed = doc.Editor;
            Matrix3d ucs = ed.CurrentUserCoordinateSystem;
           
            var sf = new SelectionFilter(new TypedValue[] { new TypedValue(0, "LWPOLYLINE"), new TypedValue(70, 1) });
            var pso = new PromptSelectionOptions();
            pso.MessageForAdding = "Select polylines (or enter for all): ";
            pso.AllowDuplicates = false;
            var psr = ed.GetSelection(pso, sf);
            // If nothing selected then select all
            if (psr.Status == PromptStatus.Error) psr = ed.SelectAll(sf);
            // make sure the selection isn't empty
            if (psr.Status == PromptStatus.OK && psr.Value.Count > 0)
            {
                using (var tr = db.TransactionManager.StartTransaction())
                {
                    var btr = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
                    foreach (SelectedObject so in psr.Value)
                    {
                        var pline = (Polyline)tr.GetObject(so.ObjectId, OpenMode.ForRead);

                        Point3d cp = GetPseudoCentroid(db, pline).TransformBy(ucs);
                        string strObjId = pline.ObjectId.ToString();
                        strObjId = strObjId.Trim(new char[] { '(', ')' });
                        var mtx = new MText();
                        mtx.Contents = "%<\\AcObjProp Object(%<\\_ObjId " + strObjId + ">%).Area \\f \"%pr3%lu2%ct4%qf1 SQ. FT.\">%";
                        mtx.Location = cp;
                        mtx.Rotation = 0;
                        mtx.Attachment = AttachmentPoint.MiddleCenter;

                        btr.AppendEntity(mtx);
                        tr.AddNewlyCreatedDBObject(mtx, true);
                        tr.TransactionManager.QueueForGraphicsFlush();

                    }
                    doc.TransactionManager.FlushGraphics();
                    tr.Commit();
                    ed.Regen();
                }
            }
        }

        //----------------------------------------------------------------------------------------------//
        public Point3d GetPseudoCentroid(Database db, Polyline pline)
        {
            Point3d cpt = new Point3d();
            Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;

            try
            {
                using (Transaction tr = db.TransactionManager.StartOpenCloseTransaction())
                {

                    Point3d maxp = pline.GeometricExtents.MaxPoint;
                    Point3d minp = pline.GeometricExtents.MinPoint;
                    cpt = new Point3d((maxp.X + minp.X) / 2, (maxp.Y + minp.Y) / 2, (maxp.Z + minp.Z) / 2);

                    tr.Commit();
                    return cpt;
                }
            }
            catch
            {
                // ed.WriteMessage("\nError on getting centroid");//debug only
                return cpt;
            }

        }

        //----------------------------------------------------------------------------------------------//