求直线交点，请大侠们给个思路。

dinosaurhxe2

一直没有做过这方面的东西，忽然要用到了，想学习学习，请大侠们、前辈们不吝赐教！给思路也行，给段参考代码也可以。

我要用到的很简单，求一条直线与B层的所有直线交点个数。我想同时学习一下把交点坐标一起求出来。

如图，左边的虚线与B层所有直线交点为3，右边虚线与B层所有交点也为3。即虚线长度已固定，不考虑其延伸后与B层直线的交点；虚线与B层直线交于B层直线本身的交点时，只计一个交点。

hb_xiaofen

1.求出指定直线的两个交点pt1和Pt2,

2.将所有的b层的直线得到一个选择集ss。

3.循环求出所有的ss中直线与pt1和pt2的交点存到ptlist列表中

4.将ptlist中重复的点删除

45064980

不知道这个可不可以，我大学老师编的。

(defun c:pinter()
  (setvar "cmdecho" 0)
  (setq p1 (getpoint "输入直线第一点")
 (princ)
 p2(getpoint p1 "输入直线第二点"))
    (setq a (entget (car(entsel) )))
  (setq b '())
  (foreach lis a
    (if (= (car lis) 10)
      (progn
 (setq lis (reverse (cons 0 (reverse (cdr lis)))))
        (setq b (reverse (append   (list  lis) (reverse b))))
      )
    )
  )

  (setq s (car b)
 i '())
  (foreach e b
    (if (setq inte (inters p1 p2 s e))
      (setq i (reverse (append (list inte)(reverse i))))
    )
    (setq s e)
  )
  (command "LINE" p1 p2 "")
  (princ)
  (prin1 "共有")
  (prin1 (length i))
  (prin1 "个交点")
  (princ)
  (print "交点是：")
  (foreach p i (print p))
)