안녕하세요.
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를 제외한 각 좌표의 점들만)과 ;로 끝나는 한 줄의 끝을 인식하는 방법은 어떤방법이 있나요..?
도움말에 substr함수로 P의 유무를 확인, 나머지는 스페이스(공백)으로 구분하여 atof함수로 실수 변환
답변 감사드립니다.
(setq x1 (itoa x1))
제가 잘 모르지만 작성해보았는데 이렇게 하는게 맞나요?
(setq rl (substr “P” 1))
(setq rl (vl-string-left-trim “P” rl))
(setq x1 (read rl))
(setq rl (vl-string-left-trim ” ” rl))
(setq rl (vl-string-left-trim x1 rl))