社区 › AutoLISP/Visual LISP 编程技术 › 【已解决，勿删】地勘中关于剖线方位角与倾角角度关系解法。

liuhe 发表于 2022-11-7 23:10:27

(defun flag1 (a b)
   (if (< (abs (- a b)) 90)
   1
   -1
   )
)

(flag1 90 180)
-1
(flag1 91 180)
1
(flag1 90 185)
-1
(flag1 30 340)
-1
(flag1 10 350)
-1



你看看对么，矢量虽然有方向，但是夹角没有方向，是相对量，相对于参照系，夹角是不变的。

cchessbd 发表于 2022-11-8 00:01:06

本帖最后由 cchessbd 于 2022-11-8 06:36 编辑

liuhe 发表于 2022-11-7 23:10
(defun flag1 (a b)
   (if (< (abs (- a b)) 90)
   1

你这肯定不对。就拿a=30,b=340来说，夹角为50°，小于90°，应该为1。我之前在lisp就是这种算法，大部分是对的，有些角度是错的。

liuhe 发表于 2022-11-8 08:25:45

(defun flag1 (a b)
   (if (and (<=(abs (- a b)) 270)(>=(abs (- a b)) 90))
   -1
   1
   )
)

(flag1 90 180);-1

(flag1 90 185);-1

(flag1 30 330);1

(flag1 30 230);-1

(flag1 30 280);-1

(flag1 30 130);-1
(flag1 80 350);-1

nop 发表于 2022-11-8 09:36:08

liuhe 发表于 2022-11-8 08:25
(defun flag1 (a b)
   (if (and (=(abs (- a b)) 90))
   -1


瞅着像写自瞄时候的ClampAngle:lol

查看完整版本: 【已解决，勿删】地勘中关于剖线方位角与倾角角度关系解法。