배관 spacing 나타내는 리습인데
——————————————————————–
(defun pipedata ()
(setq fp (open (findfile “c:/lisp/pipe.txt”) “r”)) <—————————-이부분
(setq str (read-line fp))
(setq lp 1)
(while lp
(setq bigsize (atof (substr str 1 4))
bd (/ (atof (substr str 10 4)) 2)
bf1 (/ (atof (substr str 50 4)) 2)
)
(if (= str nil) (setq lp nil))
(if (= bigsize big) (setq lp nil))
(setq str (read-line fp))
);while
(close fp)
(setq fp (open (findfile “c:/lisp/pipe.txt”) “r”)) <—————————-이부분
(setq str (read-line fp))
(setq lp 1)
(while lp
(setq smtsize (atof (substr str 1 4))
sd (/ (atof (substr str 10 4)) 2)
sf1 (/ (atof (substr str 50 4)) 2)
)
(if (= str nil) (setq lp nil))
(if (= smt smtsize) (setq lp nil))
(setq str (read-line fp))
);while
(close fp)
(if (> bd sd)
(setq m (fix (+ bf1 sd 25.0)))
(setq m (fix (+ bd sf1 25.0)))
)
(setq len (substr (rtos m) (strlen (rtos m))))
(setq m (+ m (- 10 (atof len)) ins))
)
————————————————
빨간색 부분인데 저게 강제 경로가 말고 현재있는 폴더 (다른폴더로 복사해도 file을 불러드리게) 로 하고싶습니다..
고수님들의 조언 부탁드립니다…