면적과 평에 구하는 리습에 대하여 질문있습니다.

지금 면적과 평 구하는 리습을 사용하고 잇는데요.
항상 리습을사용시 텍스트 포인트를 찍여야 하는 불편함이 있습니다.

혹시 면적구하는 객체의 중심에 자동으로 위치시킬수있는 방법은 없을까요?
고수님들의 조언 부탁드리겠습니다.



(defun c:ar2(/ t_h d_s ent_p ar_1 ar_2 py_1 py_2 t_p n_p)
  (graphscr)
  (setvar “cmdecho” 0)
  (setq d_s (getvar “dimscale”)) ;;
  (command “units” “” “8” “” “” “” “”)
  (setq ent_p (entsel “n Select Pline :”))
  (command “area” “e” ent_p)
  (setq ar_1 (/ (getvar “area” ) 1.0e+06))
  (setq ar_2 (rtos ar_1 2 3))
  (setq py_1 (* ar_1 0.3025))
  (setq py_2 (rtos py_1 2 3))
  (command “units” “” “0” “” “” “” “”)
  (prompt “nArea (M2):”)(princ ar_2)
  (prompt “nArea (Py):”)(princ py_2)(princ)
  (setq t_p (getpoint “nText Point:”))
;;  (setq t_h (getreal “nText Hihg:”))
  (setq t_h (* d_s 2)) ;;
  (setq n_p (list (car t_p) (- (cadr t_p) (* t_h 2))))
  (command “text” t_p t_h “” (strcat ” ” ar_2))
  (command “text” n_p t_h “” (strcat ” ” py_2))
  (setvar “cmdecho” 1)
  (princ)
)