Площадь автоматически....

(defun c:area_a    (/       pline_sh  echo_old  cur_color acc
         r       pline_obj prim      select     block leb_txt
        )
  (defun
        STORE
         ()
    (setq pline_sh (getvar "PLINEWID"))
    (setq echo_old (getvar "cmdecho"))
    (setq cur_color (getvar "CECOLOR"))
    (setq acc (getvar "LUPREC"))
  )
  (defun RESTORE ()
    (setvar "PLINEWID" pline_sh)
    (setvar "LUPREC" acc)
    (setvar "CECOLOR" cur_color)
    (setvar "CMDECHO" echo_old)
    (princ)
  )
  (defun NNN_ERROR_HANDLER (MSG)
    (if
      (or
    (= MSG "завершить / выйти прервать")
    (= MSG "quit / exit abort")
      )
       (princ "Error! Прервано пользователем")
       (princ msg)
    )
    (command "_.UNDO" "_end")
    (command "_.U")
    (RESTORE)
    (setq *ERROR* OLDERROR)
    (princ)
  )
  (store)
  (command "_.UNDO" "_begin")
  (setvar "PLINEWID" 60)
  (setvar "CECOLOR" "50")
  (setvar "LUPREC" 2)
  (setvar "CMDECHO" 0)
  (setq olderror *ERROR*)
  (setq *ERROR* nnn_error_handler)
  (setq r 0)
  (vl-cmdf "_.pline")
  (while (= (logand (getvar 'cmdactive) 1) 1)
    (vl-cmdf pause)
    (setq r (1+ r))
  )
  (setq pline_obj (entlast))
  (if (= (entlast) prim)
    (setq pline_obj nil)
  )
  (if (>= r 3)
    (progn
      (vl-cmdf "_area" "_ob" pline_obj)
      (setq ax (list (vlax-ename->vla-object pline_obj)))
      (setq ar (getvar "area"))
      (vla-put-height
    (vla-addmtext
      (vla-get-modelspace
        (vla-get-activedocument (vlax-get-acad-object))
      )
      (vlax-make-variant
        (vlax-safearray-fill
          (vlax-make-safearray
        vlax-vbdouble
        '(0 . 2)
          )
          '(0 0 0)
        )
        (logior vlax-vbarray vlax-vbdouble)
      )
      300
      (strcat
        "{\\fArial|b0|i0|c0|p10;"
        (rtos (/ ar 1000000))
        "\\fArial|b0|i0|c204|p10;м\\fArial|b0|i0|c204|p8;\\U+00B2}"
      )
    )
    300
      )
      (setq select (ssadd (entlast)))
      (sssetfirst select select)
      (vl-cmdf "_-block"
           "1$$$$$ok_area$$_kot"
           (trans (list 0 0 0) 0 1)
           select
           ""
      )
      (vl-cmdf "_-insert"     "1$$$$$ok_area$$_kot"
           "_ro"          0             "_s"
           1
          )
      (while (= (logand (getvar 'cmdactive) 1) 1)
    (vl-cmdf pause)
      )
      (setq block (vlax-ename->vla-object (entlast)))
      (if (= (cdr (assoc 0 (entget (entlast)))) "INSERT")
    (vla-explode (vlax-ename->vla-object (entlast)))
    (entdel block)
      )
      (setq leb_txt (cdr (assoc 5 (entget (entlast)))))
      (vla-delete block)
      (vla-delete
    (vla-item
      (vla-get-blocks
        (vla-get-ActiveDocument
          (vlax-get-acad-object)
        )
      )
      "1$$$$$ok_area$$_kot"
    )
      )
    )
  )
  (setq    liner (vlr-object-reactor
        ax
        leb_txt
        (list '(:vlr-modified . reac_area_pl))
          )
  )
  (vlr-pers liner)
  (command "_.UNDO" "_end")
  (setq *ERROR* OLDERROR)
  (restore)
  (vl-load-com)
)
(defun reac_area_pl (vlao reac args /)
  (vla-put-textstring
    (vlax-ename->vla-object (handent (vlr-data reac)))
    (vlax-make-variant
      (strcat "{\\fArial|b0|i0|c0|p10;"
          (rtos (/ (vla-get-area vlao) 1000000) 2 2)
          "\\fArial|b0|i0|c204|p10;м\\fArial|b0|i0|c204|p8;\\U+00B2}"
      )
      8
    )
  )
)