(defun c:cde(/ ss k rad ent ename )
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq ss (ssget))    
  (setq k 0)  
  (setq rad 10) ; 10은 원의 반지름입니다..알맞게 넣어주세요.
  (setq n (sslength ss) k 0)  
   (repeat  n      
     (setq ent (ssname ss k))  
     (setq elist (entget ent))
     (setq ename (cdr (assoc 0 elist)))  
       (cond ((= ename "TEXT")
               (setq ins (cdr (assoc 10 elist)))
               (command "circle" ins rad))
             ((= ename "LWPOLYLINE")
               (setq ins (cdr (assoc 10 elist)))
               (command "circle" ins rad))
       );cond
     (setq k (1+ k))
    );repeat
(setvar "osmode" os)
(princ)
);defun