如何获取两线的交点？

lshlwy

如题，我想判断获取来的两条线是否相交，并获取其交点，希望各位达人帮帮我这个LISP菜鸟，谢谢拉！

自贡黄明儒

;;是不是要这个

;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;;By Mccad 明经通道
;;返回两曲线交点坐标
;;例：(GetInterPointlist objet1 objet2)
;;返回：((x1 y1 z1) (x2 y2 z2) (x3 y3 z3))
(defun GetInterPointlist (ent_1    ent_2    /      ent1     ent2
     ax_ent_1 ax_ent_2 intpoints       i
     j    k     disp     int_list
    )
     ;(setq ent1 (entsel "\n选择第一条曲线:"))
     ;(setq ent2 (entsel "\n选择第二条曲线:"))
     ;(setq ent_1 (car ent1)
     ;ent_2 (car ent2)
     ;)
  (setq int_list nil)
  (setq ax_ent_1 (vlax-ename->vla-object ent_1)
 ax_ent_2 (vlax-ename->vla-object ent_2)
  )
  (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
  (setq intpoints (vlax-variant-value intpoints))
  (if (> (vlax-safearray-get-u-bound intpoints 1) 0)
    (progn
      (setq i 0)
      (setq j 0)
      (setq disp "")
      (repeat
 (/ (+ 1
       (- (vlax-safearray-get-u-bound intpoints 1)
   (vlax-safearray-get-l-bound intpoints 1)
       )
    )
    3
 )
  (setq
    disp (list
    (vlax-safearray-get-element intpoints j)

    (vlax-safearray-get-element intpoints (+ 1 j))

    (vlax-safearray-get-element intpoints (+ 2 j))
  )
  )
  (setq i (+ 2 i)
        j (+ 3 j)
  )
  (setq int_list (append int_list (list disp)))
      )
    )
  )
  (setq int_list int_list)
)
;;注意　，如果两条均为spline，则反回的交点数只有一半

lshlwy

谢谢你!但我的是三维多线段，平面相交了，空间不相交，这种方法好像不行。。