;;;§ïÅÜ¶êªºª½®|
(DEFUN C:CD2(/ A DIAMETER N INDEX B1 B C D B2)      
      (SETQ A (SSGET))
      (SETQ DIAMETER (GETDIST "\nENTER DIAMETER: ")) 
      (SETQ DIAMETER (/ DIAMETER 2))
      (SETQ N (SSLENGTH A))
      (SETQ INDEX 0)
      (REPEAT N
	  (SETQ B1 (ENTGET (SSNAME A INDEX)))
	  (SETQ INDEX (+ INDEX 1))
	  (SETQ B (ASSOC 0 B1))
	  (IF (= "CIRCLE" (CDR B))
	     (PROGN 
		   (SETQ C (ASSOC 40 B1))
		   (SETQ D (CONS 40 DIAMETER))
		   (SETQ B2 (SUBST D C B1))
		   (ENTMOD B2)
	     )
	  )   
      )
)