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

oyxx_1023

该多义线没有与自己交叉。也没有回头。如何用LISP判断一点位于其左侧还是右侧？（假设该点在多义线的长度范围内）

cqnj023

用该点与线的垂足方向以及垂足两侧极近点的方向来比较

oyxx_1023

不错，思路很好。但是怎么获得这个“极近点”呢？如果这个垂足点刚好在一断直线上呢？

aidraft

vlax-curve-getClosestPointTo

kkk3kkk

第二点是左侧，第一点是右侧，测试过的。。。

panzhongw

有高人能编个示例吗？这个程序很有用的

kkk3kkk

第二点，自己改。。。。。。。。。。。


(defun T-offset()
(setq s (ssget  "X"  '((-4 . "<OR")
              (0 . "LWPOLYLINE")
              (0 . "POLYLINE")
              (-4 . "OR>")
             )
         )
    )
             (setq P(sslength s) q 20)
             (setq N 0 )
             (setq p (- p 1))
             (while (<= n p)
             (setq nam(ssname s n)
                  de(cdr (assoc 10(entget nam)))  );第一点
             (command "offset"q nam  de"")
             (setq n (+ n 1))))

oyxx_1023

谢谢。楼上的程序没看太明白（没调试），不过倒给我一个启示。可以过该点作PL的垂线得出垂直距离，然后OFFSET 这个PLINE，往左边偏一次（距离为已求出），然后判断该点是否在PL上，在的话该点就在PL的左侧，否则就在右侧。我说的对不对？
不过这样的话就太麻烦了，得写不短的代码。

再请问一下4楼的高人，这是个什么函数，好象没见过。能直接判断点的位置吗，肯请指点一下它的功能和用法，好吗？

panzhongw

这种方法是否欠妥？比较麻烦，能有更好的方法吗
想CAD中的OFFSET在使用时可能也存在左右判断的问题

oyxx_1023

是啊， 我想知道四楼说的是个什么函数？

zhang8755

先简化成判断点在line的那一侧，利用极坐标，见下图：直线ab和点c，以直线的起点作为坐标系的中心
分两种情况
当α>180时,β>α,点在直线的右侧
当α<180时,β<α,点在直线的右侧
大家看看这种方法行不行

梦断江南

楼主的左右是如何定义的？是以图面为参照，还是以多义线的顺逆时针为参照？
说明：以图面为参照会产生多义性，因为有些情况，不知道算是左边还是右边。

oyxx_1023

我传了一个图上来。如下：“1”为AB曲线的左侧，“2”为AB曲线的右侧，如何判断PT1在AB线的左侧还是右侧呢？

它山之石

判断点在直线上的位置，可以参考一下
   
[php]
(defun pntonline(p1 p2 p3 / p c B C P)
  (setq p p3)

  (apply '+ (mapcar '(lambda (b)
    (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )
    (list p1 p2 p3)))
)

[/php]
功能

判断点在直线上的位置

参数

p1,p2：直线上的两点，例如直线上的起点和端点

p3：所要判断的点

返回值

点的位置，等于0时(equal k 0.0 0.00000001)点在线上，

大于0时点在线的左侧，小于0时点在线的右侧

示例

(setq k(pntonline p1 p2 p3))

oyxx_1023

楼上所说不知道对这个问题有用吗？