(defun c:target (/)
(setq l 100)
(setq cn 15)
(setq pt (getpoint "please point the target: "))
(setq xo (car pt))
(setq yo (car (cdr pt)))
(setq x1 (- xo l))
(setq x2 (+ xo l))
(setq y1 (- yo l))
(setq y2 (+ yo l))
(setq p1 (list x1 yo))
(setq p2 (list x2 yo))
(setq p3 (list xo y1))
(setq p4 (list xo y2))
(command "LINE" p1 p2 "")
(command "LInE" p3 p4 "")
(setq chang (/ l cn))
(setq dlt r)
(repeat cn
(command "CIRCLE" pt r)
(setq r (+ r dlt))
)
(princ)
)