Thanks StefanPlease don't do that. If you can entmake/entdel then you can entmod for sure. It's just not a good idea to re-create the circle thousands times, autocad has it's limits and eventually will crash.
an interessting thing, but not what I need. But it shows the direction to use "entmake circle / delete circle" instead of grdraw.
;(while (setq pt (getpoint)) (grvecsCircle pt 3.4 4))
;(grvecsCircle (list 34 4) 43 3)
(defun grvecsCircle (pt rad col / np lst)
(setq np 24 ;npoints
lst (mapcar (function (lambda (a) (polar pt a rad))) (rseq 0.0 (* 2. pi) np))
)
(grvecs (apply (function append) (mapcar (function (lambda (p1 p2)
(list col p1 p2)))
lst (cdr lst))))
)
(defun rseq (start endp n / lst d)
(cond
((= n 1) (list start))
((< n 1) nil)
((< endp start) (reverse (rseq endp start n)))
(T
(setq d (/ (float (- endp start)) (1- n)))
(repeat n
(setq lst (cons (+ start (* (setq n (1- n)) d)) lst))))))