; mmc is stand for making multi circle ; Design by Ade Suharna <> ; 3 november 2004 ; Program no.136/11/2004 ; Edit by (defun c:mmc () (setq cen (getpoint " CLICK LOCATION FOR OBJECT: ")) (setq rad (getdist " ENTER RADIUS: ")) (command "_circle" cen rad "") (while (setq cen (polar cen 0 rad)) (setq rad (1+ rad)) (command "_circle" cen rad "") (princ) ) )