대각점 지정으로 타원 그리기

직각 사각형 범위를 기준으로 장축 단축을 가진 타원 그리기
p1, p2는 대각점 지정
p1el, p2el 장축 지정
p3el 장축에서 수직으로 단축 지정
타원 장축 단축으로 그리기 명령

(defun KM:EL ( / p1 p2 p1el p2el p3el)
(setq p1 (getpoint "\nPick point: ") p2 (getcorner p1 "\nPick Corner: "))
(setq p1el (list (car p1) (+ (/ (- (cadr p2) (cadr p1)) 2.0) (cadr p1))))
(setq p2el (list (car p2) (+ (/ (- (cadr p2) (cadr p1)) 2.0) (cadr p1))))
(setq p3el (list (+ (car p1) (/ (- (car p2) (car p1)) 2.0)) (cadr p2)))
(command "ellipse" p1el p2el p3el)
(princ)
)

;;(setq p1 '(0 0) p2 '(12 0) p3 '(-4 0) dir 120)
(command "arc" p2 "e" p1 "d" dir)
(command "arc" p1 "e" p3 "d" dir)

두점과 방향을 지정해서 호 그리기 (반시계방향 지정) --> 구름마크 생성 모듈