画两个相离圆的相切线

819534890

回复看看代码

2548572928

llsheng_73

1. (defun acos(a);;;-1<=a<=1
   
2.   (angle'(0 0)(list a(sqrt(- 1(* a a)))))
   
3.    )
   
4. (defun makeline(p1 p2)
   
5.   (entmakex(list'(0 . "line")(cons 10 p1)(cons 11 p2))))
   
6. (defun tt(e1 e2 / a c b r);;圆外公切线
   
7.   (setq a(vl-sort(mapcar'(lambda(x)(mapcar'(lambda(y)(cdr(assoc y x)))'(40 10)))
   
8.                          (mapcar'entget(list e1 e2)))
   
9.                   (function(lambda(a b)(<(car a)(car b)))))
   
10.         r(mapcar'car a)
    
11.         c(mapcar'cadr a)
    
12.         b(apply'angle c)
    
13.         a(acos(/(*(car r)(apply'- r))(*(car r)(apply'distance c)))))
    
14.   (mapcar(function(lambda(x)(apply'makeline(mapcar(function(lambda(y z)(polar y(+(* a x)b)z)))c r))))'(1 -1))
    
15.   )

(defun acos(a);;;-1<=a<=1<br />   (angle'(0 0)(list a(sqrt(- 1(* a a)))))<br />    )<br /> (defun makeline(p1 p2)<br />   (entmakex(list'(0 . "line")(cons 10 p1)(cons 11 p2))))<br /> (defun tt(e1 e2 / a c b r);;圆外公切线<br />   (setq a(vl-sort(mapcar'(lambda(x)(mapcar'(lambda(y)(cdr(assoc y x)))'(40 10)))<br />                          (mapcar'entget(list e1 e2)))<br />                   (function(lambda(a b)(<(car a)(car b)))))<br />         r(mapcar'car a)<br />         c(mapcar'cadr a)<br />         b(apply'angle c)<br />         a(acos(/(*(car r)(apply'- r))(*(car r)(apply'distance c)))))<br />   (mapcar(function(lambda(x)(apply'makeline(mapcar(function(lambda(y z)(polar y(+(* a x)b)z)))c r))))'(1 -1))<br />   )

很多年前推算外公切线的，没推导内公切线
(defun c:tt( / e1 e2)
  (while(and(setq e1(ssget":E:S"'((0 . "CIRCLE"))))
            (setq e1(ssname e1 0))
            (setq e2(ssget":E:S"'((0 . "CIRCLE"))))
            (setq e2(ssname e2 0))
            (tt e1 e2))))

)

ssyfeng

sunny_8848

看起来很不错的功能

皇上快溜

用弧线与两个圆相切起来，给弧线一个R值，这难度不小

前生

这个看看。谢谢!

wmh-3816

谢谢分享，，感谢感谢

vip-happy

看看楼主的办法

lhg

不错不错的