;; I just want to draw a circle, which is tangent to the other two known circles.
(defun c:crl_ttr ()
(command "circle" '(0 0) 30 "")
(command "circle" '(5 5) 50 "")
(setvar "osmode" 256)
(command "circle" "ttr" pause pause 40 "")
)
;; Yes, we can draw that circle easily, just by the "pause" command and find the point
;; on the AutoCAD screen.
;; The problem is that i just want to use the autolisp codes create that circle automatically through
;; the control of those parameters.
;; I'm always wondering whether i can utlise the command listed below:
(defun c:crl_ttr()
(command "circle" '(0 0) 30 "")
(setq c_1 (entlast))
(command "circle" '(5 5) 50 "")
(setq c_2 (entlast))
(command "circle" "ttr" c_1 c_2 40 "")
)
;; However, it was turned out that these commands was not effctive. They always noted me that "it requires
;; an osnap object and select a circle"
;; I think i have selected an circle. You see, i give the entity name of the circle to the command and set
;; set the osmode to be tangent.
;; Now, i'm puzzled with the "circle>ttr" command. Maybe someone can give me some opinions with it.
;;Thanks in advance.