(defun get_front(a / b c k np)    (setq b (strlen a))    (setq k 1)    (setq c "")    (while b       (setq d (substr a k 1))       (if (numberp (read d)) ; 넘겨받은 문자가 숫자인지 판단.           (setq b nil)           (setq c (strcat c d))       )       (setq k (1+ k))    )    (setq b_last (substr a (1- k)))    (if (setq np (vl-string-position (ascii "-") b_last))        (setq b_last (strcat (substr b_last 1 np) "." (substr b_last (+ np 2))))    )    (setq b_last (rtos (atof b_last) 2 2)) ; 숫자부분을 실수로 바꾸고 다시 문자로 변환 dimzin 참조.    c ) ; c 는 앞부분의 영문자만 리턴. ; b_last는 뒷부분의 숫자를 "-"을 "."으로 바꾸어서 변수에 지정. ; ex)  (get_front "WA3-05") -> "WA" 리턴하고 b_last에 "3.05"저장함.