[求助]：如何判断一点在PLINE的哪一侧？

Free-Lancer

最初由 oyxx_1023 发布
[B]楼上所说不知道对这个问题有用吗？ [/B]

当然有用

2. 
   
3. (defun pntonline (p1 p2 p3 / p c B C P)
   
4.   (setq p p3)
   
5.   (apply '+
   
6.          (mapcar '(lambda (b)
   
7.                     (setq c (- (* (car p) (cadr b)) (* (cadr p) (car b)))
   
8.                           p b
   
9.                     )
   
10.                     c
    
11.                   )
    
12.                  (list p1 p2 p3)
    
13.          )
    
14.   )
    
15. )
    
16. ;;0 线上 1 右侧 2 左侧，左右以线的前进方向为基准
    
17. (defun ptoncurve (curve pt / p1 p2 v val)
    
18.   (setq        p1 (vlax-curve-getclosestpointto curve pt)
    
19.         v  (vlax-curve-getfirstderiv
    
20.              curve
    
21.              (vlax-curve-getparamatpoint curve p1)
    
22.            )
    
23.         p2 (mapcar '+ p1 v)
    
24.   )
    
25.   (setq val (pntonline p1 p2 pt))
    
26.   (cond
    
27.     ((equal val 0.00001)
    
28.      0
    
29.     )
    
30.     ((< val 0.)
    
31.      1
    
32.     )
    
33.     (t 2)
    
34.   )
    
35. )

<br /> (defun pntonline (p1 p2 p3 / p c B C P)<br />   (setq p p3)<br />   (apply '+<br />          (mapcar '(lambda (b)<br />                     (setq c (- (* (car p) (cadr b)) (* (cadr p) (car b)))<br />                           p b<br />                     )<br />                     c<br />                   )<br />                  (list p1 p2 p3)<br />          )<br />   )<br /> )<br /> ;;0 线上 1 右侧 2 左侧，左右以线的前进方向为基准<br /> (defun ptoncurve (curve pt / p1 p2 v val)<br />   (setq        p1 (vlax-curve-getclosestpointto curve pt)<br />         v  (vlax-curve-getfirstderiv<br />              curve<br />              (vlax-curve-getparamatpoint curve p1)<br />            )<br />         p2 (mapcar '+ p1 v)<br />   )<br />   (setq val (pntonline p1 p2 pt))<br />   (cond<br />     ((equal val 0.00001)<br />      0<br />     )<br />     ((< val 0.)<br />      1<br />     )<br />     (t 2)<br />   )<br /> )

aeo

其实判断方向，应该用叉积求

下面比较好理解:

直线方向知道，-->ang
它的中点也知道
中点向顺时针方向偏一小点－－》p1。(ang - pi/2)

如果要求的点p0-p1和直线相交，那p0肯定是绕过了这一直线的(肯定在逆时针方向)

eachy

16 楼的程序求出 3 点（拾取点、曲线的垂点、垂点处的切线点）后就是用叉积求关系