Code:

; accfc is stand for Animation Create Circle From Cursor
;        Design by  : Adesu <Ade Suharna>
;        Email      : mteybid@yuasabattery.co.id
;        Homepage   : http://www.yuasa-battery.co.id
;        Website    : http://cadesu.multiply.com
;        Create     : 23 October 2007
;        Program no.: 0668/10/2007
;        Edit by    :
(defun c:accfc (/ c1 gr rad vgad vgao vgms)
   (vl-load-com)
   (setq vgao (vlax-get-acad-object))
   (setq vgad (vla-get-activedocument vgao))
   (setq vgms (vla-get-modelspace vgad))
   (setq rad 0.5)
   (while
      (setq gr (cadr (grread nil 7)))
      (setq c1 (vla-addCircle vgms (vlax-3d-point gr) rad))
      (vla-put-color c1 acred)
      ) ; while
   )    ; defun