(defun c:escala ()
(print "Insira os valores na medição no papel")
(setq pol_int (getint "\nQual o valor da polegada parte inteira?  "))
(setq pol_num (getint "\nQual o valor do numerador na fração? "))
(setq pol_den (getint "\nQual o valor do denominador na fração? "))

;cálculo
(setq esca
(if (/= pol_num 0)
	(/ 	0.3048 
		(+ (* pol_int 0.0254) (* (/ (float pol_num) pol_den) 0.0254))
	)
	(/ 	0.3048 
		(* pol_int 0.0254)
		)
		))
		
(strcat "1/" 
(rtos esca 2 0))
)