AutoCAD LISP自然数的和

AutoCAD LISP自然数的和，根据输入的数值，求自然数的和，代码如下。

(defun c:test()
  (setq intputin (getint "请输入数值："))
  (setq snum 1)
  (setq sum 0)
  (repeat intputin
    (setq sum (+ snum sum))
    (setq snum (+ 1 snum))
    )
  (princ "1+2+3+……+")
  (princ intputin)
  (princ "=")
  (princ sum)
  )

代码完。

while循环自然数的和，代码如下。

(defun c:test()
  (setq snum 1)
  (setq sum 0)
  (while (<= snum 100)
    (setq sum (+ snum sum))
    (setq snum (+ 1 snum))
    )
  (princ "连加和=")
  (princ sum)
  )

代码完。