[编程交流] 连接圆

(defun c:cc ( / ent cen rad gr code data d ang tan iAng tmp )
 ;; © Lee Mac  ~  23.05.10
 
 (if
   (setq ent
     (SelectifFoo
       (lambda ( x ) (eq "CIRCLE" (cdr (assoc 0 (entget x)))))
       "\nSelect First Circle: "
     )
   )
   (progn
     (setq cen (trans (dxf 10 ent) 0 1) rad (dxf 40 ent))
     (princ "\nSelect Next Circle: ")
     (while
       (progn
         (setq gr (grread t 13 2) code (car gr) data (cadr gr))
         (redraw)
         (cond
           (
             (and (= 5 code) (listp data))
             (setq d (distance cen data) ang (angle cen data))
             (if (< rad d)
               (progn
                 (setq tan  (sqrt (- (* d d) (* rad rad)))
                       iAng (atan tan rad))
                 (grvecs
                   (cons -3
                     (list
                       (polar cen (+ ang iAng) rad) data
                       (polar cen (- ang iAng) rad) data
                     )
                   )
                 )
               )
             )
            t
           )
           (
             (and (= 3 code) (listp data))
             (if (and (setq tmp (car (nentselp data)))
                      (eq "CIRCLE" (cdr (assoc 0 (entget tmp))))
                      (CircleTangents ent tmp))
               (setq ent tmp cen (trans (dxf 10 tmp) 0 1) rad (dxf 40 tmp))
             )
            t
           )
         )
       )
     )
     (redraw)
   )
 )
 (princ)
)
(defun SelectifFoo ( foo str / sel ent )
 ;; © Lee Mac  ~  23.05.10
 (while
   (progn
     (setq sel (entsel str))
     
     (cond
       (
         (vl-consp sel)
         (if (not (foo (setq ent (car sel))))
           (princ "\n** Invalid Object Selected **")
         )
       )
     )
   )
 )
 ent
)
(defun Line ( p1 p2 )
 (entmakex
   (list
     (cons 0 "LINE")
     (cons 10 p1)
     (cons 11 p2)
   )
 )
)
(defun dxf ( code e )
 (cdr (assoc code (entget e)))
)
(defun CircleTangents ( cir1 cir2 / c1 c2 r1 r2 d delta ang tan iAng )
 ;; © Lee Mac  ~  23.05.10
 (setq c1 (dxf 10 cir1) c2 (dxf 10 cir2)
       r1 (dxf 40 cir1) r2 (dxf 40 cir2))
 (setq d  (distance c1 c2) delta (- r1 r2) ang (angle c1 c2))
 (if (< (abs delta) d)
   (progn
     (setq tan  (sqrt (- (* d d) (* delta delta)))
           iAng (atan tan delta))
     (Line (polar c1 (+ ang iAng) r1)
           (polar c2 (+ ang iAng) r2))
     (Line (polar c1 (- ang iAng) r1)
           (polar c2 (- ang iAng) r2))
   )
 )
)