Adding numbers LISP From CADALYST?

[David (CADsoft Consulting Inc )]

Hi was there an LISP in CADALYST website for adding numbers as they are typed? Seemed like someone was wrting this. But there is one out in the LISP landvfor me to download.

Thanx
David

 

[Joe Burke]

David,

I'm not sure this is what you want.

;;enter to end
(defun c:Total ( / r n)
(setq r (getreal "\nFirst number: "))
(while
(setq n (getreal "\nNext number: "))
(princ "Total: ")
(princ (setq r (+ n r)))
)
(princ)
)

Joe Burke

"David (CADsoft Consulting, Inc,)" wrote: