arc를(반지름값이 없이그리기) 마우스 드레그해서 그리듯이 사각형을 그리는 리습이 있나요????

설명을 하자면 임의의pline을 그리고, pline이 포함되게  90도로 사각형을 그리면됩니다.

10개또는 그이상의 점을 입력받고 점들을 포함하는 박스를 그릴려면?
(setq pt1 (getpoint “점1번 <<"))
(setq pt1 (getpoint “점2번 <<"))
(setq pt1 (getpoint “점3번 <<")) (setq pt1_X (car pt1))
(setq pt2_X (car pt2))
(setq pt13_X (car pt3))

(setq min_x(min pt1_x pt2_x pt3_x))
(setq max_x(max pt1_x pt2_x pt3_x))

(setq min_y(min pt1_y pt2_y pt3_y))
(setq min_y(min pt1_y pt2_y pt3_y))

(setq min_pt(list min_x min_y))
(setq max_pt(list max_x max_y))

(command “rectangle” min_pt max_pt

이프로그램 풀이도 해주시면 감사하겠습니다
pt1_x?
pt1_y?
car?
cadr?
min_x?
max_x?
rectangle?
max?min?