매번 글씨높이를 입력하라고 하는데 아예 3으로 고정하고 싶어요..

(defun c:AAA(/ 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 0))
  (setq py_1 (/ ar_1 3.3058))
  (setq py_2 (rtos py_1 2 0))
  (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 n_p (list (car t_p) (- (cadr t_p) (* t_h 2))))
  (command “text” t_p t_h “” (strcat ar_2 “㎡”)) 
  (setvar “cmdecho” 1)
  (princ)

위 리습에서 매번 Text Hihg를 물어봅니다.
3으로 고정하려면 어떻게 해야 하나요?(혹시 도면의 scale를 인식할수도 있나요?)
초보가 고쳐보려니.. 아주 죽겠습니다.
고수님들 고~쳐~주~세~요…
설명도 간단히 써주면 너무 감사할거예요…