감사합니다……….꾸벅
갈켜주신대로 수정하니까
2000에선 실해이 되는대…r14에선 실행 안되요.
왜 그런지 한번만 봐 주세요.
(defun kht-string->list (a b / app ex)
(setq app (list))
(while (setq ex (vl-string-position (ascii a) b))
(if (/= “” (substr b 1 ex))
(setq app (append app (list (substr b 1 ex))))
)
(setq b (substr b (+ ex 2)))
)
(cond
((and app (/= b “”)) (append app (list b)))
(app app)
(t (list b))
)
)
(defun dtr(a) (setq x (* pi (/ a 180.0))))
;;;
(defun c:cpp6()
(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 li(kht-string->list “t” zz))
(setq n (nth 0 li))
(setq y (nth 1 li))
(setq x (nth 2 li))
(setq h (nth 3 li))
(setq yy (atof y ) xx (atof x ))
(setq c(list xx yy))
(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) 3))
(setq p2(polar c (dtr 214) 4.3))
(command “circle” c 0.5 “” )
(command “circle” c 0.4 “”)
(command “text” p1 1.25 90 no “”)
(command “text” p2 1.25 90 h “”)
(setq kk pp)
(setq zz (read-line fn))
)
(close fn)
)