divide by 1000

I have the following lisp to insert a block with the "y" valus as an attribute.

How can I divide elevtext by 1000 prior to writing as text
(we draw in mm but this level should read in meters..)

(defun c:levtext (/ blkpt elevtext sc1)
(setq blkpt (getpoint "\nselect point for level"))
(setq elevtext (rtos (cadr blkpt) 2 3))
(setq sc1 (getvar "dimscale"))
(command "-insert" "2_level" blkpt sc1 sc1 "0" elevtext "")
)

Any help would be great

Spencer