안녕하세요~

리습을 알아가는 중입니다.

사각형을 그리는데
 
지점 2곳을 클릭하고 좌,우,상,하 방향 지정 후

 그 선과 직교하는 길이를 입력하면 사각형이 그려지는 리습좀 부탁드립니다.


(defun c:zrec()
(setvar “cmdecho” 0)
(and
(setq cp (getpoint “n사각형 삽입 점 지정:”))
(setq w (getdist “n가로 길이 입력:”))
(setq h (getdist “n세로 길이 입력:”))
(setq temp (list (/ w 2.) (/ h 2.)))
(vl-cmdf “rectang” “_non” (mapcar ‘- cp temp) “_non” (mapcar ‘+ cp temp))
(vl-cmdf “rotate” (entlast) “” “_non” cp)
)
(princ)
)


여기서 어떻게 바꾸면 될거 같은데 지식이 좀 짧네요.. ㅡㅡ;

네모 박스를 그려야 하는데 양이 많습니다. 그렇다고 크기가 일정한것도 아니구요. 크기가 틀린 원을 기준으로 사각형을 그려야 합니다.
그림 첨부합니다.
간단하게 원에서 QUA로 점을 잡고 이것을 변으로 하여 자동으로 사각형을 그리고자 하는데 가능한지요
많은 답변 부탁드립니다.