기준점을 설정한 후, 기준점에서 3 point의 가로 세로 상대거리 입력한 다음
3 point를 폴리라인으로 연결을 하려고 합니다.
다음과 같이 리습을 짰는데,
가운데 P2 대신에 기준점이 잡힙니다.
고수님들 도움 요청드립니다.
(defun c:123(/ FL RH RD CH CD LH LD P1 P2 P3)
(setq FL (getpoint “n select FL Ponit:”));; 기준점
(setq RH (getdist “n input right offset:”));; 기준점에서 P1의 Y거리
(setq RD (getdist “n input right distance:”));; 기준점에서 P1의 X거리
(setq CH (getdist “n input center offset:”));; 기준점에서 P2의 Y거리
(setq LH (getdist “n input left offset:”));; 기준점에서 P3의 Y거리
(setq LD (getdist “n input left distance:”));; 기준점에서 P3의 X거리
(setq P1 (list (+(car FL) RD) (+(cadr FL) RH)));; P1 좌표 정의
(setq P2 (list (+(car FL) ) (+(cadr FL) CH)));; P2 좌표 정의
(setq P3 (list (+(car FL) LD) (+(cadr FL) LH)));; P3 좌표 정의
(Command “pline” P1 P2 P3 “”)
(princ)
)
P2는 기준점과 x좌표는 언제나 같고, y좌표만 수정이 되어서 CD는 정의하지 않았습니다.
도움 요청 드립니다.