[讨论]：两圆的外公切线

yshf

;两圆的外公切线
(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)
)

glyxmj

编得真好，我也编了个，不过是有acos来算的，不如atan好用。
向你学习！
建议斑竹加MONEY

xyp1964

非计算法：

2. [FONT=courier new]
   
3. (load "xyp_lib.vlx")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
14. |;
    
15. 
    
16. ;;两圆的外公切线
    
17. (defun c:test ()
    
18.   (cmdla0)
    
19.   (setvar "osmode" 0)
    
20.   (setq        e1   (entget (car (usel1 0 "CIRCLE" "圆")))
    
21.         e2   (entget (car (usel1 0 "CIRCLE" "圆")))
    
22.         o1   (cdr (assoc 10 e1))
    
23.         r1   (cdr (assoc 40 e1))
    
24.         o2   (cdr (assoc 10 e2))
    
25.         r2   (cdr (assoc 40 e2))
    
26.         ang  (angle o1 o2)
    
27.         pt11 (polar o1 (+ ang (* pi 0.5)) r1)
    
28.         pt12 (polar o1 (- ang (* pi 0.5)) r1)
    
29.         pt21 (polar o2 (+ ang (* pi 0.5)) r2)
    
30.         pt22 (polar o2 (- ang (* pi 0.5)) r2)
    
31.   )
    
32.   (if (not (equal o1 o2))
    
33.     (progn
    
34.       (command "line" "tan" pt11 "tan" pt21 "")
    
35.       (command "line" "tan" pt12 "tan" pt22 "")
    
36.     )
    
37.     (princ "\n两圆同心!")
    
38.   )
    
39.   (cmdla1)
    
40. )[/FONT]

[FONT=courier new]<br /> (load "xyp_lib.vlx")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;两圆的外公切线<br /> (defun c:test ()<br />   (cmdla0)<br />   (setvar "osmode" 0)<br />   (setq        e1   (entget (car (usel1 0 "CIRCLE" "圆")))<br />         e2   (entget (car (usel1 0 "CIRCLE" "圆")))<br />         o1   (cdr (assoc 10 e1))<br />         r1   (cdr (assoc 40 e1))<br />         o2   (cdr (assoc 10 e2))<br />         r2   (cdr (assoc 40 e2))<br />         ang  (angle o1 o2)<br />         pt11 (polar o1 (+ ang (* pi 0.5)) r1)<br />         pt12 (polar o1 (- ang (* pi 0.5)) r1)<br />         pt21 (polar o2 (+ ang (* pi 0.5)) r2)<br />         pt22 (polar o2 (- ang (* pi 0.5)) r2)<br />   )<br />   (if (not (equal o1 o2))<br />     (progn<br />       (command "line" "tan" pt11 "tan" pt21 "")<br />       (command "line" "tan" pt12 "tan" pt22 "")<br />     )<br />     (princ "\n两圆同心!")<br />   )<br />   (cmdla1)<br /> )[/FONT]

841594

供参考：
http://www.xdcad.net/forum/showt ... amp;threadid=487337