判断P1、P2两点之间是否有线段存在

努.力

如题所述，求判断P1、P2两点之间是否有线段存在，并且该线段的一个端点与P1重合，另一个端点与P2重合
麻烦论坛上的大神们帮忙编一段程序，如果P1、P2两点有直线段，就给一个返回值，谢谢了

yaojing38

2. (defun c:tt (/ e ent ent1 i l obj pt1 pt2 s ss)
   
3.   
   
4.   (setq pt1 (getpoint)  pt2 (getpoint))
   
5.   (setq ss (ssget "F" (list pt1 pt2)))
   
6. 
   
7.     (cond
   
8.       
   
9.       (t
   
10.         (repeat (setq i (sslength ss))
    
11.               (setq ent (ssname ss (setq i (1- i))))
    
12.           (setq obj (vlax-ename->vla-object ent)
    
13.          
    
14.             s (vlax-curve-getStartPoint obj)
    
15.             e (vlax-curve-getEndPoint obj)
    
16.           )
    
17.           (if (=  "LWPOLYLINE" (cdr (assoc 0 (entget ent))))
    
18.           (progn
    
19.           (setq l ( - (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)) (vlax-curve-getDistAtPoint obj pt2)))
    
20.            (setq s (vlax-curve-getPointAtParam obj (vlax-curve-getParamAtPoint obj pt1))
    
21.             e (vlax-curve-getPointAtParam obj (vlax-curve-getParamAtPoint obj pt2)))
    
22.           )
    
23.           (setq l (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)))
    
24.           )
    
25.           (if (and (OR (and (equal  s pt1  0.1) (equal  e pt2  0.1)) (and (equal e pt1  0.1) (equal s pt2  0.1)))
    
26.                
    
27.                 (equal (distance pt1 pt2 ) l 0.1)
    
28.               )
    
29.          
    
30.           (setq ent1 ent)
    
31.           )
    
32.       )
    
33.     )
    
34. 
    
35.   )
    
36.   ent1
    
37. )

(defun c:tt (/ e ent ent1 i l obj pt1 pt2 s ss)<br />   <br />   (setq pt1 (getpoint)  pt2 (getpoint))<br />   (setq ss (ssget "F" (list pt1 pt2)))<br /> <br />     (cond <br />       <br />       (t<br />         (repeat (setq i (sslength ss))<br />               (setq ent (ssname ss (setq i (1- i))))<br />           (setq obj (vlax-ename->vla-object ent)<br />           <br />             s (vlax-curve-getStartPoint obj)<br />             e (vlax-curve-getEndPoint obj)<br />           )<br />           (if (=  "LWPOLYLINE" (cdr (assoc 0 (entget ent))))<br />           (progn<br />           (setq l ( - (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)) (vlax-curve-getDistAtPoint obj pt2))) <br />            (setq s (vlax-curve-getPointAtParam obj (vlax-curve-getParamAtPoint obj pt1))<br />             e (vlax-curve-getPointAtParam obj (vlax-curve-getParamAtPoint obj pt2)))<br />           )<br />           (setq l (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)))<br />           )<br />           (if (and (OR (and (equal  s pt1  0.1) (equal  e pt2  0.1)) (and (equal e pt1  0.1) (equal s pt2  0.1)))<br />                 <br />                 (equal (distance pt1 pt2 ) l 0.1)<br />               )<br />           <br />           (setq ent1 ent)<br />           )<br />       )<br />     )<br /> <br />   )<br />   ent1<br /> )

努.力 发表于 2023-12-24 16:38
不知道能不能这样：p1、p2各选一次图元，再以p1、p2的中点选一次图元，如果三次选择都包含同一图元，则再判 ...

炸开比较？？又是多段线又是直线的。。。

xj6019

这样行不，如果P1 P2中间有图元，就返回这个一个选择集结果，如果没有就返回nil

(defun is-p1p2ent (p1 p2 / ss)       
        (if(setq ss (ssget "c"(polar p1(angle p1 p2)(* 0.1(distance p1 p2)))(polar p2(angle p2 p1)(* 0.1(distance p1 p2)))))
                ss
                nil
        )       
)

努.力

xj6019 发表于 2023-12-23 19:31
这样行不，如果P1 P2中间有图元，就返回这个一个选择集结果，如果没有就返回nil

(defun is-p1p2ent (p1  ...

非常感谢长老的回复，用选择集判断，不是那么理想，第一个图形就判断为有了

wzg356

问题不严密：
线段是严格在p1p2区间且同向同线，容差多少
容差---方向？端点偏移距离？

努.力

wzg356 发表于 2023-12-23 20:24
问题不严密：
线段是严格在p1p2区间且同向同线，容差多少
容差---方向？端点偏移距离？

大神说的对，由于对lsp的不了解，所以也不懂如何描述恰当，请海涵……
线段的一个端点与P1重合，另一个端点与P2重合

yaojing38

2. ;;-------------------------------------------------
   
3. (defun c:tt (/ e ent ent1 i l obj pt1 pt2 s ss)
   
4.   
   
5.   (setq pt1 (getpoint)  pt2 (getpoint))
   
6.   (setq ss (ssget "F" (list pt1 pt2)))
   
7. 
   
8.     (cond
   
9.       
   
10.       (t
    
11.         (repeat (setq i (sslength ss))
    
12.               (setq ent (ssname ss (setq i (1- i))))
    
13.           (setq obj (vlax-ename->vla-object ent)
    
14.          
    
15.             s (vlax-curve-getStartPoint obj)
    
16.             e (vlax-curve-getEndPoint obj)
    
17.           )
    
18.           (setq l (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)))
    
19.           (if (and (OR (and (equal  s pt1  0.1) (equal  e pt2  0.1)) (and (equal e pt1  0.1) (equal s pt2  0.1)))
    
20.                
    
21.                 (equal (distance pt1 pt2 ) l 0.1)
    
22.               )
    
23.          
    
24.           (setq ent1 ent)
    
25.           )
    
26.       )
    
27.     )
    
28. 
    
29.   )
    
30.   ent1
    
31. )
    
32. ;;-------------------------------------------------
    

;;-------------------------------------------------<br /> (defun c:tt (/ e ent ent1 i l obj pt1 pt2 s ss)<br />   <br />   (setq pt1 (getpoint)  pt2 (getpoint))<br />   (setq ss (ssget "F" (list pt1 pt2)))<br /> <br />     (cond <br />       <br />       (t<br />         (repeat (setq i (sslength ss))<br />               (setq ent (ssname ss (setq i (1- i))))<br />           (setq obj (vlax-ename->vla-object ent)<br />           <br />             s (vlax-curve-getStartPoint obj)<br />             e (vlax-curve-getEndPoint obj)<br />           )<br />           (setq l (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)))<br />           (if (and (OR (and (equal  s pt1  0.1) (equal  e pt2  0.1)) (and (equal e pt1  0.1) (equal s pt2  0.1)))<br />                 <br />                 (equal (distance pt1 pt2 ) l 0.1)<br />               )<br />           <br />           (setq ent1 ent)<br />           )<br />       )<br />     )<br /> <br />   )<br />   ent1<br /> )<br /> ;;-------------------------------------------------<br />

努.力

yaojing38 发表于 2023-12-24 12:42

非常感谢大神回复，图二判断为错误，应该是有

努.力

不知道能不能这样：p1、p2各选一次图元，再以p1、p2的中点选一次图元，如果三次选择都包含同一图元，则再判断该图元的量端点是否与p1、p2重合……不知是否可行？

努.力

yaojing38 发表于 2023-12-25 10:25
努.力 发表于 2023-12-24 16:38
不知道能不能这样：p1、p2各选一次图元，再以p1、p2的中点选一次图元， ...

非常感谢大神鼎力相助