优弧或劣弧的确定

yshf

;当O、O3、O4三点顺时针排列时，画优弧；
;当O、O3、O4三点逆时针排列时，画劣弧。
;======================== yhlh ============================================
(defun c:yhlh()
(setq o (getpoint "\no:")
o3 (getpoint "\no3:")
o4 (getpoint "\no4:")
amj (sjxmj o o3 o4)
cm (getvar "cmdecho") os (getvar "osmode")
)
(setvar "cmdecho" 0)(setvar "osmode" 0)
(if (< amj 0) (setq pt o3 o3 o4 o4 pt));画劣弧
;(if (> amj 0) (setq pt o3 o3 o4 o4 pt));画优弧用该行
(command "_arc" "c" o o3 o4)
(setvar "cmdecho" cm)(setvar "osmode" os)(princ)

)
;======================== sjxmj ============================================
;不同一条直线上的三个点pt1 、pt2、 pt3 顺时针排列时返回负值；逆时针排列时返回正值。
(defun sjxmj(pt1 pt2 pt3 / x1 y1 x2 y3 x3 y3 mj gh)
(setq x1 (car pt1) y1 (cadr pt1)
x2 (car pt2) y2 (cadr pt2)
x3 (car pt3) y3 (cadr pt3)
mj (+ (* x1 y2) (* x2 y3) (* x3 y1)
(* -1.0 x1 y3) (* -1.0 x2 y1) (* -1.0 x3 y2)
)
)
)

Ea

yshf发表于2005-6-12 22:02:00回复：（yshf）优弧或劣弧的确定 ;当O、O3、O4三点顺时针排列时，画优弧；;当O、O3、O4三点逆时针排列时，画劣弧。;======================== yhlh ================================...

arc 可以直接画三点弧

yshf

说的是用圆心和两点画弧。