如何表达利用交点inters函数,确定没有交点

xiatian

carrot1983

(while (= p7 nil)
  (setq n 1);_这个怎么能放在这里啊。。。至少也要拿到while外面
  (setq p3 (nth 0 ptls))
  (setq p4 (nth n ptls))
  (setq n(1+ n))
  (setq p7(inters p1 p2 p3 p4))
 )
在您的指点下我把以上部分该为

(while (= p7 nil)
 
  (setq p3 (nth 0 ptls))
  (setq p4 (nth n ptls))

就把问题解决,可以很轻松的捕捉到交点,没有任何问题
  
  (setq p7(inters p1 p2 p3 p4))
 
  (setq n(+ n 1))
 )
  (setq n(- n 2)

我下一是要pl2换成选择集，也就是多个等值线，还有还要把pl1改进为多个点的．以后还需要您的帮忙

carrot1983

我没搞懂之前，帮不了你的忙，请版主帮你吧。。论坛里高手多着。。俺是菜鸟

或许等我搞懂了。。呵呵

carrot1983

这下子应该没问题了。。呵呵

3. ;;tt多段线的交点 carrot1983 2007-12-27
4. (defun c:tt (/ E1 E2 JD JDLST LST1 LST2 N1 N2 P1 P2 P3 P4)
5.   (defun get_pt (ename / data ptlist)
6.     (setq data (entget ename))
7.     (foreach n data
8.       (if (= 10 (car n))
9. (setq ptlist (cons (cdr n) ptlist))
10.       )
11.     )
12.     (reverse ptlist)
13.   )
14.   (if (and (setq e1 (car (entsel "\n拾取第一条:")))
15.     (setq e2 (car (entsel "\n拾取第二条:")))
16.       )
17.     (progn
18.       (setq lst1 (get_pt e1))
19.       (setq lst2 (get_pt e2))
20.       (setq n1 0
21.      jdlst nil
22.       )
23.       (repeat (- (length lst1) 1)
24. (setq n2 0)
25. (setq p1 (nth n1 lst1))
26. (setq p2 (nth (+ n1 1) lst1))
27. (repeat (- (length lst2) 1)
28.    (setq p3 (nth n2 lst2))
29.    (setq p4 (nth (+ n2 1) lst2))
30.    (if (setq jd (inters p1 p2 p3 p4))
31.      (setq jdlst (cons jd jdlst))
32.    )
33.    (setq n2 (1+ n2))
34. )
35. (setq n1 (1+ n1))
36.       )
37.       (foreach j jdlst
38. (command "._circle" j "5")
39.       )
40.     )
41.   )
42.   (princ)
43. )

;;tt多段线的交点 carrot1983 2007-12-27 (defun c:tt (/ E1 E2 JD JDLST LST1 LST2 N1 N2 P1 P2 P3 P4)   (defun get_pt (ename / data ptlist)     (setq data (entget ename))     (foreach n data       (if (= 10 (car n)) (setq ptlist (cons (cdr n) ptlist))       )     )     (reverse ptlist)   )   (if (and (setq e1 (car (entsel "\n拾取第一条:")))     (setq e2 (car (entsel "\n拾取第二条:")))       )     (progn       (setq lst1 (get_pt e1))       (setq lst2 (get_pt e2))       (setq n1 0      jdlst nil       )       (repeat (- (length lst1) 1) (setq n2 0) (setq p1 (nth n1 lst1)) (setq p2 (nth (+ n1 1) lst1)) (repeat (- (length lst2) 1)    (setq p3 (nth n2 lst2))    (setq p4 (nth (+ n2 1) lst2))    (if (setq jd (inters p1 p2 p3 p4))      (setq jdlst (cons jd jdlst))    )    (setq n2 (1+ n2)) ) (setq n1 (1+ n1))       )       (foreach j jdlst (command "._circle" j "5")       )     )   )   (princ) )