리습 수정점 부탁드립니다…

전에 대각선치수 때문에 올렸던 사람인데요…혁명주동자님이 말씀하신 프로그램은 잘 안깔려요….ㅡㅜ
그래서 제가 리습을 어설프게 만들려구요..근데 모르는게 넘 많네요..^^;;
일단 제가 만든 건…
(defun c:dw (/)
(setq pt1 pt2 pt3 pt4)
(setq pt1 (getpoint “npoint:”))
(setq pt2 (getpoint “npoint:”))
(setq pt3 (getpoint “npoint:”))
(setq pt4 (getpoint “npoint:”))
(command “DIMLINEAR” pt3 pt4 “r” pt1 pt2)
(princ)
)
여기까지 입니다…질문은요…pt1과 pt2 포인트는 고정 시켜놓고 pt3 pt4만 다른 포인트를 찍으면서 반복하다 엔터키를 누르면 명령어가 종료되는
거 까지 만들려구요….고수님들 시간나시면 수정점 해주세요…^^;;
혹시해서 첨.참두 같이 올립니다…