홈/ 질문/Q 28181
다음
진행 중
Something went wrong with the plugin API.
등록일: 2002-01-22T17:17:42+09:00 카테고리:

외부 data file을 open하여 pline으로 연속선을 그리려면….

외부 data file이 x,y 좌표값으로 100개 이상 구성되어 있습니다.
이 file을 txt file로 구성되어 있습니다.
autolisp로 이 file을 open하여
pline으로 연속선을 그리고자 합니다.
방법을 아시는 분이나 예제 file을 가지고 계신 분이 있으면
저에게 보내 주시면 정말 감사 하겠습니다.

공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 예전부터 많이 나오는 질문이네여…
      이것과 비슷하게짠 리습 찾아보시면 많을텐데…질문란에서..
      글쓴이 “빌린인생” 해도 예전에 제가 짯던 리습을 찾으실수 있을껍니다..

      거기서 블록인서트 하는 부분만 피라인으로 바꿔 사용하시면..
      만약 잘 안되시면 님께서 가지고 계신 txt파일을 올려주세여…
      그럼 그 파일에 맞추어서 리습을 편집해 올려드리겠음다..^^

      • 0

    3. 예전에것 수정해서 올립니다

      (defun c:chrr()

      (setq fn (open “C:hahamap-kj.txt” “r”)) ;;<====디렉토리 수정해서 사용하세여
      (setq zz (read-line fn)) ;; 텍스트 문서를 읽어서 저장
      (setq kk (list 0 0)) ;;<=== 초기값설정
      (while (/= zz nil) ;; 좌표값들이 없을때까지 계속
      (setq xx (substr zz 18 10) ;;<====x좌표값 추출 수정해서 사용
      yy (substr zz 6 10) ;; <====y좌표값 추출 수정해서 사용
      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 “” “” “”);;
      ; (command “text” dd “20” “0” qq “”)

      (command “pline” kk pp “”)
      (setq kk pp)
      (setq zz (read-line fn))

      );wh

      (close fn)
      )
      ;; 다 그려진 다음에 0,0에서 처음에 그려진 라인삭제…^^
      꼭 성공하시길..^^

      검증은 안된 플그램이라 쫌 불안은 하네여…^^

      • 0