如何求一条样条曲线与一条直线的交点？

zcg319

用手工的方式，命令行ID选取可得坐标，在程序中如何自动实现呢？哪位大师给帮忙发一段出来。 这时多谢了。

陈伯雄

(Defun C:Probe (/ pen pep psp ple pse pll ppp)
       (SetQ pen (EntSel "\n要探索的边界：")
             pep (Cadr pen)
             pen (Car pen)
       )
       (Command "ucs" "w"
                "ucs" "o" (OSnap pep "nea")
       )
       (SetQ psp (GetPoint "\n指定探针起点 (沿X正向探索): "))
       (Command "line" psp "@1,0" "")
       (SetQ ple (EntLast)
             pse (EntGet ple)
             pep (Cdr (Assoc 11 pse))
             pll '()
       )
       (While (Progn (Command "extend" pen "" (List ple pep) "")
                     (SetQ ppp (Cdr (Assoc 11 (EntGet ple))))
                     (Not (Equal ppp pep))
              )
              (SetQ pll (Cons (Trans ppp 0 1) pll)
                    pep ppp
              )
       )
       (EntDel ple)
       (ForEach pcn pll (Command "circle" pcn 2))
       (PrinC)
)

zcg319