CR表示,圆心在 射线AB的右边。CL,圆心在射线AB的左边
小弧
大弧
!只通过弧端点与圆心不能描述一段弧,需要确定顺时针还是逆时针。
(cond ((or (and (< bulge 0) (> h r)) (and (> bulge 0) (< h r)))
(progn
(setq x0 (- (* (car vecAC) (cos beta)) (* (cadr vecAC) (sin beta))))
(setq y0 (+ (* (cadr vecAC) (cos beta)) (* (car vecAC) (sin beta))))
)
)
((or (and (> bulge 0) (> h r)) (and (< bulge 0) (< h r)))
(progn
(setq x0 (+ (* (car vecAC) (cos beta)) (* (cadr vecAC) (sin beta))))
(setq y0 (- (* (cadr vecAC) (cos beta)) (* (car vecAC) (sin beta))))
)
)
)