텍스트박스그리기 인데 박스크기를 좀더 키우고 싶습니다

인터넷에서 다운받음…
텍스트박스그리기 인데 박스크기를 좀더 키우고 싶습니다
제가 수정하면 박스크기가 위쪽과 오른쪽으로만 커져서요..
어느부분을 어떻게 수정해야하나요 알려주세요….
윈도우10입니다…
———————————————————————-

;텍스트박스그리기
;Text BOX
(defun c:ttr(/ ssg lay os cnt eli tlay ang tp hei thei wid p1 p2 p3 p4)
(defun seterr (s)
 (setvar “cmdecho” 0) (setvar “osmode” os) (if lay (setvar “clayer” lay))
 (if (/= s “Function cancelled! “)  (princ (strcat “n Error: ” s)) )
 (setq *error* oer seterr nil)
 (prin1)) ;defun seterr

 (setvar “cmdecho” 0)
 (command “undo” “be”)
 (setq ssg (ssget ‘((0 . “text”))))
 (setq lay (getvar “clayer”)
   os (getvar “osmode”)
   cnt 0
 )
 (setvar “osmode” 0)
 (repeat (sslength ssg)
  (setq eli (entget (ssname ssg cnt))
    tlay(cdr (assoc 8 eli)) ; 레이어
    ang (cdr (assoc 50 eli)) ; 각도
    tp (cdr (assoc 10 eli)) ; 삽입점
    hei (+ (setq thei (cdr (assoc 40 eli)))(* (/ thei 3) 2)) ; 텍스트 높이
    wid (+ (caadr (textbox eli))(* (/ thei 3) 2)) ; 텍스트 폭
    p1 (polar tp (+ ang pi (/ pi 4))(sqrt (* (expt (/ thei 3) 2) 2)))
    p2 (polar p1 ang wid)
    p3 (polar p2 (+ ang (/ pi 2)) hei)
    p4 (polar p1 (+ ang (/ pi 2)) hei)
  )
  (setvar “clayer” tlay)
  (command “pline” p1 p2 p3 p4 “c”)
  (setq cnt (1+ cnt))
 )
 (setvar “cmdecho” 0)
 (setvar “osmode” os)
 (if lay (setvar “clayer” lay))
 (command “undo” “e”)
 (prin1)
)