点是否在直线段的左上侧

Lispboy

1. ;|
   
2. 点是否在直线的左上侧
   
3. |;
   
4. (defun XD::Pnt:IsLeftTopByLine(pnt p1 p2)
   
5.    (if (minusp (XD::Geom:P2L-Dist pnt p1 p2))
   
6.       t
   
7.    )
   
8. )
   
9. 
   

;|<br /> 点是否在直线的左上侧<br /> |;<br /> (defun XD::Pnt:IsLeftTopByLine(pnt p1 p2)<br />    (if (minusp (XD::Geom:P2L-Dist pnt p1 p2))<br />       t<br />    )<br /> )<br /> <br />

taner

2. ==================================================================
   
3. ;;; area of triangle
   
4. (defun area-triangle  (pt1 pt2 pt3 / x1 x2 x3 y1 y2 y3)
   
5.   (setq  x1 (car pt1)
   
6.   y1 (cadr pt1)
   
7.   x2 (car pt2)
   
8.   y2 (cadr pt2)
   
9.   x3 (car pt3)
   
10.   y3 (cadr pt3)
    
11.   )
    
12.   (- (+ (* x1 y2) (* x2 y3) (* x3 y1))
    
13.      (+ (* x2 y1) (* x3 y2) (* x1 y3))
    
14.   )
    
15. )
    
16. ;;; ==================================================================
    
17. (defun 3pts-clockwise-p (pt1 pt2 pt3 / area　return)
    
18.   (setq area (area-triangle pt1 pt2 pt3))
    
19.   (cond
    
20.     ((< area 0)
    
21.      (setq return -1)
    
22.     )
    
23.     ((equal area 0 1e-10)
    
24.      (setq return 0)
    
25.     )
    
26.     ((> area 0)
    
27.      (setq return 1)
    
28.     )
    
29.   )
    
30. )
    
31. ;;; -1?t1 pt2 pt3顺时针，1　逆时针, 0共线
    
32. ;;; ==================================================================

==================================================================<br /> ;;; area of triangle<br /> (defun area-triangle  (pt1 pt2 pt3 / x1 x2 x3 y1 y2 y3)<br />   (setq  x1 (car pt1)<br />   y1 (cadr pt1)<br />   x2 (car pt2)<br />   y2 (cadr pt2)<br />   x3 (car pt3)<br />   y3 (cadr pt3)<br />   )<br />   (- (+ (* x1 y2) (* x2 y3) (* x3 y1))<br />      (+ (* x2 y1) (* x3 y2) (* x1 y3))<br />   )<br /> )<br /> ;;; ==================================================================<br /> (defun 3pts-clockwise-p (pt1 pt2 pt3 / area　return)<br />   (setq area (area-triangle pt1 pt2 pt3))<br />   (cond<br />     ((< area 0)<br />      (setq return -1)<br />     )<br />     ((equal area 0 1e-10)<br />      (setq return 0)<br />     )<br />     ((> area 0)<br />      (setq return 1)<br />     )<br />   )<br /> )<br /> ;;; -1?t1 pt2 pt3顺时针，1　逆时针, 0共线<br /> ;;; ==================================================================

q3_2006

直线自己也有方向的，这个函数有意义吗？？

kkt123

这个函数有意义:@:@

czcxxx_01

直线自己也有方向的，这个函数有意义吗？？