用程序求切点位置

houlinbo

如何确定两圆切点的位置,(圆心位置,半径已知)??????????????

  圆的上下位置可以移动,(外切)

weiliang

有图吗？

highflybir

houlinbo发表于2006-8-24 18:43:00回复：（houlinbo）用程序求切点位置 如何确定两圆切点的位置,(圆心位置,半径已知)?????????????? 圆的上下位置可以移动,(外切)

请详细说明：

是哪个圆位置确定，哪个圆半径已知，还是都已知，都确定？

能附图说明么？

把题目说清楚了，别人才好给你解答。

另外问一句：这种问题用在什么实际工程中呢？

rongyifei

是两个圆的半径和圆心都已知吗?如果是这样的话,这道题并不难解!

rongyifei

(defun c:test ()
  (princ "请选择两个相切的圆:")
  (setq sset (ssget '((0 . "Circle")))
  )
  (if (> (sslength sset) 2)
    (progn
      (alert "选择了两个以上的圆,程序退出")
      (exit)
    )
  )
  (setq circle1 (vlax-ename->vla-object (ssname sset 0))
 circle2 (vlax-ename->vla-object (ssname sset 1))
 c_pt1 (vlax-safearray->list
    (vlax-variant-value (vla-get-center circle1))
  )
 c_pt2 (vlax-safearray->list
    (vlax-variant-value (vla-get-center circle2))
  )
 r1 (vla-get-radius circle1)
 r2 (vla-get-radius circle2)
 ang (angle c_pt1 c_pt2)
 os (getvar "osmode")
  )
  (setvar "osmode" 0)
  (if (equal (distance c_pt1 c_pt2) (+ r1 r2) 0.00001)
    (setq tan_pt (polar c_pt1 ang r1))
    (if (equal (distance c_pt1 c_pt2) (abs (- r1 r2)) 0.00001)
      (setq tan_pt (polar c_pt1 (+ pi ang) r1))
      (setq tan_pt nil)
    )
  )
  (if tan_pt
    (progn (command "circle" tan_pt 1)
    (alert (strcat "切点坐标为: " (vl-princ-to-string tan_pt)))
    )
    (alert "两圆不相切")
  )
  (setvar "osmode" os)
)

rongyifei

以上是用lisp作的程序,它适用于两个圆的半径和圆心都已知的情况下求切点坐标,关在切点位置画一个小圆!

rongyifei

加载上面这段程序,在命令行中输入test,如果不能运行,请在命令行中输入(vl-load-com),再试!

ttt

如果知道外切的话,连接两圆圆心,以其中一圆为基点加上半径长,连线角度就可求出交点啊