리습에서요…..질문..명령어 관련

리습에서요…SUBSTR 는 ”
(SUbstr zz 1 10 )
(SUBSTR 변수명,시작위치,문자수)
이죠….
근대 이렇게말구여..
TXT파일에서 읽을려구 하거든요..
문자를 뛰어쓰기 한부분으로 DATA를 받아드릴려면..
어떤 명령어를 사용해야 하나요…
고수님들 부탁 합니다…꾸벅
아래의 리습을 만들던 중 이었읍니다. (defun dtr(a) (setq x (* pi (/ a 180.0))))
;;;
(defun c:cpp()
(setq fname (getfiled “file select” “C:My Documents” “txt” 4))
(setq fn (open fname “r”))
(setq zz (read-line fn))
(setq kk (list 0 0 ))
(while (/= zz nil)
(setq n (substr zz 31) y (SUbstr zz 1 10 ) x (substr zz 11 12) h (substr zz 23 7 ))
(setq yy (atof y ) xx (atof x )hh(atof h) )
(setq c(list xx yy))
(setq hhh(rtos hh 2 3))
(setq no(strcat n ))
(command “-layer” “m” “cp” “c” “7” “” “”)
(command “-style” “gwang” “굴림.shx, 굴림.SHX” “” “” “” “” “” “” )
(setvar “osmode” 0 )
(setq p1(polar c (dtr 160) 6))
(setq p2(polar c (dtr 214) 8.6))
(command “circle” c 1 “” )
(command “circle” c 0.9 “”)
(command “text” p1 2.5 90 no “”)
(command “text” p2 2.5 90 hhh “”)
(setq kk pp)
(setq zz (read-line fn))
)
(close fn)
)
TXT 데이타를 캐드에 뿌릴려구 하는데 문자의 자릿수가 틀려서
엉망으로 뿌려져요
조언 부탁 드립니다. 꾸벅