Thanks, JF.
(defun is_numeric (c)
(or (= c ".") (wcmatch c "*[0-9]*"))
)
(defun extract_number (s)
(setq exit_flag nil)
(setq i 1)
(setq first_digit nil)
(while (and (not exit_flag) (setq c (substr s i 1)))
(if (not first_digit)
; we haven't hit the first digit
(progn
(if (is_numeric c)
(progn
(setq num_string c)
(setq first_digit T)
)
)
); progn
; we're already doing numbers
(if (is_numeric c)
(setq num_string (strcat num_string c))
(setq exit_flag T)
)
)
(setq i (1+ i))
) ; while
(atof num_string)
)
"Joe Fennel" <jf43...@hotmail.com> wrote in message
news:t0Vxi.24426$h11....@newsfe7-gui.ntli.net...
MichaelB
www.michaelbulatovich.ca
"Joe Fennel" <jf43...@hotmail.com> wrote in message
news:NOVxi.18731$ph7....@newsfe5-win.ntli.net...
Joe, there's a software app called Topogx which does what you're looking
for. You can get it at www.topogx.com
Worked great for me on converting some old 2D surveys.
"Joe Fennel" <jf43...@hotmail.com> wrote in message
news:t0Vxi.24426$h11....@newsfe7-gui.ntli.net...