做个从1加到100的lisp函数小程序

xxd0109

请教高位高手，

如何写个从1加到100的lisp程序，谢谢。

ljpnb

不知道有什么用，结果谁都知道是5050

xyp1964

2. (load "xyp_lib.vlx") ;版本 V.20051230
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
12. |;
13. ;;;1～n自然数之和
14. (defun c:test ()
15.   (CMDLA0)
16.   (setq INT (UINT 1 "" "\n最大自然数" INT)
17. i   0
18. sum 0
19.   )
20.   (while (< i int)
21.     (setq i   (1+ i)
22.    sum (+ sum i)
23.     )
24.   )
25.   (princ "\n总和 = ")
26.   (princ sum)
27.   (CMDLA1)
28. )

(load "xyp_lib.vlx") ;版本 V.20051230 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;;;1～n自然数之和 (defun c:test ()   (CMDLA0)   (setq INT (UINT 1 "" "\n最大自然数" INT) i   0 sum 0   )   (while (< i int)     (setq i   (1+ i)    sum (+ sum i)     )   )   (princ "\n总和 = ")   (princ sum)   (CMDLA1) )

xxd0109

谢谢版主的热情帮助，我主要是想学习lisp的简单编程，所以也就想知道if while repeat 等语句是如何使用的。

xyp1964

;;;1～n自然数之和
(defun c:test ()
  (setq INT (getint "\n输入最大自然数: ")
 i   0
 sum 0
  )
  (while (< i int)
    (setq i   (1+ i)
   sum (+ sum i)
    )
  )
  (princ "\n总和 = ")
  (princ sum)
  (princ)
)