yu960312 发表于 2022-5-13 21:05:57

已知P1 P2 P3 三点，怎么求三点夹角A角度？

本帖最后由 yu960312 于 2022-5-13 21:15 编辑

如题：已知P1 P2 P3 三点，怎么求三点夹角A角度？

天天问 发表于 2022-5-14 15:40:54

D:\1.JPG直线夹角，和向量夹角的公式都送你了

xyp1964 发表于 2022-5-14 12:27:56

(defun abc (p1 pt p3 / ang)
(setq ang (- (angle pt p3) (angle pt p1)))
(if (< ang 0)(setq ang (+ (* 2.0 pi) ang)))
(if (> ang pi)(setq ang (- (* 2.0 pi) ang)))
ang
)

yshf 发表于 2022-5-13 21:22:19

(setq ang (- (angle p1 p3) (angle p2 p3)))
(if (> ang (* 2.0 pi)) (setq ang (- (* 2.0 pi) ang)))

yu960312 发表于 2022-5-13 22:25:33

yshf 发表于 2022-5-13 21:22
(setq ang (- (angle p1 p3) (angle p2 p3)))
(if (> ang (* 2.0 pi)) (setq ang (- (* 2.0 pi) ang)))

感谢大哥指教:handshake

咏郡 发表于 2024-8-5 20:06:33

xyp1964 发表于 2022-5-14 12:27
(defun abc (p1 pt p3 / ang)
(setq ang (- (angle pt p3) (angle pt p1)))
(if (< ang 0)(setq ang...

感谢，受教了

muai2010 发表于 2024-8-5 21:44:00

感谢分享....
页: [1]
查看完整版本: 已知P1 P2 P3 三点，怎么求三点夹角A角度？