AutoCAD LISP循环判断求A到B的整数和
2011-03-26 23:42 精诚所至 金石为开 阅读(444) 评论(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窗口显示计算结果。
![](https://img2024.cnblogs.com/blog/35695/202408/35695-20240826070647288-243310440.jpg)