AutoCAD LISP循环判断求A到B的整数和
2011-03-26 23:42 精诚所至 金石为开 阅读(452) 评论(0) 编辑 收藏 举报AutoCAD LISP循环判断求A到B的整数和，比如求100以内的整数和，输入起始值为0，终止值为100即可，代码如下。
(defun c:test()
(setq nums (getint "请输入起始值："))
(setq nume (getint "\n请输入终止值："))
(setq snum 0)
(setq nn (+ 1 (- nume nums)))
(setq numadd nums)
(repeat nn
(setq snum (+ snum numadd))
(setq numadd (+ 1 numadd))
)
(princ "\n总和snum=") (princ snum)
(prin1)
)
(prompt "\n<<test>>自动计算总和")
(prin1)
代码完。
在(prin1)下面加上代码 (alert (itoa snum))即可以Msgbox窗口显示计算结果。
