[求助]线相交的问题

FlyinDance

有一个表示一条直线的点表，和一个表示竖线X值的点表
怎么才能用最简单的代码求出竖线和直线的交点呢？

c3a139

看看这个能用否，好像来自本坛

(DEFUN c:tmp (/ ENT1 ENT2 N PT PTS SSG FILE)

   (vl-load-com)
   (SETQ ent1 (VLAX-ENAME->vla-OBJECT (CAR (ENTSEL "\n选取一根线:"))))
   (PRINC "\n选取一组竖向坐标线:")
   (SETQ ssg (SSGET '((0 . "LINE"))))
   ;;获取交点集
   (SETQ pts nil)
   (REPEAT (SETQ n (SSLENGTH ssg))
     (SETQ ent2 (VLAX-ENAME->vla-OBJECT (SSNAME ssg (SETQ n (1- n)))))
     (IF (SETQ pt (VLAX-INVOKE ent1 'IntersectWith ent2 ACEXTENDNONE))
       (SETQ pts (CONS pt pts))
     )
   )

tianguipeng

好像帮助上就有这个例子

但好像不是这样写的

caoyin

用 inters 比较好