면적을 /100000으로 줄이려면 어떻게하나요??

(defun c:aq ( / 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 2 2)))
      (initget 1)
      (setq spt (getpoint “n문자시작점: “))
      (setq txtobj (vla-addtext msp (rtos asum 2 2) (vlax-3d-point spt) (getvar “textsize”)))
    )
  )
  (princ)
)
(vl-load-com)
(prompt “n[ ASUM ]”)
(princ)