면적리습 글자크기 질문?

(defun c:asum ( / ss index asum e obj tmparea msp spt txtobj )

  (if (setq ss (ssget (list (cons 0 “CIRCLE,ARC,LWPOLYLINE,ELLIPSE,SPLINE”))))

    (progn

      (setq msp (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))

      (setq index 0 asum 0)

      (repeat (sslength ss)

(setq e (ssname ss index))

(setq obj (vlax-ename->vla-object e))

(setq tmparea (vla-get-area obj))

(setq asum (+ asum tmparea))

(setq index (1+ index))

      )

      (prompt (strcat “n총 면적 = ” (rtos (/ asum 1000000.) 2 3)))

      (initget 1)

      (setq spt (getpoint “n문자시작점: “))

      (setq txtobj (vla-addtext msp (strcat “면적(m²) : ” (rtos (/ asum 1000000.) 2 3)) (vlax-3d-point spt) (getvar “textsize”)))

    )

  )

  (princ)

)

(vl-load-com)

(prompt “n[ ASUM ]”)

(princ)

글자크기를 결정하는 부분이 어디인지요? 크기를 변경하고 싶어서여….고정으로 500으로 하고 싶어서…..