判断两点之间是否有线连接？

/db_自贡黄明儒_

判断两点之间是否有线连接，谁有好办法？

1. ;;判断有线连接两点
   
2. (defun _LineTr2P (P1 p2 SS / E1 E2 P)
   
3.   (setq p (MJ:MIDPOINT p1 p2))
   
4.   (and
   
5.     (setq e1 (car (nentselp (MJ:MIDPOINT p1 p))))
   
6.     (setq e2 (car (nentselp (MJ:MIDPOINT p2 p))))
   
7.     (or
   
8.       (equal e1 e2);严谨
   
9.       ;;不严谨，但对于大多数情况下足够正确
   
10.       (and (ssmemb e1 ss) (ssmemb e2 ss))
    
11.     )
    
12.   )
    
13. )
    
14. 
    
15. ;;骓证
    
16. ;; [功能] 获取两点的中点坐标
    
17. ;;;(defun MJ:MIDPOINT (P1 P2)
    
18. ;;;  (mapcar '(lambda (X Y) (* (+ X Y) 0.5)) P1 P2)
    
19. ;;;)
    
20. (defun C:q1 (/ P1 P2 SS)
    
21.   (setq p1 (getpoint"\n >第1点"))
    
22.   (setq p2 (getpoint"\n  >>第2点"))
    
23.   (princ "\n   >>>选择集")
    
24.   (setq ss (ssget))
    
25.   (princ (_LineTr2P P1 p2 SS))
    
26.   (princ)
    
27. )

;;判断有线连接两点<br /> (defun _LineTr2P (P1 p2 SS / E1 E2 P)<br />   (setq p (MJ:MIDPOINT p1 p2))<br />   (and<br />     (setq e1 (car (nentselp (MJ:MIDPOINT p1 p))))<br />     (setq e2 (car (nentselp (MJ:MIDPOINT p2 p))))<br />     (or<br />       (equal e1 e2);严谨<br />       ;;不严谨，但对于大多数情况下足够正确<br />       (and (ssmemb e1 ss) (ssmemb e2 ss))<br />     )<br />   )<br /> )<br /> <br /> ;;骓证<br /> ;; [功能] 获取两点的中点坐标<br /> ;;;(defun MJ:MIDPOINT (P1 P2)<br /> ;;;  (mapcar '(lambda (X Y) (* (+ X Y) 0.5)) P1 P2)<br /> ;;;)<br /> (defun C:q1 (/ P1 P2 SS)<br />   (setq p1 (getpoint"\n >第1点"))<br />   (setq p2 (getpoint"\n  >>第2点"))<br />   (princ "\n   >>>选择集")<br />   (setq ss (ssget))<br />   (princ (_LineTr2P P1 p2 SS))<br />   (princ)<br /> )

tzfcn

这个有点AI的味道

Lisphk

方法无外乎是找点附近的线选择集吧
应该加上个代码，点是否在屏幕内，否则创建不到选择集

xk15c

比较有用，挺好的