text file을 케드로????

쉬운? 방법은 스크립트를 이용하는 방법이 있겠군요..
아님 리습으로 text화일을 읽어서 라인을 그려주는 방법도 있겠구요..
(손쉽게 하려면 text화일을 약간? 정리할 필요가 있겠네요..)

안녕하세여… 님이 원하시는 부분을 제가 리습을 통해서 한번 작업해 봤음다
근데 부산 지도라고 그러셨죠..?.. 근데 제가 작업한 결과는 줄이 한선
쭉 그어진 모양밖에는 안나오는뎅…ㅠㅠ

참고로 라인으로 그릴수는 없었음니다.. 왜냐하면 라인의 시작점과 끝점의
좌표를 정확하게 알수 없기 때문이죠.. 어디가 시작이고 어디가끝인지?.. 영~~
그래서 제가 선택한 방법은 좌표값마다 임의의 블록을 인써트 시키는 방법을
통해 대략적인 지도 형태를 볼려고 했었음다.. 그런데 결과가 이상하게 나오네여

물론 제가 리습을 잘못짯을수도 있겠지만.. 제가 생각하기로는 지금 올린 텍스
트 파일이 전체는 아닌듯 싶습니다.. 도곽의 일부 정도 되는것 같네여..

(defun c:chrr()

(setq fn (open "C:hahamap-kj.txt" "r")) ;;<====디렉토리 수정해서 사용하세여
(setq zz (read-line fn))

(while (/= zz nil)
(setq xx (substr zz 18 10)
yy (substr zz 6 10)
qq (substr zz 1 4))
(setq gg (substr xx 1 10)
hh (substr xx 17 9)
jj 0.0)
(setq gg (atof xx )
hh (atof yy ))
(setq pp (list gg hh jj))
(setq dd (polar pp 5.77613 10.9543))
(command "insert" "p" pp "" "" "");; <==========임의의 블록을 아주작게 한개 만드세여. "P"란이름으로
; (command "text" dd "20" "0" qq "")
(setq zz (read-line fn))

);wh

(close fn)
)

제가 작업해 결과값을 얻는 도면도 같이 올립니다..
교수님한테 한번 물어봐 주세여..그텍스트 파일이 전체인지.. 물론아닐겁니다..^^

블록의 수를 세어보니 26000개 이상이 나왔거든여..그러니 그내용의 것은 다
블록으로 인써트 되었는데 모양이 영…~~

** 그리고 님이 보신것처럼 좌표값으로만으로도 도면은 그려질수 있음다 **

*좌표값들을 살펴보시면 아시겠지만 좌표값들의 변화가 거의 없거든여.. 그러니
이러한 데이타 밖에 안나올꺼란 쉬운 결론도 나오네여^^