Is there any tools or lisp routine that can switch a drawing from Imperial to metric and vice versa?

 
 For moment I give this :
 
(defun c:i2m (len ang /)(strcat "@" (rtos (* len (/ 25.4 1))) "<" (rtos ang)))