프로그램
캐드 분류

좌표점으로 도형그리는 LISP관련 문의드립니다.

컨텐츠 정보

본문

안녕하세요.

LISP을 이용해 메모장에 있는 좌표점을 도형으로 그리고자 합니다.
다른 LISP 파일을 받아 시도해봤지만 막막하네요..

제가 시도하고 있는 예시 첨부 드립니다.

DS 1 1 10;
9 SAW;
L ONW;
P 97762 260000 104489 260000 104489 270000 97762 270000 97762 260000;
P 97762 270000 104489 270000 151128 476645 144487 476645 97762 270000;
DF;


End;

위와 같이 4번째 줄부터 좌표값이 나와있고 X1, Y1, X2, Y2, X3, Y3, X4, Y4, X5, Y5의 5개 점으로 폴리라인을 그려 하나의 도형이 만들어집니다.

여기서 총 Line의 수 이런것은 없고 앞에 P가 적힌 줄에 대한 데이터를 읽는 방법 (P를 제외한 각 좌표의 점들만)과 ;로 끝나는 한 줄의 끝을 인식하는 방법은 어떤방법이 있나요..?


 

관련자료

댓글 3 / 1 페이지

뭐하남님의 댓글

도움말에 substr함수로 P의 유무를 확인, 나머지는 스페이스(공백)으로 구분하여  atof함수로 실수 변환

Cheshire님의 댓글

답변 감사드립니다. 제가 잘 모르지만 작성해보았는데 이렇게 하는게 맞나요? (setq rl (substr P 1)) (setq rl (vl-string-left-trim "P" rl)) (setq x1 (read rl)) <?xml:namespace prefix = "o" ns = "urn:schemas-microsoft-com:office:office" />

(setq x1 (itoa x1)) (setq rl (vl-string-left-trim " " rl)) (setq rl (vl-string-left-trim x1 rl))

전체 61 / 2 페이지
RSS
번호
제목
이름

최근글


새댓글


알림 0