[求助]请问各位大侠,只用lisp能求出line和arc的交点吗

yqwzx

请问各位大侠,只用lisp能求出line和arc的交点吗

南子

1。已知直线Line,和弧Arc,求交点Pt
  设ptx = (car pt) , pty =(cadr pt)
2.line_startPt =(cdr (assoc 10 (entget Line)))
  line_endPt   =(cdr (assoc 11 (entget line)))
3.arc_centerPt  =(cdr (assoc 10 (entget arc)))
  arc_radious   = (cdr (assoc 40 (entget arc)))  
4.条件1：pt在直线上
  (/ (ptx - line_startptx) (pty - line_startpty)) =
  (/ (line_endPty - line_startptx) (line_endPty - line_startpty))
5.条件2：pt在圆弧上
   arc_radious =
  ((ptx - arc_centerptx) ^ 2 + (pty -arc_centerpty) ^ 2) ^ 0.5
6.代入法解方程，求得ptx 、 pty
7.pt = (list ptx pty)

CAD菜鸟

arc是圆的一部分，用直线方程和圆的方程联合求解，得到点后，判断点与line和arc的关系即可。