Certainly Patrick, give this a try:
Code:
(defun c:test ( / _circle p1 p2 no di an sp i ucsz )
(defun _circle ( center radius )
(entmakex (list (cons 0 "CIRCLE") (cons 10 center) (cons 40 radius) (cons 210 ucsz)))
)
(setq ucsz (trans '(0. 0. 1.) 1 0 t))
(if
(and
(setq p1 (getpoint "\nSpecify First Point: "))
(setq p2 (getpoint "\nSpecify Second Point: " p1))
(progn
(initget 6)
(setq no (getint "\nSpecify Number of Circles: "))
)
(setq di (getdist "\nSpecify Diameter of Circles: "))
)
(progn
(setq p1 (trans p1 1 ucsz) p2 (trans p2 1 ucsz)
an (angle p1 p2) di (/ di 2.)
p1 (polar p1 an di) p2 (polar p2 an (- di))
)
(if (= 1 no)
(setq sp (/ (distance p1 p2) 2.) i 0)
(setq sp (/ (distance p1 p2) (1- no)) i -1)
)
(repeat no (_circle (polar p1 an (* (setq i (1+ i)) sp)) di))
)
)
(princ)
)