I couldn't make this routine work, and I couldn't figure out why.
Please use code tags.. it will help avoid smileys
Code:
;DRLT - annotate Delta, Radius, Arc length, as Label
(defun c:DRLT (/ bc radp ec delta rad len brg sdelta srad slen tan stan)
(getarc)
(setq brg (angtos delta 1 4))
(dtod brg)
(setq sdelta (strcat "" brg) srad (strcat "" (rtos rad 2 2)) slen (strcat "" (rtos len 2 2)))
(setq tan (/ (sin (* delta 0.5)) (cos (* delta 0.5))))
(setq stan (strcat "" (rtos (* rad tan) 2 2))scord (strcat "C=" (rtos (* 2 rad (sin (* delta 0.5))) 2 2)))
(command "TEXT" pause pause sdelta)
(command "TEXT" "" srad)
(command "TEXT" "" slen)
(command "TEXT" "" stan)
(princ)
)
Anywho...
I would suspect the decimal thing will be controlled in your drawing units, so that could be set in your code too.