[LISP函数]：求两直线指定夹角

abel1

两直线夹角一般有两个值，指定一点位置，求出该点所对的直线夹角

cy956

你判断点线关系就能写出来。送一个函数，可能你已经有的。

2. 
   
3. 
   
4. (defun cy_left(p1 p2 p3 / k p c B C P);;;p3点位于p1p2的关系
   
5.   (setq p p3)
   
6.   (setq k(apply '+ (mapcar '(lambda (b)
   
7.     (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )
   
8.     (list p1 p2 p3))))
   
9.   (cond
   
10.     ((equal k 0.0 0.000001) 0.0);;上,此精度太小会出错
    
11.     ((> k 0) 1);;左
    
12.     (t -1);;右
    
13.   )
    
14. )
    
15. 
    

<br /> <br /> (defun cy_left(p1 p2 p3 / k p c B C P);;;p3点位于p1p2的关系<br />   (setq p p3)<br />   (setq k(apply '+ (mapcar '(lambda (b)<br />     (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )<br />     (list p1 p2 p3))))<br />   (cond <br />     ((equal k 0.0 0.000001) 0.0);;上,此精度太小会出错<br />     ((> k 0) 1);;左<br />     (t -1);;右<br />   )<br /> )<br /> <br />

eachy

最初由 abel1 发布
[B]两直线夹角一般有两个值，指定一点位置，求出该点所对的直线夹角 [/B]

用向量的概念就容易了，两条线上的拾取点加上交点，三个点就决定了夹角，不会是另外的角。

pang94_98

学习学习,谢谢楼主贡献.