AutoCADLISP循环判断求A到B的整数和

AutoCAD LISP循环判断求A到B的整数和&＃xff0c;比如求100以内的整数和&＃xff0c;输入起始值为0&＃xff0c;终止值为100即可&＃xff0c;代码如下。

(defun c:test()
  (setq nums (getint "请输入起始值&＃xff1a;"))
  (setq nume (getint "\n请输入终止值&＃xff1a;"))
  (setq snum 0)
  (setq nn (&＃43; 1 (- nume nums)))
  (setq numadd nums)
  (repeat nn
    (setq snum (&＃43; snum numadd))
    (setq numadd (&＃43; 1 numadd))
    )
  (princ "\n总和snum&＃61;") (princ snum)
  (prin1)
  )
(prompt "\n<>自动计算总和")
(prin1)

代码完。

在(prin1)下面加上代码  (alert (itoa snum))即可以Msgbox窗口显示计算结果。