[LISP程序]：求两圆相交的交点.

lihb · 发表于 2004-11-29 21:29:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请斑竹帮忙,求两个相交圆的交点坐标LISP程序.

自由的鱼 · 发表于 2004-11-29 21:34:02

有VBA程序，要吗

lihb · 发表于 2004-11-29 21:39:31

如果能把它改为LISP就好.

自由的鱼 · 发表于 2004-11-29 21:50:41

最初由 lihb 发布
[B]如果能把它改为LISP就好. [/B]

你用的是R14？

kailler · 发表于 2004-11-29 22:35:51

给个方向，你可以自己试试，不难的：
1。读出两圆的半径和圆心坐标。
2。求圆心线斜率，及长度，判断有无交点
3。计算弦高，可以利用海仑公式
4。算出弦所对应的角度，加上圆心线的角度
5。用polar算交点
当然用acad的特点写比较简单（匆忙写的，没有注意形式）
(defun c:aa( / ent1 ent2 pt1 pt2 r1 r2 pt)

(setq ent1 (car (entsel)))
(setq ent2 (car (entsel)))
(setq pt1 (dxf 10 (entget ent1)))
(setq pt2 (dxf 10 (entget ent2)))
(setq r1 (dxf 40 (entget ent1)))
(setq r2 (dxf 40 (entget ent2)))
(setq pt1 (polar pt1 (/ pi 2) r1))
(setq pt2 (polar pt2 (/ pi 2) r2))
(command "point" "int" pt1 pt2)
(setq pt (dxf 10 (entget (entlast))))
(entdel (entlast))
pt
)
(DEFUN DXF (CODE ELIST / ) (CDR (ASSOC CODE ELIST)))

xyp1964 · 发表于 2004-11-29 23:43:08

最初由 kailler 发布
[B]给个方向，你可以自己试试，不难的：
1。读出两圆的半径和圆心坐标。
2。求圆心线斜率，及长度，判断有无交点
3。计算弦高，可以利用海仑公式
4。算出弦所对应的角度，加上圆心线的角度
5。用polar算交点
当然... [/B]

应该有两个交点：
[php]
;;;求两圆相交的交点
(defun c:test (/ ent1 ent2 pt1 pt2 r1 r2 pt)
  (while (not (setq ent1 (car (entsel)))))
  (while (not (setq ent2 (car (entsel)))))
  (setq pt1 (dxf 10 (entget ent1))
pt2 (dxf 10 (entget ent2))
r1  (dxf 40 (entget ent1))
r2  (dxf 40 (entget ent2))
  )
  (setq pt11 (polar pt1 (/ pi 2) r1)
pt22 (polar pt2 (/ pi 2) r2)
  )
  (command "point" "int" pt11 pt22)
  (setq pta (dxf 10 (entget (entlast))))
  (entdel (entlast))
  (setq pt11 (polar pt1 (- 0 (/ pi 2)) r1)
pt22 (polar pt2 (- 0 (/ pi 2)) r2)
  )
  (command "point" "int" pt11 pt22)
  (setq ptb (dxf 10 (entget (entlast))))
  (entdel (entlast))
  (princ pta)
  (princ ptb)
  (princ)
)
(DEFUN DXF (CODE ELIST /) (CDR (ASSOC CODE ELIST)))
[/php]

lihb · 发表于 2004-11-30 11:58:48

谢谢.
那么求两条线的交点呢?
应该怎么去求呢?

雪山飞狐(lzh) · 发表于 2004-11-30 12:14:41

vla-IntersectWith函数

lihb · 发表于 2004-11-30 18:19:02

能给出源代码吗?

az98hxq · 发表于 2004-11-30 19:05:04

高人就是高人

kailler · 发表于 2004-11-30 19:29:02

我之所以只给了一个交点，因为这个算法有片面性，不能概括一些特殊情况，对图形相对位置有要求，只是代码简洁，提供一个比较另类的思路。

最初由 kailler 发布
[B]给个方向，你可以自己试试，不难的：
1。读出两圆的半径和圆心坐标。
2。求圆心线斜率，及长度，判断有无交点
3。计算弦高，可以利用海仑公式
4。算出弦所对应的角度，加上圆心线的角度
5。用polar算交点
当然... [/B]

自由的鱼 · 发表于 2004-11-30 19:45:32

http://www.xdcad.net/forum/showthread.php?s=&threadid=164462

雪山飞狐(lzh) · 发表于 2004-11-30 20:04:14

(setq obj1 (vlax-ename->vla-object (car(entsel))))
(setq obj2 (vlax-ename->vla-object (car(entsel))))
(vlax-safearray->list (vlax-variant-value (vla-IntersectWith obj1 obj2 0)))

gjt1244 · 发表于 2005-3-29 00:39:25

先谢了大家的帮忙！但有些问题还是不太懂；
请教5、6楼主：
你们的思路我都明白了，但代码中的：(command "point" "int" pt1 pt2)语句不明白其原理？在CAD绘图环境不能运行，其中的"int"代表什么意思？

请教8、13楼主：
vla-IntersectWith函数在我的Vlisp环境不能运行，我还没有接触过vla开头的函数，不知道是否要在使用前先作个说明？

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：求两圆相交的交点.

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子