如何判断是否共线

明天你好

拾取2条线，判断这两条线是否共线 ，拾取的两条线有两种可能
1：是两条直线(line)对象
2：是这“两条”是一条多段线上的两段


用 nentselp 获取， 要如何写呢？

Lisphk

一条线的两个顶点距离另一条线的距离都等于0，就共线了。

Lisphk

你自己可以试下，用NENTSEL是选择不到多段线上的一段的，和entsel结果是一样的。 因为是一个实体。
nentsel能点选块内的子实体。

明天你好

Lisphk 发表于 2017-5-15 20:27

写不出来， 特别是多段线的处理

newer

明天你好 发表于 2017-5-15 20:29

你用LISP，（对于都是直线段）也只能去找到各个顶点成的表了，然后两两一对，就代表线了。

怎么获得顶点表，用 多段线 搜索下论坛，很多。

XD API就简单多了。今天发布的函数 xd::polyline:getSegAt 就是根据一个点，得到所在的段。
http://bbs.xdcad.net/forum.php?m ... sortid%26sortid%3D1

newer

明天你好 发表于 2017-5-15 20:29

你这问题用XDRX API，简单的几行代码，API提供了丰富的对多段线处理的函数

1. (defun c:tt (/ e1 p1 e2 p2 poly g1 g2)
   
2.   (if (and (setq e1 (xdrx_entsel "\n拾取线段<退出>:"))
   
3.            (setq p1 (cadr e1)
   
4.                  e1 (car e1)
   
5.            )
   
6.            (setq e2 (xdrx_entsel "\n拾取线段2<退出>:"))
   
7.            (setq p2 (cadr e2)
   
8.                  e2 (car e2)
   
9.            )
   
10.       )
    
11.     (progn
    
12.       (if (and (eq e1 e2)
    
13.                (xdrx_object_isa e1 "AcDbPolyline")
    
14.                (/= (xd::polyline:onsegat e1 p1)
    
15.                    (xd::polyline:onsegat e2 p2)
    
16.                )
    
17.           )
    
18.         (progn
    
19.           (setq poly t
    
20.                 g1   (xd::polyline:getSegAt e1 p1)
    
21.                 g2   (xd::polyline:getSegAt e2 p2)
    
22.           )
    
23.         )
    
24.         (progn
    
25.           (if (and (xdrx_object_isa e1 "AcDbLine")
    
26.                    (xdrx_object_isa e2 "AcDbLine")
    
27.               )
    
28.             (progn
    
29.               (setq g1 (xdge::constructor e1)
    
30.                     g2 (xdge::constructor e2)
    
31.               )
    
32.             )
    
33.           )
    
34.         )
    
35.       )
    
36.       (if (and g1 g2)
    
37.         (progn
    
38.           (if poly
    
39.             (princ "\n选择了多段线的两段.")
    
40.             (princ "\n选择了两条直线.")
    
41.           )
    
42.           (if (xdge::getpropertyvalue g1 "isColinearTo" g2) ;;判断是否共线
    
43.             (princ "\n它们共线!")
    
44.             (princ "\n它们不共线!")
    
45.           )
    
46.           (xdge::free g1 g2)
    
47.         )
    
48.       )
    
49.     )
    
50.   )
    
51.   (princ)
    
52. )
    
53. 
    

(defun c:tt (/ e1 p1 e2 p2 poly g1 g2)<br />   (if (and (setq e1 (xdrx_entsel "\n拾取线段<退出>:"))<br />            (setq p1 (cadr e1)<br />                  e1 (car e1)<br />            )<br />            (setq e2 (xdrx_entsel "\n拾取线段2<退出>:"))<br />            (setq p2 (cadr e2)<br />                  e2 (car e2)<br />            )<br />       )<br />     (progn<br />       (if (and (eq e1 e2)<br />                (xdrx_object_isa e1 "AcDbPolyline")<br />                (/= (xd::polyline:onsegat e1 p1)<br />                    (xd::polyline:onsegat e2 p2)<br />                )<br />           )<br />         (progn<br />           (setq poly t<br />                 g1   (xd::polyline:getSegAt e1 p1)<br />                 g2   (xd::polyline:getSegAt e2 p2)<br />           )<br />         )<br />         (progn<br />           (if (and (xdrx_object_isa e1 "AcDbLine")<br />                    (xdrx_object_isa e2 "AcDbLine")<br />               )<br />             (progn<br />               (setq g1 (xdge::constructor e1)<br />                     g2 (xdge::constructor e2)<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (if (and g1 g2)<br />         (progn<br />           (if poly<br />             (princ "\n选择了多段线的两段.")<br />             (princ "\n选择了两条直线.")<br />           )<br />           (if (xdge::getpropertyvalue g1 "isColinearTo" g2) ;;判断是否共线<br />             (princ "\n它们共线!")<br />             (princ "\n它们不共线!")<br />           )<br />           (xdge::free g1 g2)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

st788796

同一条线上的直线段可以这样（不考虑弧段)

2. 
   
3. (defun c:test (/ _getseg e e1 sp1 ep1 sp2 ep2 v)
   
4.   (defun _getseg (l / p m i)
   
5.     (setq p (apply 'vlax-curve-getclosestpointto l)
   
6.           m (vlax-curve-getparamatpoint (car l) p)
   
7.           i (fix m)
   
8.     )
   
9.     (list (vlax-curve-getpointatparam (car l) i)
   
10.           (vlax-curve-getpointatparam (car l) (1+ i))
    
11.     )
    
12.   )
    
13.   (if (and (setq e (entsel "\npick first pline: "))
    
14.            (setq e1 (entsel "\npick second pline: "))
    
15.            (eq (car e) (car e1))
    
16.            (mapcar 'set '(sp1 ep1) (_getseg e))
    
17.            (mapcar 'set '(sp2 ep2) (_getseg e1))
    
18.            (setq v (mapcar '- ep2 sp2))
    
19.            (< (abs (car (trans (mapcar '- sp1 sp2) 0 v))) 1e-6)
    
20.            (< (abs (car (trans (mapcar '- ep1 sp2) 0 v))) 1e-6)
    
21.       )
    
22.     (princ "\n共线!")
    
23.     (princ "\n非共线!")
    
24.   )
    
25.   (princ)
    
26. )
    

<br /> (defun c:test (/ _getseg e e1 sp1 ep1 sp2 ep2 v)<br />   (defun _getseg (l / p m i)<br />     (setq p (apply 'vlax-curve-getclosestpointto l)<br />           m (vlax-curve-getparamatpoint (car l) p)<br />           i (fix m)<br />     )<br />     (list (vlax-curve-getpointatparam (car l) i)<br />           (vlax-curve-getpointatparam (car l) (1+ i))<br />     )<br />   )<br />   (if (and (setq e (entsel "\npick first pline: "))<br />            (setq e1 (entsel "\npick second pline: "))<br />            (eq (car e) (car e1))<br />            (mapcar 'set '(sp1 ep1) (_getseg e))<br />            (mapcar 'set '(sp2 ep2) (_getseg e1))<br />            (setq v (mapcar '- ep2 sp2))<br />            (< (abs (car (trans (mapcar '- sp1 sp2) 0 v))) 1e-6)<br />            (< (abs (car (trans (mapcar '- ep1 sp2) 0 v))) 1e-6)<br />       )<br />     (princ "\n共线!")<br />     (princ "\n非共线!")<br />   )<br />   (princ)<br /> )<br />

明天你好

谢谢以上回复的几位大师！以及lispboy发布的函数