면적구하는 리습에 곱하기연산 적용하기 어떻게 하나요?

지난번에 “포고고”님께서 큰도움을 주셨는데….. 한가지 더궁금해서요..
아래가 제가 사용하는 리습인데요.
=============================
(defun C:ART()
       (setvar “cmdecho” 0)
       (SSGET)
       (command “AREA” “E” (SSGET “P”))
       (setq ar (getvar “area”))
       (SETQ AR1 (/ AR 1.0))
       (prompt “AREA (M2) =”)(prin1 (SETQ AR2 (RTOS (/ AR1 1000000.0) 2 1)))
       (PROMPT ”      AREA (PY) = “)(prin1 (setq ar3 (RTOS (/ ar1 3305800.0) 2 1)))
       (PROMPT ”      CLICK TEXT POINT…….”)
       (princ)
       (SETQ PO (GETPOINT))
       (COMMAND “STYLE” “STANDARD” “굴림” “” “” “” “” “” “”)(PRIN1)
       (SETQ TESI (* 500 (GETVAR “LTSCALE”)))
       (SETQ ART1 (STRCAT AR2 ” M2″))
       (SETQ ART2 (STRCAT AR3 ” PY”))
       (COMMAND “TEXT” “BC” PO tesi “” ART1)(PRIN1)
       (COMMAND “TEXT” “TC” PO TESI “” ART2)(PRIN1)
)
==================================================
이거로 사용하면  2줄로  00.0 M2      으로 나와요
                                            00.0PY             

  예를들어  요값에 곱하기 적용할수도 있을까요?
  예를들어 1.5 를 곱한다면 어떻게 하는지 알고싶어요.  너무 염치없지만 아시는분 부탁드려욤~~