关于两圆求交点?

xsf102501

求教:关于两圆求交点?
如何用VLIP编程求任意两圆的交点?
一个初学者!

 

原地踏步

;;ptc：圆心坐标，rad：半径

(defun int_circle (ptc1 rad1 ptc2 rad2 / dst d pt1 pt2 alpha beta)
  (setq dst (distance ptc1 ptc2)
        alpha (angle ptc2 ptc1)
        d (/ (+ rad1 dst rad2) 2.0)
  )
  (cond
    ;;; Circles are tangent
    ((or (equal dst (+ rad1 rad2) 0.0001)
         (equal dst (abs (- rad1 rad2)) 0.0001)
     )
      (setq pt1 (polar ptc2 alpha rad2)  pt2 pt1)
    )
    ;;; Circles do not intersect
    ((or (> dst (+ rad1 rad2))
         (if (> rad2 rad1) (< (+ rad1 dst) rad2) (< (+ rad2 dst) rad1))
     )
      (setq pt1 nil  pt2 nil)
    )
    (T
      (setq beta (* 2.0 (atan (sqrt (abs (/ (* (- d dst) (- d rad2))
                                            (* d (- d rad1))))))
                 )
            pt1 (polar ptc2 (- alpha beta) rad2)
            pt2 (polar ptc2 (+ alpha beta) rad2)
      )
    )
  )

  (list pt1 pt2)

)

McKevin

hao

xsf102501

非常感谢原地踏步的回帖

谢谢！

xyp1964

2. (load "xyp_lib.vlx") ;版本 V.20060210
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
12. |;
13. (defun c:test ()
14.   (setq s1 (car (USEL 0 "CIRCLE" "圆"))
15. s2 (car (USEL 0 "CIRCLE" "圆"))
16. pt (xyp-get-Inters s1 s2 0)
17.   )
18.   pt
19. )

(load "xyp_lib.vlx") ;版本 V.20060210 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; (defun c:test ()   (setq s1 (car (USEL 0 "CIRCLE" "圆")) s2 (car (USEL 0 "CIRCLE" "圆")) pt (xyp-get-Inters s1 s2 0)   )   pt )

ljpnb

xyp1964版大的程序好简捷哦，关键部分都被你藏起来了。

Ea

IntersectWith 方法

获取对象与图形中其它对象的相交点。

参阅 | 示例

语法

RetVal = object.IntersectWith(IntersectObject, ExtendOption)

Object

所有图形对象 (除了 Pviewport 和 PolygonMesh)
使用该方法的对象或对象集合。

IntersectObject

Object[对象], 为输入项;
对象可以是 所有图形对象中的任一个。

ExtendOption

AcExtendOption 常数; 为输入项
该选项指定两个对象中是否没有、单个或两个对象延伸来得到交点。

acExtendNone	两个对象均不延伸。
acExtendThisEntity	延伸基本对象。
acExtendOtherEntity	延伸作为参数传递的对象。
acExtendBoth	延伸两个对象。

RetVal

Variant[变体] (双精度数组)
点数组为图形中对象与其它对象相交的点数组。

说明

如果两个对象不相交，则没有返回数据。用户可以要求一个或两个对象延伸相交来产生相交点。例如，在以下例图中，线1为该方法调用的基本对象，而线3作为参照传递给该方法。如果 ExtendOption 传递的是 acExtendThisEntity，则点A将作为线1在延伸后与线3相交的点返回 。如果 ExtendOption 为 acExtendOtherEntity，则不会返回数据，因为即使线3延伸了，它也与线1没有相交。

如果相交类型为 acExtendBothEntities 并且线2作为参数图元传递，则返回点B。如果 ExtendOption 为 acExtendNone 并且线2为参数图元，则无数据返回。

TANER

现成的

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8719