Hi All
I have the following routine in my toolbox of functions I frequently use. I am trying to modify it so that it returns the values in feet and inches. Currently, when I enter (rtos 192 3 4) I get the following "16'" instead of "16'-0\"". How do I modify the following code to achieve this? Thanks.
Manuel
Code:
(defun getval (val tag)
(setq lunits (getvar "LUNITS")
luprec (getvar "LUPREC")
val
(cond
((= (type val) 'STR) val)
((= (type val) 'REAL) (rtos val lunits luprec))
((= (type val) 'INT) (itoa val))
(T "")
)
)
val
)