open파일을 읽을려고하는데요
(defun dtr(a) (setq x (* pi (/ a 180.0))))
;;;
(defun c:cpp()
(setq fname (getfiled “file select” “” “” 4))
(setq fn (open fname r))
(setq zz (read-line fn))
(setq kk (list 0 0 ))
(while (/= zz nil)
(setq n (substr zz 1 5) y (SUbstr zz 7 18 ) x (substr zz 19 30) h (substr zz 30 ))
(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” “romans.shx, WHGTXT.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)
)
file select에서 open 해서 txt파일을 쓸려고
하거든여..
근대 file select은 불러지는데..
open문 에서 파일을 못쓰거든요..고수님 한번 봐 주세요
txt 데이타를 캐드루 뿌릴려구 하거든요..