(defun main1()

(setq pt1 (getpoint “nREC3>> 1’st point pick.!”))
(while pt1
(setq pt2 (getpoint pt1 “n>> 2’nd pick.!”)
ag1 (angle pt1 pt2)
ag2 (angle pt2 pt1)
);;setq
(rtd ag1) (setq ag1- ang-)
(rtd ag2) (setq ag2- ang-)
(if pt2
(command “line” pt1 pt2 “”)
)
(setq pt3 (getpoint pt2 “nREC3>> 3’rd point pick.!”))
(if (= pt3 nil) (command “u”))
(setq ds (distance pt1 pt2)
ds1 (distance pt2 pt3)
ag3 (angle pt1 pt3)
);;setq
(rtd ag3) (setq ag3- ang-)

(if (> ag1- ag2-) ;;
(setq ag4- ag1- ;; 3,4사분면 때문에
ag1- ag2- ;;
ag2- ag4-) ;;
);;if
(if (and (< ag1- ag3-) (> ag2- ag3-)) ;; 3 point 위치 비교
(setq ag4 (+ ag2- -90))
(setq ag4 (+ ag2- 90))
)
(setq ag4 (* pi (/ ag4 180.0)))
(setq pt4 (polar pt2 ag4 ds1))
(setq pt5 (polar pt1 ag4 ds1))
(command “line” pt2 pt4 pt5 pt1 “”)
(command “line” pt1 pt4 “”)
(command “line” pt2 pt5 “”)

위의 내용에서요 세점을 찍고 나면 사각형이 그려 지더라구요 세번째 점까지 찍고 나면 n>> 2’nd pick.!” 이렇게 해서 다음 점을 물어 보더라구요…이게 안 나왔으면 해요…그냥 세번째 점까지만 찍고 사각형 그린후 끝나는 방법 n>> 2’nd pick.!” 이 문구가 안나오는 것좀 가르쳐주세요.
리습을 좀 수정해 보려구요…예전에 누군가에게 받아서 잘썼는데…부탁드립니다.