GrRead Text Editor...

[wizman]

simple spinner from lispgen:

 

http://www.beowolftech.com/lispgen/spinner.html

[Lee Mac]

I think this is better Wiz:

 

(defun c:spinner (/ ss Objs Ang cnt)
 (vl-load-com)
 (if (setq ss (ssget))
   (progn
     (setq Objs (mapcar 'vlax-ename->vla-object
                  (vl-remove-if 'listp
                    (mapcar 'cadr (ssnamex ss))))
           Ang (/ pi 1000) cnt 0)
   (while (< cnt 4000)
     (mapcar
       (function
         (lambda (Obj)
           (vla-rotate Obj
             (vlax-3D-point (getvar "VIEWCTR")) Ang)
           (vla-update Obj))) Objs)
     (setq cnt (1+ cnt)))))
 (princ))

[wizman]

I think this is better Wiz:

 

.. i like yours also lee, i always like spinners, here's another one:

 

 

(defun c:cx ( / counter old_csize old_snpang *error*)
   (defun *error* (errmsg)
       (setvar 'cursorsize old_csize)
       (setvar 'snapang old_snpang)
   )
   (setq old_csize
                    (getvar 'cursorsize)
         old_snpang
                    (getvar 'snapang)
   )
   (setvar 'snapang 0)
   (setvar 'cursorsize 5)
   (setq counter 0)
   (while (/= counter 360)
       (command "snapang" counter)
       (setvar 'cursorsize (+ 5 (getvar 'cursorsize)))
       (getint "\npress spacebar\n")
       (setq counter (+ 30 counter))
   )
   (*error* nil)
   (princ)
)

[Lee Mac]

Nice one Wizman

[Lee Mac]

Another:

 

(defun c:spin (/ i j lst dis gr cir cnt k)
 (setq i -5 lst '() cir '() k -1 cnt 100
       dis (* (/ (getvar 'CURSORSIZE) 100.) (getvar 'VIEWSIZE)))
 (while (eq (car (setq gr (grread nil 5 0))) 5)
   (redraw)
   (setq j -1 lst nil i (+ 5 i) cir nil cnt (1+ cnt))
   (repeat 400
     (setq lst
       (append lst
         (list
           (polar (cadr gr)
             (* (+ (setq j (1+ j)) i) (/ pi 300.)) dis)))))
   (repeat 400
     (setq cir
       (append cir
         (list
           (polar (car lst)
             (* (setq k (1+ k)) (/ pi 200.)) (/ dis 10.))))))
   (grvecs (append (list (rem (/ cnt 100) 255)) lst cir)))
 (princ))