convert string "10'-1 1/4" into 121.25

I know of a long way to do it (mainly substr and vl-string-position) but wanted to see if there was a better way... any thoughts?

maybe this:

(distof "10'-1 1/4\"" (if (vl-string-search "\"" "10'-1 1/4\"") 3 2 ))

see also http://www.cadtutor.net/forum/showthread.php?52730-Spiderdim-lisp&highlight=spiderdim -> function (kr:CheckFormat XXX)

kruuger

i know of a long way to do it (mainly substr and vl-string-position) but wanted to see if there was a better way... Any thoughts?

(distof "10'-1 1/4"  4)

string to string:

(rtos (DISTOF "10'-1 1/4"  4) 2 2)