;==================================================================
;			Tan TAN TAN
;	From the creative genius of Paul Standing
;	    Routine that:
;
;       Allows the user to draw a circle that is tangent to three
; 	points
;==================================================================

(defun c:ttt ()
     (setvar "cmdecho" 0)
     (setq oldsnap (getvar "osmode"))
     (setvar "osmode" 256)
     (setq pt1 (getpoint "\nSelect first point of tangency: "))
     (setq pt2 (getpoint "\nSelect second point of tangency: "))
     (setq pt3 (getpoint "\nSelect third point of tangency: "))
     (command "circle" "3p" pt1 pt2 pt3 )
     (setvar "osmode" oldsnap)	
(princ)
)
(prompt "\nType TTT to envoke the command: ")