明经CAD社区's Archiver
社区
›
AutoLISP/Visual LISP 编程技术
› 计算夹角
RZYiiicass
发表于 2024-3-22 12:06:16
计算夹角
(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)
magicheno
发表于 2024-3-22 12:21:54
感谢大佬分享
页:
[1]
查看完整版本:
计算夹角