急急急急急！！怎么用autolisp编写求圆弧与直线的交点的程序啊

pandechou

怎么用autolisp编写一段程序  能求得一条线段和一圆弧的交点！！！！！！！   麻烦高手指导一下！！！  最好发我邮箱里——  rmpandechou@163.com

ljttjl

思路：求一条线段和一圆弧的交点问题，即求直线和圆方程组求解问题。至于方程式：可得到直线和圆弧的已知数据反求其方程式。

pandechou

要用autolisp程序的！！！！！！！！

highflybir

这个是纯autolisp的。

没有具体测试其函数的速度比用vla-intersectwith是快还是慢。

zdzdzdzd

这段程序可以求任意两实体的交点。

(defun c:get_int (/ ent1 ent2 ps)
  (setq ent1 (car (entsel "选择第一实体:")))
  (setq ent2 (car (entsel "选择第二实体:")))
  (print)
  (setq ps (obj_int ent1 ent2))
  )

(defun obj_int(ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)
  (setq ax_ent_1 (vlax-ename->vla-object ent1)
 ax_ent_2 (vlax-ename->vla-object ent2)
 )
  (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
  (setq intpoints (vlax-variant-value intpoints))
  (setq i 0)
  (if (>(vlax-safearray-get-u-bound intpoints 1)0)
    (repeat (/(+ 1
 (-(vlax-safearray-get-u-bound intpoints 1)
   (vlax-safearray-get-l-bound intpoints 1)
   )
 )
  3
       )
      (setq points (append points (list(list
  (vlax-safearray-get-element intpoints i)
  (vlax-safearray-get-element intpoints (+ i 1))
  (vlax-safearray-get-element intpoints (+ i 2))
  )))
     )
      (setq i (+ 3 i))
      )
    )
  points
  )

pengjian215

感谢各位了