[讨论]：如何求得已知两圆的公切线?

hwdong007

如何求得已知两圆的公切线?cad里有没有好的办法?

liminzheng

这个问题本论坛已经出现好几次了

我把别人的一个软件给你把
把下面代码复制存为文本文件
然后改名为cc.lsp，包括扩展名
然后拖入cad窗口就可以了

1楼楼主说：[讨论]：两圆的外公切线   9pt 10pt 11pt 12pt 13pt 15pt  

;两圆的外公切线
(defun c:cc()
(setq xtblm '("cmdecho" "osmode")
xtblz (mapcar 'getvar xtblm)
)
(mapcar 'setvar xtblm '(0 0))
(while (progn (setq en1 (entsel "\n请选取第一个圆:"))
(not (if (= en1 nil)
nil
(= (cdr (assoc 0 (entget (car en1)))) "CIRCLE"))
)
)
(princ "\n你选取的不是圆或者未选取任何图元，请重新选取第一个圆！")
)
(while (progn (setq en2 (entsel "\n请选择第二个圆:"))
(not (if (= en2 nil)
nil
(= (cdr (assoc 0 (entget (car en2)))) "CIRCLE"))
)
)
(princ "\n你选取的不是圆或者未选取任何图元，请重新选取第二个圆！")
)
(setq db1 (entget (car en1))
o1 (cdr (assoc 10 db1))
r1 (cdr (assoc 40 db1))
db2 (entget (car en2))
o2 (cdr (assoc 10 db2))
r2 (cdr (assoc 40 db2))
)
(if (< r1 r2)
(progn
(setq oc o1 o1 o2 o2 oc
oc r1 r1 r2 r2 oc
)
)
)
(setq dr (- r1 r2) ang (angle o1 o2) dd (distance o1 o2)
b (- (* 0.5 pi) (atan (/ dr (sqrt (- (* dd dd) (* dr dr))))))
)
(command "_line" (polar o1 (+ ang b) r1) (polar o2 (+ ang b) r2) ""
"_line" (polar o1 (- ang b) r1) (polar o2 (- ang b) r2) ""
)
(mapcar 'setvar xtblm xtblz)(princ)
)

marcol

可以捕捉切点画直线（2002）

WYQ4517

最初由 hwdong007 发布
[B]如何求得已知两圆的公切线?cad里有没有好的办法? [/B]

如果问的是怎么画，可看：
http://www.xdcad.net/forum/showthread.php?s=&postid=2465729#post2465729

wuzz

line时直接用tan捕捉就可以了呀，为什么要程序？

szly1983

最初由 wuzz 发布
[B]line时直接用tan捕捉就可以了呀，为什么要程序？ [/B]

是啊 完全可以的

powertea

用捕捉里面的切点，其他的都不要，就可以了