좌표점으로 도형그리는 LISP관련 문의드립니다.
컨텐츠 정보
- 951 조회
- 3 댓글
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요.
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를 제외한 각 좌표의 점들만)과 ;로 끝나는 한 줄의 끝을 인식하는 방법은 어떤방법이 있나요..?
관련자료
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))