有一根垂直线和很多水平线，水平线均与垂线T形相交，如何获得交点信息？

飞龙在天

chg

Autolisp本身的函数有(inters p1 p2 p3 p4 [onseg])


;;;VxGetInters - 返回两个物体的所有交点
; -- Function VxGetInters
; Arguments [Typ]:
; Fst = First object [VLA-OBJECT]
; Nxt = Second object [VLA-OBJECT]
; Mde = Intersection mode [INT]
; Constants:
; - acExtendNone Does 不延伸
; - acExtendThisEntity 延伸第一
; - acExtendOtherEntity 延伸第二
; - acExtendBoth 延伸两者
; Return [Typ]:
; > list of points '((1.0 1.0 0.0)... [LIST]
; > Nil if no intersection found
;
(defun VxGetInters (Fst Nxt Mde / IntLst PntLst);;;实体交点
  (setq IntLst (vlax-invoke Fst "IntersectWith" Nxt Mde))
  (cond
    (IntLst
      (repeat (/ (length IntLst) 3)
        (setq PntLst
                (cons
                  (list(car IntLst)(cadr IntLst)(caddr IntLst))
                  PntLst
                )
              IntLst (cdddr IntLst))
      )
      (reverse PntLst)
    )
    (T nil)
  )
)

meflying