Adding numbers LISP From CADALYST?

Discussion in 'AutoCAD' started by David \(CADsoft Consulting, Inc,\), Jul 22, 2003.

  1. 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
     
    David \(CADsoft Consulting, Inc,\), Jul 22, 2003
    #1
  2. David \(CADsoft Consulting, Inc,\)

    Joe Burke Guest

    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 in message
    news:...
     
    Joe Burke, Jul 23, 2003
    #2
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.